Ligne vide

[Christophe]

Bonsoir tout le monde.
Quelqu'un pourrait-il m'aider à traduire en vb la question suivante:
Si la première ligne vide est <50 lancer la macro 1 sinon lancer la macro 2.
Merci d'avance et bonne soirée

 

[Creepy]

Bonsoir le forum, Christophe

Alors :

Sub Test()

Dim Fin as Integer
Fin = Feuil1.range('A1').end(Xlup).row + 1

If fin < 50 then 
  Call Macro1
Else
  Call Macro2
end if

end sub

Voila en partant du principe que tu part de la cellule A1 pour rechercher la première cellule non vide et que tu es sur lafeuil1.

@+

Creepy

 

[Christophe]

Merci Creepy, je vais essayer ça dans la journée.