modifier le code d'une macro en code pour macro commandbuton dans un userform

  • Initiateur de la discussion Initiateur de la discussion youan
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

youan

XLDnaute Nouveau
Bonsoir le forum
SVP
J'ai une macro qui marchait bien sur un bouton normal et j'ai crée un commandbutton dans un userform ,est ce que c'est possible de modifier le code de cette macro pour qui sert au code de commandbutton?.
Merci
Cordialement
voila la macro
Sub enregistrer()
Dim LePath As String, LeNom As String
MsgBox "Enregistre"
If UCase(Range("E6")) = "DEVIS" Then
' LePath = ThisWorkbook.Path & "\"
LePath = "C:\Users\ait haddou\Documents\sud est travaux\DEVIS\"
ElseIf UCase(Range("E6")) = "FACTURE" Then
' LePath = ThisWorkbook.Path & "\"
LePath = "C:\Users\ait haddou\Documents\sud est travaux\Factures\"
ElseIf UCase(Range("C6")) = "AVOIR D'ACOMPTE" Then
' LePath = ThisWorkbook.Path & "\"
LePath = "C:\Users\ait haddou\Documents\sud est travaux\Factures\"
Else
MsgBox "Vérifier le nom dans E6"
Exit Sub
End If

ActiveSheet.Copy
LeNom = [B12] & Format([E8], "ddmmyyyyhhmm") & ".xls"
ActiveWorkbook.SaveAs LePath & LeNom
ActiveWorkbook.Close
Range("E8") = Range("E8")
Range("E8").Select
End Sub

Sub Archiver()
'
' gestiondevis Macro
'

' On est dans la page "Devis Factures P1"
MsgBox "Archiver"
With Sheets("Gestion Devis factures")
If UCase(Range("E6")) = "DEVIS" Then
.Range("A3:G3").Insert Shift:=xlShiftDown
.Range("A3:F3").Value = Array(CDate(Range("E7")), Range("E8"), Range("B12"), Range("E47"), Range("E48"), Range("E49"))
.Range("A3:G3").Interior.ColorIndex = xlNone
Else
.Range("I3😛3").Insert Shift:=xlShiftDown
.Range("I3😛3").Value = Array(CDate(Range("E7")), Range("E8"), Range("B12"), Range("E47"), Range("E48"), Range("E49"), Range("E53"), Range("E54"))
.Range("I3😛3").Interior.ColorIndex = xlNone
Range("E8").Select
End If
End With
End Sub
Sub MonBouton3()
ActiveSheet.Shapes("MonBouton3").Select
If Selection.Characters.Text = "Enregistrer" Then
Selection.Characters.Text = "Archiver"
Call enregistrer
ElseIf Selection.Characters.Text = "Archiver" Then
Selection.Characters.Text = "Enregistrer"
Call Archiver
End If
End Sub
 
Re : modifier le code d'une macro en code pour macro commandbuton dans un userform

Bonsoir
Quel problème rencontrez vous à mettre ce code dans l'évènement Click du bouton, c'est à dire dans la procédure dont le modèle s'installe simplement en double cliquant su le bouton du userform ?
Cordialement.
 
Re : modifier le code d'une macro en code pour macro commandbuton dans un userform

Bonsoir youan ou dois-je dire ait haddou

Je t'ai donné une réponse sur l'autre forum 😡

merci de ne pas venir polluer tous les forums Benjg100_boulet.gif
 

Pièces jointes

  • Benjg100_boulet.gif
    Benjg100_boulet.gif
    5.5 KB · Affichages: 104
  • Benjg100_boulet.gif
    Benjg100_boulet.gif
    5.5 KB · Affichages: 99
Re : modifier le code d'une macro en code pour macro commandbuton dans un userform

Bonsoir comme tu veux
Je suis pas une bombe pour polluer , j'ai demandé l'aide depuis hier sur le forum (excel pratique) j'avais pas de réponse et je l'ai demandé sur ce Forum
Je sais pas il est ou le problème BrunoM45
J'ai jamais manquer de respect à quoique ce soi
Merci de votre compréhension
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour