Cache 1 ligne si 1 celulle vide

[lamho27]

Bonsoir le forum
je voudrais cacher 1 ligne si dans 1 ligne il y a 1 cellule vide ( ex : dans mon fichier , si B16 et B23 vide , lignes 16 et 23 caches
merci

 

[lamho27]

Re : Cache 1 ligne si 1 celulle vide

Bonsoir jean Marcel
ton fichier bien marche , mais quand je applique dans mon fichier , ne marche pas , pourquoi ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([X8,CG8;X27,Cg27,X46,CG46,X65,CG65], Target) Is Nothing And Target.Count = 1 Then
If Target.Offset(3, 0) = 0 Then
Target.Offset(3, 0).EntireRow.Hidden = True
Else
Target.Offset(3, 0).EntireRow.Hidden = False
End If
End If
End Sub

Ou est les erreur ?
merci

 

[lamho27]

Re : Cache 1 ligne si 1 celulle vide

Bonsoir
J'ai change code ; mais ne marche pas
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([X8,CG8,X27,CG27,X46,CG46,X65,CG65], Target) Is Nothing And Target.Count = 1 Then
If Target.Offset(3, 0) = 0 Then
Target.Offset(3, 0).EntireRow.Hidden = True
Else
Target.Offset(3, 0).EntireRow.Hidden = False
End If
End If
End Sub

 

[lamho27]

Re : Cache 1 ligne si 1 celulle vide

Bonjour Jean Marcel
Tu peux me voir mon fichier pour chercher quel erreur , merci

 

[lamho27]

Re : Cache 1 ligne si 1 celulle vide

Bonjour Jean Marcel
je fais comme te montrer , mais tout pareil ; tu peux revoir , merci

 

[lamho27]

Re : Cache 1 ligne si 1 celulle vide

Bonjour Jean Marcel
j'ai compris un peu ton code, mais je ne sais pas offset(3,0)=0 et un autre fichier tu mets
offset (-8,2)=0 , pourquoi il y a - et 2
merci

 

[lamho27]

Re : Cache 1 ligne si 1 celulle vide

Bonjour Jean Marcel
J'ai essai ton code avec 2 cellules , mais j'arrive pas
une question : si avec plusieurs cellules ex: D8,G8,D25,G25 comment écrire dans ton code
merci

 

[lamho27]

Re : Cache 1 ligne si 1 celulle vide

Bonjour Jean Marcel
j'ai trouvé dans le forum une code , ça marche bien

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("X8") = "0" Then 'si la cellule X8 contient "0"
Rows(8).Hidden = True
Rows(27).Hidden = True 'cacher la ligne 8 et 27
Rows(46).Hidden = True
Rows(65).Hidden = True
Else 'sinon
Rows(8).Hidden = False 'ne pas cacher la ligne 8et 27
Rows(27).Hidden = False
Rows(46).Hidden = False
Rows(65).Hidden = False
End If
End Sub

merci bien te aider