Ligne vide

Christophe · 21 Octobre 2005

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 · 21 Octobre 2005

Bonsoir le forum, Christophe

Alors :

Code:

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 · 22 Octobre 2005

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

Ligne vide

Christophe

Guest

Creepy

XLDnaute Accro

Christophe

Guest

Discussions similaires