Complément de code VBA [Résolu]

Messages postés
1261
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
12 novembre 2019
-
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


Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
26747
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
12 novembre 2019
1877
1
Merci
Bonjour,

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

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 70865 internautes nous ont dit merci ce mois-ci

JCB40
Messages postés
1261
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
12 novembre 2019
159 -
Bonjour jordane
merci pour ta réponse
ou placer le code ,je l'ai mis avant .Apply mais ça ne fonctionne pas.
Crdlt
Commenter la réponse de jordane45
Messages postés
1261
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
12 novembre 2019
159
0
Merci
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
Commenter la réponse de JCB40