Complément de code VBA [Résolu]

Signaler
Messages postés
2059
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
12 septembre 2020
-
Messages postés
2059
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
12 septembre 2020
-
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 Macro
Sheets("Saisie").Range("B3:M969").Select
ActiveWorkbook.Worksheets("Saisie").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Saisie").Sort.SortFields.Add Key:=Range("B3"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Saisie").Sort
.SetRange Range("B3:M969")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub






Configuration: Windows / Firefox 70.0


2 réponses

Messages postés
29570
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
20 septembre 2020
2 785
Bonjour,

Un code du genre devrait correspondre à ton besoin
ActiveSheet.Cells(Rows.Count, "B").End(xlUp)(2).Select

Messages postés
2059
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
12 septembre 2020
340
Bonjour jordane
merci pour ta réponse
ou placer le code ,je l'ai mis avant .Apply mais ça ne fonctionne pas.
Crdlt
Messages postés
2059
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
12 septembre 2020
340
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