Créer une macro pour masquer une ligne
odalor
Messages postés
5
Statut
Membre
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Bonjour
Je crée un tableau concernant l'absentéïsme. Si les cellules de la colonne AA contiennent "remplacement effectué", alors masquer la ligne correspondant. Pour cela, je sollicite votre aide pour créer une macro qui me permettra de masquer les lignes concernées et éventuellement une macro, en cas de besoin, pour afficher ces lignes.
Merci d'avance pour votre aide, sachant que je suis complètement débutante en VBA
Bonjour
Je crée un tableau concernant l'absentéïsme. Si les cellules de la colonne AA contiennent "remplacement effectué", alors masquer la ligne correspondant. Pour cela, je sollicite votre aide pour créer une macro qui me permettra de masquer les lignes concernées et éventuellement une macro, en cas de besoin, pour afficher ces lignes.
Merci d'avance pour votre aide, sachant que je suis complètement débutante en VBA
A voir également:
- Créer une macro pour masquer une ligne
- Créer un lien pour partager des photos - Guide
- Comment créer un groupe whatsapp - Guide
- Créer une adresse hotmail - Guide
- Créer une liste déroulante excel - Guide
- Créer un compte google - Guide
3 réponses
Bonjour
L'utilisation d'un filtre (données, filtrer) personnalisé permet de résoudre ce problème (Ne contient pas ...)
L'utilisation d'un filtre (données, filtrer) personnalisé permet de résoudre ce problème (Ne contient pas ...)
Bonjour,
pour cacher les lignes
pour afficher:
il y a t il d'autres lignes que "remplacement effectué" qui peuvent être aussi masquées en m^me temps?
pour cacher les lignes
Sub masquer()
texto = "remplacement effectué"
nbre = Application.CountIf(Columns(27), texto)
lig = 65536
For cptr = 1 To nbre
lig = Columns(27).Find(texto, Cells(lig, 27), xlValues).Row
caché = caché & lig & ":" & lig & ","
Next
caché = Left(caché, Len(caché) - 1)
Range(caché).EntireRow.Hidden = True
End Sub
pour afficher:
il y a t il d'autres lignes que "remplacement effectué" qui peuvent être aussi masquées en m^me temps?