Last Emty Cell

[Temjeh]

Re bonjour a tous
j'ai ce et j'aimerais un peu d'aide SVP
Je voudrait qu'il sélectionne la première cell vide de la Col A ...Donc il me manque un ptit je ne sais quoi!! dans ceci:

Private Sub CommandButton1_Click()
Dim LastCell As Range
With ActiveSheet
Set LastCell = .Cells(.Rows.Count, "A").End(xlUp)
If IsEmpty(LastCell) Then
'do nothing
Else
Set LastCell = LastCell.Offset(1, 0)
End If

End Sub

Merci les gars et les filles

Temjeh

 

[myDearFriend]

Bonjour Temjeh,

Pour te placer sur la première ligne libre de ton tableau (en colonne A) :

Dim Ligne as long

With ActiveSheet
Ligne = .range("A65536").End(xlUp).row +1
.cells(Ligne,1).select
end With

Pour info, ".range("A65536").End(xlUp)" c'est comme si tu te plaçais sur la dernière cellule de la colonne A (limite Excel = 65536 lignes) et que tu appuies sur les touches CTRL+ Flèche Haut. Cela t'amène à la première cellule avec valeur en remontant dans la feuille.


Cordialement.
Didier_mDF

 

[Temjeh]

j'ai juste oublié si possible

Apres la sélection TextBox1 = range.select (???)
ca marche pas

Merci

 

[myDearFriend]

Re- Temjeh,

Si tu veux voir le numéro de ligne dans le TextBox (après la sélection) :

TextBox1 = Ligne
ou
TextBox1 = ActiveCell.row


Cela devrait répondre à ta demande (si j'ai vraiment compris ta question !).

Cordialement.
Didier_mDF

 

[Temjeh]

Merci beaucoup didier ca marche

Temjeh

A++