Discussion :

[bedoch]

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 ?

[Krovax]

pour le premier

Code :

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

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 :

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

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

[DeaD78]

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

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

1ère question :

Code :

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

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 :

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

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é

[Yolak]

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 :

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

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 :

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

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 ^^

[Krovax]

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 (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

[bedoch]

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

[Yolak]

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.

Mais il est trop bien ce forum!!

Depuis le temps que je le dit!

[Krovax]

Si tu n'aime pas le 65535 tu peux mettre

Code :

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

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é)