Associé trois macros à un bouton
Bonjour le Forum
Grasse à votre aide j'ai pu associé deux macros à un bouton et ça marche et là j'ai rajouté une macro ,mais j'ai deux qui marche avec le bouton,j'aimerai bien savoir d’où vient le problème
Merci
Cordialement
voila ma fameuse macro
Sub FACTURE3()
Range("E6") = "FACTURE"
Range("E8") = "FA0000001"
Range("A46:A49") = ""
Range("C6") = ""
Sheets("les données").Range("D24").Copy Sheets("Devis Factures P1").Range("A47")
ActiveSheet.Shapes("MonBouton").Select
Selection.Characters.Text = "DEVIS"
Selection.Interior.ColorIndex = 30
Range("A54").Select
End Sub
Sub DEVIS3()
Range("E6") = "DEVIS"
Range("E8") = "DE0000001"
Range("C6") = ""
Sheets("les données").Range("D26:D29").Copy Sheets("Devis Factures P1").Range("A46")
ActiveSheet.Shapes("MonBouton").Select
Selection.Characters.Text = "ACOMPTE"
Selection.Interior.ColorIndex = 23
Range("A54").Select
End Sub
Sub ACOMPTE3()
Range("C6") = "AVOIR D'ACOMPTE"
Range("E8") = "AC0000001"
Range("A46:A49") = ""
Range("E6") = ""
Sheets("les données").Range("D24").Copy Sheets("Devis Factures P1").Range("A47")
ActiveSheet.Shapes("MonBouton").Select
Selection.Characters.Text = "FACTURE"
Selection.Interior.ColorIndex = 30
Range("A54").Select
End Sub
Sub MonBouton()
ActiveSheet.Shapes("MonBouton").Select
If Selection.Characters.Text = "FACTURE" Then
Call FACTURE3
Else
Call DEVIS3
Call ACOMPTE3
End If
End Sub
Bonsoir
A tester, mais sans fichier pas facile
Sub essai()
ActiveSheet.Shapes("MonBouton").Select
If Selection.Characters.Text = "FACTURE" Then
Call FACTURE3
ElseIf Selection.Characters.Text = "DEVIS" Then
Call DEVIS3
ElseIf Selection.Characters.Text = "ACOMPTE" Then
Call ACOMPTE3
End If
End Sub
CB60 a écrit :Bonsoir
A tester, mais sans fichier pas facile
Sub essai()
ActiveSheet.Shapes("MonBouton").Select
If Selection.Characters.Text = "FACTURE" Then
Call FACTURE3
ElseIf Selection.Characters.Text = "DEVIS" Then
Call DEVIS3
ElseIf Selection.Characters.Text = "ACOMPTE" Then
Call ACOMPTE3
End If
End Sub
Merci CB60
C'est règlé
Bonne soirée