Macro tri
nicos
-
Mytå Messages postés 4246 Date d'inscription Statut Contributeur Dernière intervention -
Mytå Messages postés 4246 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
je n'arrive pas à trouver pourquoi mon bouton change de numéro à chaque fois
que je demande le tri.
Je vous joins la macro:
Sub tri()
'
' tri Macro
'
'
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("C1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("A1:C100")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveSheet.Buttons.Add(243, 30.75, 50.25, 30).Select
Selection.OnAction = "tri"
End Sub
merci pour votre aide
je n'arrive pas à trouver pourquoi mon bouton change de numéro à chaque fois
que je demande le tri.
Je vous joins la macro:
Sub tri()
'
' tri Macro
'
'
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("C1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("A1:C100")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveSheet.Buttons.Add(243, 30.75, 50.25, 30).Select
Selection.OnAction = "tri"
End Sub
merci pour votre aide
A voir également:
- Macro tri
- Comment faire un tri personnalisé sur excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Logiciel tri photo - Guide
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
merci pour ta réponse rapide
comment faire justement pour que je puisse inscrire sur ce bouton valider et
que cela ne change pas
crdlt
Tu fais un clique droit sur ton bouton, et ensuite sélectionne modifier le texte.
Mytå