Sub Macro1()
Dim cel As Range 'déclare la variable cel (CELlule)
'boucle sur toutes les cellules éditées cel de la colonne A
For Each cel In Range("A1:A" & Range("A65536").End(xlUp).Row)
'si la cellule est vide, masque la ligne
If cel.Value = "" Then cel.EntireRow.Hidden = True
Next cel 'prochaine cellule cel de la boucle
End Sub
Et cette cellule est modifiée par formule, macro, magie ? (de toute évidence, par saisie manuelle, se sera difficile si la ligne est masquée)Je cherche à masquer la ligne si la première cellule (A) de la ligne ne contient pas de texte et la réapparaitre si le texte est affiché
Je me suis mal exprimer;Bonjour Pat, bonjour le forum,
Pas très clair ton plan... Il n'y a rien sur A donc je masque la ligne... Comment fais-tu alors pour y écrire et donc la faire réapparaître ????
Peut-être voulais-tu simplement masquer toutes les lignes dont la cellule de la collone A est vide... Si c'est le cas essaie comme ça :
Code:Sub Macro1() Dim cel As Range 'déclare la variable cel (CELlule) 'boucle sur toutes les cellules éditées cel de la colonne A For Each cel In Range("A1:A" & Range("A65536").End(xlUp).Row) 'si la cellule est vide, masque la ligne If cel.Value = "" Then cel.EntireRow.Hidden = True Next cel 'prochaine cellule cel de la boucle End Sub
Bonjour le fil, bonjour le forum,
Ha ça y est ! mon petit cerveau vient enfin de comprendre (peut-être) !!!!
Il te faut rajouter une seconde mise en forme conditionnelle. Sélectionne B12:I33, va dans le menu "mise en forme conditionnelle", cliques sur ajouter et la tu mets : la formule est: =$A12="" et dans Format tu choisis la couleur de l'encre blanche... Ça devrait le faire...