Suite sur VBA

Version imprimable

27/06/2007, 17h26
nicoroth

Suite sur VBA
Coucou encore moi,

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

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:

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

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

Code:

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

Plus simple avec boucle for

Code:

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

27/06/2007, 18h04
nicoroth

Merci les gars vos deux techniques marchent j ai pas encore choisi a++
27/06/2007, 18h55
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=..........

POurquoi pas comme ca

Code:

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

28/06/2007, 01h30
zazaraignée

Citation:

Envoyé par 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=..........

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.
28/06/2007, 09h14
nicoroth

Merci Jerôme, ca marche nikel.:mrgreen:

Et dsl zazaraignée je vais faire un effort de presentation.:oops: