boucle hide range if = 0

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:

---

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

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:

---

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

---

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.

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

Code:

---

application.screenupdating=false

---

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

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

Voici le code complet pour les personnes qui chercherais ;)

Code:

---

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é :ccool:

Pour son aide très précieuse.