Modifier la macro par une macro commandbuton

Bonsoir le forum

j'ai cree un commandbuton dans un userform et j'ai rentré ce code mais ça marche pas est ce que c'est possible d'adapter cette macro à ce type de bouton ?

Merci

Cordialement

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("E8").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("E8").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("E8").Select

End Sub
Sub MonBouton()
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

Bonsoir

Merci d'éditer ton précédent post et de mettre ton code entre balises [code][/ code] :evil:

(sans espace dans la 2ème balise)

A+

Bonjour

C'est fait BrunoM45

Re,

Heuu non

Il faut devant ton code mettre ce qu'il y a entre guillemets "[code ]" et à la fin de ton code "[ /code]"

(mais sans les guillemets, bien sur et sans l'espace dans les balises)

Ce qui devrait te donner un truc du style

Sub FACTURE3()
Range("E6") = "FACTURE"
Range("E8") = "FA0000001"
Range("A46:A49") = ""
Range("C6") = ""

Vois tu la différence !?

A+

Re bonjour BrunoM45

c'est comme ça

Re,

C'est parfait .. tu vois quand tu veux

Si ton bouton est dans un USF, il faut utiliser plutôt ce code

' CommandeButton1 est le nom du bouton
Private Sub CommandButton1_Click()
  Select Case Me.CommandButton1.Caption
    Case "FACTURE"
      Call FACTURE3
    Case "DEVIS"
      Call DEVIS3
    Case "ACOMPTE"
      Call ACOMPTE3
    Case Else
      MsgBox "Y'a comme un problème !"
  End Select
End Sub

A+

Re

J'ai copié ce code dans le code de commandbuton1 mais ça marche pas( l'élément portant ce nom est introuvable)

Je joints le fichier

Re,

Désolé, je pensais que tu aurais penser à modifier également les différentes Sub

Il faut changer

ActiveSheet.Shapes("MonBouton").Select
Selection.Characters.Text = "DEVIS"
Selection.Interior.ColorIndex = 30

par

  With Me.CommandButton1
    .Caption = "DEVIS"
    .BackColor = 30 ' il faut trouver la bonne couleur
  End With

A+

Merci BrunoM45 de m'avoir aider

c'est réglé c'est super