Relier deux codesVBA

Bonjour

J'ai deux codes VBA que je souhaite relier ensemble, mais je ne sais pas ce que je dois écrire pour commencer:

Premier code :

Private Sub TxtPrenom_Change ()

If TxtPrenom <>"" then

Second code

Private Sub CboSer_Change()

If CboSer<>"" then

Ensemble

Private Sub .............????

If TxtPrenom <>"" and CboSer <>"" then

Merci et Bonne journée

M

Bonjour,

Ton message est assez énigmatique ...

A priori tu voudrais fusionner le code d'une TextBox avec le code d'une ComboBox ...

Si les deux évènements doivent utiliser la même macro ... tu peux pour les deux ... avoir :

Application.Run("MaMacro")

En espèrant que cela t'aide ...

Bonjour,

Il serait préférable d'utiliser la procédure événementielle "Exit" plutôt que "Change" mais bon, à toi de voir :

Private Sub TxtPrenom_Change()
    If TxtPrenom <> "" Then Commune
End Sub

Private Sub CboSer_Change()
    If CboSer <> "" Then Commune
End Sub

Sub Commune()

    If TxtPrenom <> "" And CboSer <> "" Then

        'ici le code si les deux TextBox sont remplis

    End If

End Sub

Bonjour et merci pour les réponses....

Etant quelque peu novice en VBA , j'ai simplifié ma demande en ajoutant un message d'erreur si la case n'est pas renseignée.

Si la combo box ou la text box est vide : Merci de renseigner toutes les cases

Bon dimanche à tous

M

Merci ... pour tes remerciements ...