Complément de code VBA
Résolu
JCB40
Messages postés
3013
Date d'inscription
Statut
Membre
Dernière intervention
-
JCB40 Messages postés 3013 Date d'inscription Statut Membre Dernière intervention -
JCB40 Messages postés 3013 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Complément de code VBA
- Code ascii - Guide
- Code de déverrouillage oublié - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
- Code blocks - Télécharger - Langages
2 réponses
Bonjour,
Un code du genre devrait correspondre à ton besoin
Un code du genre devrait correspondre à ton besoin
ActiveSheet.Cells(Rows.Count, "B").End(xlUp)(2).Select
merci pour ta réponse
ou placer le code ,je l'ai mis avant .Apply mais ça ne fonctionne pas.
Crdlt