Code VBA à finaliser

[rounil09]

Bonjour la liste,
Dans le code ci-dessous je voudrais introduire, après la sélection de la feuille, une ligne pour sélectionner la dernière cellule pleine de la colonne M.
En effet, la formule classique ‘Range("M65000").End(xlUp).Offset(1, 0).Select’ ne fonctionne pas.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range("D13")) Is Nothing Then
With Target
Sheets("BD_QUEST").Select
'Ligne de code à introduire ici
End With
End If
End Sub

Merci de votre aide.

 

[mth]

Re : Code VBA à finaliser

Bonjour,

Pour la dernière cellule remplie, il faut retirer le Offset(1,0) qui te fait descendre d'un cran:

Range("M65000").End(xlUp).Select

Bien à toi,

mth

Edit: 🙂 Bonjour Etienne

 

[Etienne2323]

Re : Code VBA à finaliser

Bonjour,
voici une formulation facile de compréhension que vous pouvez utiliser.

Dim DerniereLigne As Integer
DerniereLigne = Cells(65536, 13).End(xlUp).Row
Cells(DerniereLigne, 13).Select

Cordialement,

Étienne