generer un macro ou trouve une variable...

[p0m1]

Bonjour, je voudrais connaitre une façon d' exécuter ce macro de automatique,
*************************************
Public Sub cacher()
'Sub Macro1()
'Masque
If Range("G13") = "0" Then
Rows("13").Select
Selection.EntireRow.Hidden = True
End If
End Sub
*************************************
voici mon départ, je dois vérifier si dans les case de la colonne "G" a partir de 13 et jusqu'à 203 si "= 0" et si "= 0" hide la ligne. sinon rien.

mon problème est que je voudrai éviter de reprendre ma macro et changer a chaque fois la ligne.

 

[Etienne2323]

Re : generer un macro ou trouve une variable...

Salut p0m1,
tu peux essayer quelque chose comme ceci.

Sub Cacher()

Dim i As Long

Application.ScreenUpdating = False

For i = 13 To 203
    If Not Cells(i, 7).Value = "" Then
        If Cells(i, 7).Value = 0 Then
            Cells(i, 7).EntireRow.Hidden = True
        End If
    End If
Next i

End Sub

Cordialement,

Étienne

 

[p0m1]

Re : generer un macro ou trouve une variable...

Vu qu' il n' pas de reponse je me suis contenter de faire un batch pour generer se que je ne voulais pas faire.
***************************************
@echo off
set to=13
set num=13
:action
if "%to%"=="%Stop%" goto fin
set /a to=to+1
set /a num=num+1
(
echo If Range^("G%num%"^) = "0" Then
echo Rows^("%num%"^).Select
echo Selection.EntireRow.Hidden = True
echo End If
)>> OwNeDbYp0m1.cfg

goto action
:fin
exit
***************************************
Si vous avez une solution plus simple faite le moi savoir, sinon celle-ci marche tres bien .

 

[MJ13]

Re : generer un macro ou trouve une variable...

Bonjour


Sinon avec une boucle

for each

cela devrait le faire.

Si tu crois avoir la réponse en 10 minutes, ce n'est pas le bon forum!