Discussion :

[p0m12]

Bonjour,
je resume rapidement mon probleme.
je veux que ma macro chercher la colonne G et commence sa recherche a partir de la ligne 13, pour sa c bon...
et je veux qu' une fois trouver elle compare G* =0 Si =0 cacher ligne sinon cellule suivante..

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub cacher()
Dim Cell As Range
On Error Resume Next
For Each Cell In Range("G13:G" & Range("G65536").End(xlUp).Row)
'.....................................................................
'verifier que la colone G = 0 if 0 HIDE
'.....................................................................
Next Cell
End Sub

PS: si vous avez des site ou je peux evoluer sur les macro en excel n' esiter pas ... je ne trouve pas d' explication mais tres souvent des sources.. et moi je preferes quel son expliquer pour les dupliquer. ^^

Merci

[Krovax]

Bonjour
premièrement quand tu donnes un code utilise les balises tu selectionne le code et tu clique sur le bouton # au dessus de la zone d'édition

pour ton code

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub cacher()
Dim Cell As Range
On Error Resume Next
For Each Cell In Range("G13:G" & Range("G65536").End(xlUp).Row)
'.....................................................................
If Cell = 0 Then Cell.EntireRow.Hidden = True
'.....................................................................
Next Cell
End Sub

[p0m12]

MErci Sa marche, j' aurais cru que sa aurai accélère le hide mais non.. pas grave, sa fait moins de ligne de code. Merci.


PS: je prend note de ta suggestion.

[Krovax]

Si tu veux accélérer le code
met au début de la macro

Code :

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

application.screenupdating=false

Et édit ton premier message pour rajouter les balise code ca évitera aux modérateur d'avoir a le faire

[p0m12]

Super,
pile ce que je voulais!
Tu te débrouille super bien ... continu comme sa tu iras loin

Voici le code complet pour les personnes qui chercherais

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
Sub cacher()
'rend la macro plus rapide et plus propre visuellement
Application.ScreenUpdating = False
'******************************************************
Dim Cell As Range
On Error Resume Next
'cherche la colonne G et commence son exécution a partir de la ligne 13 
'jusqu'à a la fin.
For Each Cell In Range("G13:G" & Range("G65536").End(xlUp).Row)
'******************************************************
'Si Dans la colonne G a partire de la ligne 13 = 0 
'alors cacher la ligne sinon ligne suivante
If Cell = 0 Then Cell.EntireRow.Hidden = True
'******************************************************
Next Cell
End Sub

Je remercie :
Krovax
Expert Confirmé

Pour son aide très précieuse.