ecrire dans la derniere cellule vide d'une ligne

[mephis]

Bonjour à tous, j'aimerai connaître le petit bout de code qui permet d'écrire dans la dernière vide cellule d'une ligne.

Je sais que pour une colonne c'est :

xlig = Range("A1000").End(xlup).Row + 1

Mais je ne connais pas pour une ligne.

Merci

 

[Gelinotte]

Re : ecrire dans la derniere cellule vide d'une ligne

Bonjour,

Sauf erreur :
End(xlup).Row
End(xldown).Row
End(xltoright).Column
End(xltoleft).Column

G

 

[Pierrot93]

Re : ecrire dans la derniere cellule vide d'une ligne

Bonjour,
essaye ceci :

xlig = Range("IV1").End(xltoleft).Column + 1

bon après midi
@+

 

[mephis]

Re : ecrire dans la derniere cellule vide d'une ligne

bonjour et merci de ta réponse, mais ça ne fonctionne pas quand je marque


xlig = Range("Z3").End(xlToLeft).Column + 1
xlig = Sheets("attribution").Cells(8, 3)


Merci pierrot mais ne fonctionne pas non plus

 

[Pierrot93]

Re : ecrire dans la derniere cellule vide d'une ligne

Re,

pas sûr que tu ais vu le post #3....

 

[mephis]

Re : ecrire dans la derniere cellule vide d'une ligne

Si, si je l'ai vu ^^

 

[Pierrot93]

Re : ecrire dans la derniere cellule vide d'une ligne

Re,

pour la ligne 3 :

xlig = Range("IV3").End(xlToLeft).Column + 1

partir de la colonne IV (pour excel 2003)..

 

[mephis]

Re : ecrire dans la derniere cellule vide d'une ligne

A priori ça ne fonctionne pas, je met un fichier test en PJ

 

[Pierrot93]

Re : ecrire dans la derniere cellule vide d'une ligne

Re,

essaye ceci ...

Dim xlig As Long
Sheets("feuil2").Select
xlig = Range("IV3").End(xlToLeft).Column + 1
Cells(3, xlig) = Sheets("feuil1").Cells(3, 2)

 

[mephis]

Re : ecrire dans la derniere cellule vide d'une ligne

Merci mais ça ne fonctionne pas

 

[Pierrot93]

Re : ecrire dans la derniere cellule vide d'une ligne

Re,

fonctionne chez moi

Dim xlig As Long
Sheets("feuil2").Select
xlig = Range("IV3").End(xlToLeft).Column + 1
Cells(3, xlig) = Sheets("feuil1").Cells(3, 2)

mais rien dans la cellule B3 de la feuille 1.... donc résultat ??? rien .... mais variable xlig bien égale à 7...

 

[mephis]

Re : ecrire dans la derniere cellule vide d'une ligne

Ok c'est bon c'était juste une erreur de ma part, merci pierrot


Bonne journée