Complément de code VBA Résolu/Fermé

Question

Bonjour, 
J'ai cette macro qui fonctionne bien,mais je n'arrive pas à mettre un complément de code
pour que le curseur se mette sur la première cellule vide en colonne B.
Si vous avez une idée je suis preneur
Cordialement

Sub tri()'' tri MacroSheets("Saisie").Range("B3:M969").SelectActiveWorkbook.Worksheets("Saisie").Sort.SortFields.ClearActiveWorkbook.Worksheets("Saisie").Sort.SortFields.Add Key:=Range("B3"), _SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormalWith ActiveWorkbook.Worksheets("Saisie").Sort.SetRange Range("B3:M969").Header = xlNo.MatchCase = False.Orientation = xlTopToBottom.SortMethod = xlPinYin.ApplyEnd WithEnd Sub





Configuration: Windows / Firefox 70.0

jordane45 · Answer

Bonjour,

Un code du genre devrait correspondre à ton besoin

ActiveSheet.Cells(Rows.Count, "B").End(xlUp)(2).Select

JCB40 · Answer

Re,
problème résolu avec cette macro associée a la première au bouton avec call

Sub travd()
Dim dl1 As Long ' dernière ligne
With Sheets(ActiveSheet.Name)
dl1 = .Cells(.Columns(2).Cells.Count, 2).End(xlUp).Row + 1
.Range("b" & dl1).Select
End With
End Sub

Complément de code VBA

2 réponses

Discussions similaires