(RESOLU)Masquer automatiquement des celluels si elles sont vide

[chaelie2015]

Bonjour Forum
ci dessous un code qui me permet de masquer automatiquement les lignes de A6 a A15 si les cellules sont vide
c a d si A6<>"" alors afficher La ligne A6 et masquer les autres
si A6<>"" et A7<>"" alors afficher la ligne 6 et 7 et les autres masquée

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer
For x = 6 To 15
If Range("A" & x) = "" Then
Rows(x).Hidden = True
Else
Rows(x).Hidden = False
End If
Next
End Sub

Mais ça n'a pas fonctionné correctement ???
NB : les cellules A6 - A15 ont des formules
Salutations

 

[gosselien]

Re : Masquer automatiquement des celluels si elles sont vide

Bonjour,

tu dois commencer par le bas 🙂

Dim x As Integer
For x = 15 To 6 Step -1
If Range("A" & x) = "" Then
Rows(x).Hidden = True
Else
Rows(x).Hidden = False
End If
Next
End Sub

 

[phlaurent55]

Re : Masquer automatiquement des celluels si elles sont vide

Bonjour à tous,

@ gosselien,

Bonjour,

tu dois commencer par le bas 🙂

aucune importance, il ne s'agit pas de supprimer des lignes mais de les masquer,
dans ce cas on peut boucler de haut en bas

@ chaelie,

NB : les cellules A6 - A15 ont des formules
Salutations

remplace:
If Range("A" & x) = "" Then
par:
If Range("A" & x).Value = "" Then


à+
Philippe

 

[chaelie2015]

Re : Masquer automatiquement des celluels si elles sont vide

Bonjour gosselien, philippe
Merci pour la réponse et la correction
Mon souci est résolu
Salutation