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