Discussion :

[nicoroth]

Salut a tous

Alors j ai un code ci dessous qui marche nikel, j'aimerai faire une petite modification, cést a dire que lá, de la ligne 11 a 50 tout se passe comme prevu mais j aimerai que la macro continue de la ligne 55 a 65 puis de 70 a 75 sans que le calcul ne se fasse de la ligne 51 a 54 et 66 a 69

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
PrivateSub CommandButton1_Click()
Dim i as Byte
For i= 11 to 50
If Range("A" & i).Value = "0" Then
           Range ("A" & i).Entirerow.Hidden=true
      Else 
           Range("A" & i).EntireRow.Hidden=False
End iF
Next

[wilfried_42]

Bonjur nicoroth

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
PrivateSub CommandButton1_Click()
dim tablo(10,2) as integer
Dim i as integer, j as byte
tablo(1,1)=11 : tablo(1,2)=50
tablo(2,1)= 55 : tablo(2,2) = 65
tablo(3,1)= 70 : tablo(3,2) = 75
for j = 1 to 3
For i= tablo(j,1) to tablo(j,2)
If Range("A" & i).Value = "0" Then
           Range ("A" & i).Entirerow.Hidden=true
      Else 
           Range("A" & i).EntireRow.Hidden=False
End iF
Next i
next j
end sub

bonne journée

[nicoroth]

Merci encore mon cher Wilfried je ne sais pas comment je ferais sans toi, ta formule marche nikel