Macro masquer lignes

Dranreb

XLDnaute Barbatruc

• 24 Août 2013

• #2

Re : Macro masquer lignes

Bonjour.

VB:

Sub masquer ()

Dim I As Integer
For I = 1 To ActiveSheet.Range("B9")
    ActiveSheet.Rows(I * 12 + 5).Resize(11).Hidden = True
    Next I

End Sub

 

Vote positif 0 Vote négatif

F

FL123

Guest

• 24 Août 2013

• #3

Re : Macro masquer lignes

Merci Dranreb pour ta réponse !
En revanche, ton code ne génère pas ce que j'attendais :/
Il masque les lignes 17 à 27, 29 à 39, 41 à 51 et ainsi de suite, certainement le (I * 12 + 5) qui pose problème.

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 24 Août 2013

• #4

Re : Macro masquer lignes

bonjour tous🙂🙂
un code plus basique en attendant

Code:

Dim i As Long, z As Byte
 z = 16
 For i = 1 To Range("B9")
 Rows(i + z).Resize(21).Hidden = 1
 z = z + 21
 Next i

 

Vote positif 0 Vote négatif

F

FL123

Guest

• 24 Août 2013

• #5

Re : Macro masquer lignes

Merci beaucoup laetitia parfait !

 

Vote positif 0 Vote négatif