transformer macro auto en macro bouton

[almas]

bonjour le forum

je rage , j 'ai un code qui me fait un tri auto ,par date,sur une feuille quand on saisie cette date.

le soucis c 'est que c 'est pénible car il y a plein d autre chose a saisir sur la ligne et qu 'il faut aller rechercher la ligne dans la base de donnée pour finir de remplir.

je veux donc juste insérer un bouton"Actualiser" pour déclencher le tri

je me suis dit qu 'il suffisait de changer :Private Sub Worksheet_Change par Private Sub CommandButton1_Click()

mais non ,trop simple ^^
j' ai essayer plein de chose mais je pert un temps infinis et je trouve pas
je me doute que la solution n 'est pas trop compliquer mais j 'ai encore besoin de vous


le code auto:
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("MANIF").Select
Static EnCours As Boolean 'Evite l'effet de boucle sur l'évènement Change()
If EnCours Then Exit Sub
If Not Application.Intersect(Target, Range("b:B")) Is Nothing Then
EnCours = True
Range("A:Z").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
EnCours = False
End If
End Sub

la date référence ce saisie dans la colonne B

 

[M12]

Re : transformer macro auto en macro bouton

Bonjour

Teste

Private Sub Bouton_click()
Sheets("MANIF").Select

Range("A:Z").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

End Sub

 

[almas]

Re : transformer macro auto en macro bouton

bonjour M12 ce passe rien

je met bien le code dans la feuil?

faut que je nome la macro et la lie au bouton?

 

[M12]

Re : transformer macro auto en macro bouton

Re,

Tu crée un bouton.
Clic droit affecter une macro
Nouvelle
et tu colles le code (sauf le SUB..... et le END SUB)

 

[almas]

Re : transformer macro auto en macro bouton

merci M12
ca fonctionne bien et code bien plus simple je le comprend mieux lui ^^

merci encore

a++

 

[M12]

Re : transformer macro auto en macro bouton

Re,

Si ton bouton est sur la feuille MANIF
tu peux supprimer Sheets("MANIF").Select