Complément de code VBA
Résolu
JCB40
Messages postés
3058
Date d'inscription
Statut
Membre
Dernière intervention
-
JCB40 Messages postés 3058 Date d'inscription Statut Membre Dernière intervention -
JCB40 Messages postés 3058 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
Commence par faire le nécessaire ,puis fait ce qu'il est possible de faire et tu réaliseras l'impossible sans t'en apercevoir
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
Commence par faire le nécessaire ,puis fait ce qu'il est possible de faire et tu réaliseras l'impossible sans t'en apercevoir
2 réponses
-
Bonjour,
Un code du genre devrait correspondre à ton besoinActiveSheet.Cells(Rows.Count, "B").End(xlUp)(2).Select
-
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
