1ère colonne dispo

cissou69 · 15 Février 2011

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:

Code:

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

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

Code:

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...

Code:

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

Merci d'avance

MJ13 · 15 Février 2011

Re : 1ère colonne dispo

Bonjoru Cissou

Teste ce code:

Code:

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

Ce qui donnerait:

Code:

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

cissou69 · 15 Février 2011

Re : 1ère colonne dispo

je vais le tester.
Merci,

1ère colonne dispo

cissou69

XLDnaute Junior

MJ13

XLDnaute Barbatruc

cissou69

XLDnaute Junior

Discussions similaires