1ère colonne dispo

[cissou69]

Bonjour,

Je voudrais indiqué la 1ère colonne disponibe pour écrire dans la cellule
J'ai cherché sur le moteur de recherche mais j'ai principalement trouvé ma réponse sur "Row". j'ai essayé de transposé mais ça ne fonctionne pas:

k=Cells(5,Columns.count).End(xlLeft).Column
Cells(5,k).value = "X"

une autre solution que j'ai essayé et qui marche est :

k = 1
While Cells(5, k) <> ""
k = k + 1
Wend
cells(5,k).value = "X"

Mais c'est peut être un peu lourd...

Pouvez-vous éclairer ma lanterne ?
Car j'ai essayé la première méthode sur rox et ça fonctionne...

Cells(Rows.Count, 1).End(xlUp).Row

Merci d'avance

 

[MJ13]

Re : 1ère colonne dispo

Bonjoru Cissou

Teste ce code:

Sub test()
MsgBox Columns.Count
MsgBox Cells(5, Columns.Count).End(xlToLeft).Column
End Sub

Ce qui donnerait:

Sub test2()
Cells(5, Cells(5, Columns.Count).End(xlToLeft).Column).Value = "X"
End Sub

 

[cissou69]

Re : 1ère colonne dispo

je vais le tester.
Merci,