Sélection de la dernière ligne d'une plage VBA

[las-dias]

Sub Macro1()
'
' Macro1 Macro
'

'
Range("A10:L15").Select
ExecuteExcel4Macro "PATTERNS(1,0,65535,TRUE,2,3,0,0)"
End Sub

Bonjour, dans la petite macro ci-dessus, le VBA sélectionne la plage A10:L15 (de la cellule A10 à L15).
Je souhaite dire à la Macro, de sélectionner de A10 à L10, puis ensuite d'aller jusqu'à la dernière ligne non vide de la plage.

Quelles sont les modifications qu'il faut apporter SVP ?
Je vous remercie encore une fois votre aide précieux !

 

[Staple1600]

Re, bonjour zebanx

@las-dias
La discussion est déjà dans le forum
Tu veux dire: comment copier le code de ma macro dans la discussion?
Faire un simple copier/coller à partir d'Excel puis utiliser les balise BBCODE
[CODE]le texte de la macro[/CODE]

 

[las-dias]

Ok ! C'est noté.
Je vous remercie.

 

[Staple1600]

Re

???
On attend toujours que tu publies ta macro ici dans ta discussion.
(comme je te le suggérais dans le message #13)

 

[zebanx]

Re, bonjour zebanx
La discussion est déjà dans le forum
Tu veux dire: comment copier le code de ma macro dans la discussion?
Faire un simple copier/coller à partir d'Excel puis utiliser les balise BBCODE
[CODE]le texte de la macro[/CODE]

Re-
Non non pas du tout...
Le corps du message était uniquement destiné à Las-dias pour compléter son code et l'aider dans la recherche de la dernière ligne s'il venait à poursuivre ses requêtes (à tiroir).
Et distinguer, le cas échéant, les deux configurations (dernière ligne vers le bas en partant d'un tableau rempli ou dernière ligne tout court en partant du bas de la feuille).

Effectivement, cela pouvait prêter (un iota) à confusion, désolé de vous avoir faire réintervenir bien inutilement.
(Un iota) car une derligne pour vous, si toutefois vous l'utilisez, ça s'écrit même les yeux fermés.

Bon week-end à vous deux
zebanx

 

[las-dias]

Oui Staple, c'est noté ! Je publierai la macro en question, par contre je peux la publier qu'à partir du lundi prochain, car la macro est enregistré dans un autre PC .
Bon Week-end à vous !
Las-dias

 

[Staple1600]

Re

@zebanx

Re-
Non non pas du tout...

J'avais bien compris
Pour éviter tout quiproquos, j'ai édité le message #16

 

[las-dias]

Bonne jour à tous,
Comme convenu voici le VBA de la macro.
Bonne journée.

Sub f2_Macro()
'
' F2_Macro Macro
'
Range("C:C,D").Select
Range("D1").Activate
Selection.Delete Shift:=xlToLeft
Range("I:I,J:J,K:K").Select
Range("K1").Activate
Selection.Delete Shift:=xlToLeft
Range("5:5,6:6,7:7").Select
Range("A7").Activate
Selection.Delete Shift:=xlUp
'
iRow = Range("L" & Rows.Count).End(xlUp).Row
Range("A10:L" & iRow).Select
'
ActiveSheet.ListObjects.Add(xlSrcRange, Range("A10:L" & iRow), , xlYes).Name = _
"Tableau1"
Range("Tableau1[#All]").Select
ActiveSheet.ListObjects("Tableau1").TableStyle = "TableStyleMedium4"
ActiveWindow.SmallScroll Down:=-6
ActiveWorkbook.Worksheets(1).ListObjects("Tableau1"). _
Sort.SortFields.Clear
ActiveWorkbook.Worksheets(1).ListObjects("Tableau1"). _
Sort.SortFields.Add Key:=Range("Tableau1[[#All],[Remaining]]"), SortOn:= _
xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets(1).ListObjects("Tableau1" _
).Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.SmallScroll Down:=-12
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$I10=0"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.599963377788629
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("A1").Select
Sheets(2).Select
Range("C:C,D").Select
Range("D1").Activate
Selection.Delete Shift:=xlToLeft
'
iRow = Range("H" & Rows.Count).End(xlUp).Row
Range("A6:H" & iRow).Select
'
ActiveWindow.SmallScroll Down:=-72
ActiveSheet.ListObjects.Add(xlSrcRange, Range("A6:H" & iRow), , xlYes).Name = _
"Tableau2"
Range("Tableau2[#All]").Select
ActiveSheet.ListObjects("Tableau2").TableStyle = "TableStyleMedium18"
ActiveWindow.SmallScroll Down:=-18
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$H6=""Missed"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 11250687
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("A1").Select
Sheets(1).Select
Range("A1").Select
End Sub

MERCI à tous pour l'aide.