Macro, masquer les lignes contenant des valeurs définies
Warp
-
Morgothal Messages postés 1350 Statut Membre -
Morgothal Messages postés 1350 Statut Membre -
Bonjour,
Je souhaiterai savoir comment créer une macro me permettant de masquer automatiquement des lignes comportants un texte définit.
Exemple
Colonne C, Ligne 15 à 23 chaque cellules comporte le texte "LIGNE A MASQUER"(texte relatif au résultat d'une formule).
Si activation de la macro ces lignes se masque automatiquement sans influencer les autres.
Je souhaiterai savoir comment créer une macro me permettant de masquer automatiquement des lignes comportants un texte définit.
Exemple
Colonne C, Ligne 15 à 23 chaque cellules comporte le texte "LIGNE A MASQUER"(texte relatif au résultat d'une formule).
Si activation de la macro ces lignes se masque automatiquement sans influencer les autres.
A voir également:
- Macro, masquer les lignes contenant des valeurs définies
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Partager des photos en ligne - Guide
- Comment masquer les amis sur facebook - Guide
- Masquer conversation whatsapp - Guide
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
5 réponses
Bonjour,
Voici une macro qui masque les lignes où en colonne C il y a "LIGNE A MASQUER" :
Voici une macro qui masque les lignes où en colonne C il y a "LIGNE A MASQUER" :
Sub cacher_lignes()
Dim ligne, ligne_max As Long
ligne_max = Range("C65536").End(xlUp).Row
For ligne = 1 To ligne_max
If Cells(ligne, 3) = "LIGNE A MASQUER" Then
Rows(ligne & ":" & ligne).Select
Selection.EntireRow.Hidden = True
End If
Next
End SubC'est une solution, il y en a sûrement d'autres ;-)
une fois que j'essai d'activer la macro il me mentionne "erreur de compilation" avec ce code
Sub Zonecombinée23_QuandChangement()
15 cm
End Sub
????
Sub Zonecombinée23_QuandChangement()
15 cm
End Sub
????
Bonjour,
Comme ceci :
-------------------
Cordialement,
Clément
Comme ceci :
Sub cacher_lignes()
Dim ligne As Long
Dim colonne as Integer
For colonne = 1 To 30
For ligne = 1 To Cells(65536, colonne).End(xlUp).Row
If Cells(ligne, colonne) = "LIGNE A MASQUER" Then
Rows(ligne & ":" & ligne).Select
Selection.EntireRow.Hidden = True
End If
Next
Next
End Sub
-------------------
Cordialement,
Clément
Merci beaucoup,
Ca fonctionne à merveille.
Avant de confirmer la résolution du problème, pourrais-tu me donner le code qui permetterait d'annuler cette action pour que je puisse créer une seconde macro.
Merci d'avance...
Ca fonctionne à merveille.
Avant de confirmer la résolution du problème, pourrais-tu me donner le code qui permetterait d'annuler cette action pour que je puisse créer une seconde macro.
Merci d'avance...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
