Discussion :

[nicoroth]

Coucou encore moi,

Ca devrai pas etre compliquer cette fois, j'ai une formule:

Code :

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

1
2
3
4
5
If Range("A1").Value = "0" Then
Range ("A1").Entirerow.Hidden=true
Else
Range("A1").EntireRow.Hidden=False
End iF

En gros je voudrais que cette action se repete sur A2,A3,A4,A5... sans avoir a rettaper 10 fois la formule.

J ai essayer en mettant:

Code :

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

1
2
3
4
5
If Range("A1,A2,A3,A4,A5").Value = "0" Then
Range ("A1,A2,A3,A4,A5").Entirerow.Hidden=true
Else
Range("A1,A2,A3,A4,A5").EntireRow.Hidden=False
End iF

Seulement il me cache aussi les cases avec ne valeur differente de 0

Merci

[jfontaine]

Je n'ai pas testé le code mais ca devrait ressembler à ca

Code :

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

1
2
3
4
5
6
7
8
9
10
11
dim i as byte
 
for i=1 to 10
 
      If Range("A" & i).Value = "0" Then
           Range ("A" & i).Entirerow.Hidden=true
      Else 
           Range("A" & i).EntireRow.Hidden=False
      End iF
 
next

Jérôme

[Zeibla]

Plus simple avec boucle for

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim Maplage As Range
 
For Each Maplage In Range("A1:A500")
 
If Maplage.Value = "0" Then
maplage.Entirerow.Hidden=true
Else
maplage.EntireRow.Hidden=False
End iF
 
 
Next

[nicoroth]

Merci les gars vos deux techniques marchent j ai pas encore choisi a++

[nicoroth]

Si vous passer un coup d oiel rapide pouvez me dire vite fe comment je le fe si je ve aller de A1:A5 puis de A10:A15 et enfin de A20:A25
Avec un for i=..........

[jfontaine]

POurquoi pas comme ca

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
17
18
19
20
21
22
 
dim i as byte
 
for i=1 to 25
 
      select case i
          case 6,16
             i=i+4
          case else
 
      end select
 
      If Range("A" & i).Value = "0" Then
           Range ("A" & i).Entirerow.Hidden=true
      Else 
           Range("A" & i).EntireRow.Hidden=False
      End iF
 
 
 
 
next

Jérôme

[zazaraignée]

Si vous passer un coup d oiel rapide pouvez me dire vite fe comment je le fe si je ve aller de A1:A5 puis de A10:A15 et enfin de A20:A25
Avec un for i=..........

Prière de lire les règles du forum. L'utilisation d'un langage abrégé génère parfois de l'irritation. Plus spécialement d'une certaine modératrice québécoise...

J'ai ajouté les balises [CODE] dans les messages de nicoroth et Zeibla. La prochaine fois, pensez-y.