Mettre une condition au début d'une macro
Bonjour le forum,
J'aurais une nouvelle fois besoin de vous. En effet, je voudrais mettre une condition au début de cette macro (début du code ci-dessous). Actuellement celle-ci recherche les lignes à partir de la ligne 20. Or, ce que je voudrais c'est que celà commence à la ligne 21 si la ligne 19 est écrite et commence à la ligne 20 si ligne 19 vide.
D'avance merci pour votre aide
Private Sub ApercuAvantImpression(ByVal control As IRibbonControl)
Dim I As Long, c As Range
Application.ScreenUpdating = False
For I = 20 To 39
Set c = Rows(I).Find("*", , xlValues, , 1, 1, 0)
If c Is Nothing Then Rows(I).Hidden = True
Next I.....Bonjour libellule
pas sûr d'avoir tout compris mais peut-être
For I = (Application.CountA(Rows(19)) = 0) + 21 To 39Bonjour tototiti2008,
merci pour ta réponse c'est sympa, mais ton code démarre tout le temps au 21 quelque soit l'état de la ligne 19 (écrite où non).
En fait ce que je voudrais c'est que si sur la ligne 19 il y a d'écrit "Sous réserve de disponibilité chez l'Editeur" je voudrais que la recherche se fasse à partir de la ligne 21.
Re,
Oups, désolé, ma boule de cristal est en panne
alors peut-être
For I = (range("A19").value <> "Sous réserve de disponibilité chez l'Editeur") + 21 To 39re tototiti2008,
Merci, merci, merci celà fonctionne à merveille.
(excuses moi pour les explications qui n'étaient pas très claires)
A bientôt