row.hidden

[momo2394]

Bonjour

Voila j'ai un souci avec le row.hidden, le fichier vous en dira plus.

Merci

 

[Pierrot93]

Re : row.hidden

Bonsoir momo

peut être comme ceci si j'ai bien compris :

Sub test()
Dim i As Byte
For i = 11 To 21
    Rows(i).Hidden = IIf(Not IsEmpty(Range("D" & i)) And IsEmpty(Range("E" & i)), 0, 1)
Next i
End Sub

Attention, évites dans tes codes d'utiliser des mots réservés vba, comme des variables, en l'occurence le mot "row".

bonne soirée
@+

 

[momo2394]

Masquer et afficher en VBA

Merci Pierrot93

Mais ca ne va pas car la macro ne s'arrete plus et je n'arrive pas à réafficher les cellules masquées

 

[ROGER2327]

Re : row.hidden

Bonsoir à tous

J'ai testé ça qui m'a l'air de fonctionner :

Sub test()
Dim R As Range
    Application.ScreenUpdating = False
    For Each R In Rows("11:21")
        With R
            If (Cells(.Row, 4) = "" Or (Cells(.Row, 4) <> "" And Cells(.Row, 5) <> "")) _
                And .Hidden = False Then .Hidden = True Else .Hidden = False
        End With
    Next R
    Range("D10").Select
End Sub

Bonne nuit !
ROGER2327

 

[Pierrot93]

Re : row.hidden

Bonjour Momo, Roger

Vois pas trop dans le code donné, ce qui ferait "boucler", la boucle n'est que de 11 à 21.... fonctionne chez moi en tout cas sous 2003...

bon dimanche.
@+

 

[ROGER2327]

Re : row.hidden

Bonjour à tous.

À Pierrot93 :
Je n'ai pas de problème de bouclage avec votre procédure. Ce qui ne va pas, c'est que le bouton ne fonctionne pas pour réafficher les lignes masquées. Je pense que momo2394 souhaite alternativement masquer et afficher les lignes.​

Cordialement,
ROGER2327

 

[Pierrot93]

Re : row.hidden

Re

OK, merci Roger, mais effectivement, je n'avais pas conçu ce code pour un fonctionnement alternatif...

@+

 

[momo2394]

Re : row.hidden

Salut à tous

Merci, c'est parfait et c'est vraiment ce que je voulais faire "afficher et masquer les lignes avec même le bouton", peut-être me suis mal fait comprendre, à présent tout fonctionne correctement, encore un grand Merci à vous deux
@+