modifier une macro par une autre macro

  • Initiateur de la discussion Initiateur de la discussion joel
  • 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 !

J

joel

Guest
Bonjour le forum

Peux on faire une commande macro pour que si en appuyant sur un bouton de command on puisse faire une insersion d'un code macro
dans la macro
exemple:

Private Sub CommandButton1_Click()
If Controls('Textbox1') = '' Then
MsgBox 'Vous devez ABSOLUMENT indiquer votre prénom !', vbExclamation, _
'ERREUR ... votre prénom SVP !'
Controls('Textbox1').SetFocus
Exit Sub
End If
[A1] = UserForm1.TextBox1
Unload UserForm1
End Sub

Qand on clique sur CommandButton2 on insere cette commande si dessous dans la macro de dessus


MsgBox 'Vous devez ABSOLUMENT indiquer votre nom !', vbExclamation, _

Merci a tous pour les reponses
 
Bonjour Joël,

Je ne sais pas si c'est possible, mais en tout cas très difficile à réaliser. Si je pense avoir compris ce que tu veux, il serait plus judicieux, quand on appuie sur le bouton OK (ou valider ...) de vérifier que tous les champs soient renseignés.

S'il ne le sont pas, on donne le focus au controle non renseigné

Sinon, joins ton fichier zippé (exemple.zip fonctionne très bien)
et on verra la suite

à+
Bertrand
 
Bonsoir Joel, mutzik.

Insérer du code VBA par macro est loin d'être chose facile... Aussi, si j'ai bien compris ton problème, je me permets de te suggérer une autre solution du type :

Private Sub CommandButton1_Click()
      If VerifSaisie(Textbox1, 'Prénom') Then Range('A1').Value = UserForm1.Textbox1.Text
End Sub

Private Sub CommandButton2_Click()
      If VerifSaisie(Textbox2, 'Nom') Then Range('A2').Value = UserForm1.Textbox2.Text
End Sub
'---------------------------------------------------------------------------------------
Function VerifSaisie(Ctrl As Control, T As String) As Boolean
      VerifSaisie = True
      If Ctrl.Text = '' Then
            VerifSaisie = False
            MsgBox 'Vous devez ABSOLUMENT indiquer votre ' & T & ' !', vbExclamation, _
            'ERREUR ... votre ' & T & ' SVP !'
            Ctrl.SetFocus
      End If
End Function

Concernant la manipulation du code VBA par macro, je ne puis que te conseiller la lecture de ce LIEN dans lequel notre ami _Thierry fait merveille.


Cordialement.
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
5
Affichages
684
Réponses
6
Affichages
2 K
Retour