Formule USF "écrire à la suite"

[sadia]

Bonjour à tous,

je cherche commment ajouter à ma macro la fonction si la ligne A21 est prise alors ecrire sur la A22 et ainsi de suite...
pareil pour la b21 et c21

fichier joint pour plus d'infos

merci à tous !

 

[pascal21]

Re : Formule USF "écrire à la suite"

bonjour une piste
aller sur 1ere cellule vide

Range("a21").End(xlUp).Offset(1, 0).Activate

 

[keepcool183]

Re : Formule USF "écrire à la suite"

Bonjour,

LE fichier est mal zippé je n'arrive pas à l'ouvrir.

sinon le code de base serait :

Dim n, Y As Integer
If Sheets("X").Range("A" & n).Value = "" Then
Y = n - 1

 

[sadia]

Re : Formule USF "écrire à la suite"

Merci pour vos reponses, vous etes supers gentils !!!

mais je n'arrive pas à adapter vos codes dans ma macro

je remets le fichier sous un nouveau format