modifier une macro par une autre macro

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
 

mutzik

XLDnaute Barbatruc
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
 

myDearFriend!

XLDnaute Barbatruc
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.
 

Discussions similaires

Statistiques des forums

Discussions
312 492
Messages
2 088 914
Membres
103 983
dernier inscrit
AlbertCouillard