demande un peu d'aide pour la réalisation d'un macro.

Je voudrai un peu d'aide pour la réalisation d'une macro

ce que je voudrai c'est que dès que le test trouve la valeur 0 dans la colonne E il puisse cacher la ligne correspondante ainsi que la ligne du dessous.J'ai bien essayer mais je ne suis pas très doué dans les macro.


une autre petite chose est il possible de paramétrer macro (assez simple) pour cacher une ligne sur deux de mon fichier ?

pour le premier

Code:

---

1 2 3 4 5 6 7 8

Dim i As Integer For i = 1 To Range("E65536").End(xlUp).Row If Range("E" & i) = 0 Then Rows(i).Hidden = True Rows(i + 1).Hidden = True End If Next i

---

Pour la deuxième

Code:

---

1 2 3 4

Dim i As Integer For i = 1 To Range("E65536").End(xlUp).Row step 2 Rows(i).Hidden = True Next

---

Bonjour (je sais pas pourquoi mais j'aime bien dire bonjour...),

Bon allez, j'arrête de t'embêter.

1ère question :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test()   For i = 1 To 100 'Pour les 100 premières lignes If Range("E" & i).Value = "0" Then Range("E" & i).EntireRow.Hidden = True Range("E" & i + 1).EntireRow.Hidden = True End If Next   End Sub

---

Et la 2ème :

Sub test()

'On cache une ligne sur 2 en commençant par la 2ème (2-4-6...)

Code:

---

1 2 3 4 5

For i = 2 To 100 Step 2 'Toujours pour 100 lignes, à toi de changer Range("A" & i).EntireRow.Hidden = True Next   End Sub

---

C'est fonctionnel, j'ai testé.

Au plaisir.

EDIT Krovax : bonjour, on s'est croisé :roll:

Bonjour,

C'est pas bien compliqué, il ne faut pas hésiter à chercher sur ce merveilleux forum et sur les tutos !!!

pour ton premier problème, voilà le code à mettre dans une SUB :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim a, FirstAdresse Set a = ActiveSheet.Range("E:E").Find(what:="0", lookat:=xlWhole) If Not a Is Nothing Then FirstAdresse = a.Address   Do Range(a.Address).Select Selection.EntireRow.Hidden = True   Set a = ActiveSheet.Range("E:E").FindNext(a) Loop While Not a Is Nothing And a.Address <> FirstAdresse   End If

---

Pour la deuxième problème (encore plus simple)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

'déclaration de i comme un entier Dim i As Integer   'ActiveSheet.UsedRange.Rows.Count compte le nombre 'de lignes dans le Range utilisé 'Step 2 permet d'aller de 2 en 2   For i = 1 To ActiveSheet.UsedRange.Rows.Count Step 2 'Selection d'une ligne Rows(i).Select   'On masque la ligne selectionnée Selection.EntireRow.Hidden =True Next i

---

J'ai quand même mis mon code (malgrès les réponses précedentes) car il fonctionne même s'il y a plus de 100 lignes et sans aller jusqu'à la capacité max ^^

Citation:

---

Envoyé par Yolak

J'ai quand même mis mon code (malgrès les réponses précedentes) car il fonctionne même s'il y a plus de 100 lignes et sans aller jusqu'à la capacité max ^^

---

hmm, je ne vais pas jusqu'a la capacité max, je vais jusqu'à la dernière ligne dont la cellule de la colonne E est remplie :P (je préfère cette méthode au UsedRange.Rows.Count, qui ratera des ligne a la fin si on a des lignes vide dans le tableau ^^ )

Par contre l'utilisation du find est souvent préférable, mais j'aurais évité les select qui vont illuminé l'écran pour rien ;)

Mais il est trop bien ce forum!!
merci a tous pour ces précieux renseignement, il ne me reste plus qu'a les tester.

Citation:

---

hmm, je ne vais pas jusqu'a la capacité max, je vais jusqu'à la dernière ligne dont la cellule de la colonne E est remplie (je préfère cette méthode au UsedRange.Rows.Count, qui ratera des ligne a la fin si on a des lignes vide dans le tableau ^^ )

---

D'accord d'accord je comprend mieux. C'est vrai que mon code bloque sur les lignes vides...
Enfin, j'ai toujours du mal a mettre le 65536 dans mes codes, je ne sais pas pourquoi lol.

Citation:

---

Mais il est trop bien ce forum!!

---

Depuis le temps que je le dit!

Si tu n'aime pas le 65535 tu peux mettre

Code:

---

DerniereLigne = Cells(Columns(1).Cells.Count, 1).End(xlUp).Row

---

Cela est même préférable car sous 2007 il faut mettre 1048576 si je me souvient bien

Sinon pour avoir la dernière ligne je conseil cette contribution de Ousk'el'nord
Dernière ligne et la dernière colonne renseignées d'une feuille

Il y référence un très grand nombre de méthode (je n'ai jamais vu, si je me souviens bien, qui n'y été pas référencé)