If deux conditions

Bonjour bonjour,

je suis un peu pris au dépourvu, j'essaie de masquer une ligne si yG et yH sont = "" avec une boucle... enfin bref, impossible d'arriver à ce que je veux, toutes les lignes se masquent.

Petits détail, si la quantité =0, les 7 lignes se masquent.

si la quantité= ou > à 1, la première ligne sera toujours pleine en yG et yH

j'ai essayé un truc du genre :

Sub Hide_ligne()
Dim i%
Dim y%

For i = 4 To 36 Step 7
For y = i To i + 5 Step 1

If Range("G" & y) = "" And Range("H" & y) = "" Then
  Rows(y & ":" & y).Select
Selection.EntireRow.Hidden = True
End If
Next
Next

End Sub

Quelqu'un pour m'aider ?

Bonjour,

Essaie comme cela

A+

Woow c'est déjà un bon début, je suis en train de m'éxiter à coder défusionner cellule/masquer/refusionner cellule ... c'est horrible !!!

Mais il y a juste un problème dans ce que tu m'as donner, j'aimerai que là où il y a deux vides allignés sur la même ligne en G et H, la ligne se masque. Si il y a un zéro, sur l'une des deux ou deux zéro (sachant que les 0 restent pas tout le temps des 0 je veux dire par la qu'il y aura des prix différents) la ligne reste afficher.

donc en booléen : "".""=false (ca fait presque un smiley uni-brow qui ferme les yeux !!!)

""."0"= true (qui cligne de l'oeil gauche )

"0".""=true (de l'oeil droit)

"0"."0"=true (désolé ...)

T'as une idée ?

PS: je connais pas du tout ce type de codage...

Sub ()
'si tu pouvais mettre des  indications tu serais vraiment top de chez top :)
End sub

J'ai juste remplacé un "OU" par un "ET"

Le programme effectue les opérations suivantes :

1) si la quantité = 0, les 7 lignes se masquent (si la quantité est égale à 0, inutile d'aller voir les colonnes G et H).

2) si la quantité est différente de 0, si G et H sont vides, alors la ligne est masquée

Dis-moi si cela correspond au résultat attendu.

A+

C'est pile poil ça !

Je te remercie pour ton aide

Haa réctification, j'ai un tout petit soucis.

Je viens de retranscrire l'exemple dans mon fichier final.

Quand je lance la macro tout s'éffectue bien, mais au résultat, il me reste toujours le n°50 (les 7 dernières lignes).

Serai ce à cause de la ligne

 For i = 7 To Range("C" & Rows.Count).End(xlUp).Row - 6 Step 7

???

PS: je remets la validation de réponse juste après avoir solver ça

Après pas mal de bidouillage j'ai réussi sans trop savoir si c'est vraiment bon, mais visuellement, c'est ok!

J'ai juste remplacer le For i = 7 To Range("C" & Rows.Count).End(xlUp).Row - 6 Step 7

par For i = 7 To Range("C" & Rows.Count).End(xlUp).Row - 0 Step 7