Comment intégrer une procédure dans une au?

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

T

today

Guest
Bonjour, comme indiqué dans l'intitulé , je souhaite intégrer les procédures d'un fichier dans un autre.
Pourriez-vous m'aider SVP ?

Je déposerai les procédures par couple et la première proc sera à intégrer dans la seconde ( il y aura 3 couples ).

Premier couple :
Option Explicit

Private Sub Worksheet_Activate()
cligno
End Sub

____________________________
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
'condition : si la modification à lieu dans la colonne B et sur une seule cellule
If Target.Column = 2 And Target.Count = 1 Then
'si la cellule à gauche de la cellule éditée est vide, message
If Target.Offset(0, -1) = "" Then
MsgBox "Veuillez d'abord saisir le n° du coupon."
Target.Offset(0, -1).Select 'place le curseur dans la cellule de gauche
End If
End If 'fin de la condition
End Sub

Merci par avance
 
Re : Comment intégrer une procédure dans une au?

Bonjour Today

pas tout compris, pourrais tu préciser, tu parles de 3 couples, je ne vois que 2 procédures événementielles qui à priori n'ont rien à voir entre elles. Sinon mets pete être un petit fichier sans données confidentielles, plus pratique pour t'aider.

bonne fin d'après midi
@+
 
Re : Comment intégrer une procédure dans une au?

merci pour votre aide.

En fait j'ai un fichier ADHERENTS dans lequel je voudrais intégrer des procédures se trouvant dans le fichier Classeurs4 et qui permettra de faire clignoter une image Wordart GESTION DES COTISATIONS.

je vous joins les fichiers
 

Pièces jointes

- 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
41
Affichages
1 K
Réponses
15
Affichages
786
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
1 K
Retour