Empêcher un code avant un autre.

Le
Guy72
Bonjour,
Dans ce code (raccourci).

Private Sub Nouveau_Click()
[BM12:CK43].Copy Destination:=[J12]
[A1].Select
End Sub

Je souhaiterais, que dans le code ci-dessus , il y ai une interdiction de
faire démarrer le code suivant, tant que le code ci-dessus n'as pas été
effectué ?

Private Sub Worksheet_Change(ByVal Target As Range)
etc..
j'ai :
If Not Intersect(Target, [L3]) Is Nothing And Target.Count = 1 Then
[J12:AH43].Copy Destination:=[BM12]
End If

Merci de votre aide.
--
Cordialement
Guy
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
TiMike
Le #17614061
Bonsoir,
Voici une idée:
1)dans un module général tu déclares une variable
Public bDone as boolean
2) en fin de Nouveau_Click tu ajoutes
bDone = True
3) dans Worksheet_Change tu mets au début
If Not bDone then Exit Sub

J'espère t'avoir aidé
Cordialement

"Guy72" news:
Bonjour,
Dans ce code (raccourci).

Private Sub Nouveau_Click()
[BM12:CK43].Copy Destination:=[J12]
[A1].Select
End Sub

Je souhaiterais, que dans le code ci-dessus , il y ai une interdiction de
faire démarrer le code suivant, tant que le code ci-dessus n'as pas été
effectué ?

Private Sub Worksheet_Change(ByVal Target As Range)
etc.....
j'ai :
If Not Intersect(Target, [L3]) Is Nothing And Target.Count = 1 Then
[J12:AH43].Copy Destination:=[BM12]
End If

Merci de votre aide.
--
Cordialement
Guy



Guy72
Le #17619951
Bonsoir TiMike
Merci de ton aide, je vais essayer;
--
Cordialement
Guy
"TiMike"
Bonsoir,
Voici une idée:
1)dans un module général tu déclares une variable
Public bDone as boolean
2) en fin de Nouveau_Click tu ajoutes
bDone = True
3) dans Worksheet_Change tu mets au début
If Not bDone then Exit Sub

J'espère t'avoir aidé
Cordialement

"Guy72" news:
Bonjour,
Dans ce code (raccourci).

Private Sub Nouveau_Click()
[BM12:CK43].Copy Destination:=[J12]
[A1].Select
End Sub

Je souhaiterais, que dans le code ci-dessus , il y ai une interdiction de
faire démarrer le code suivant, tant que le code ci-dessus n'as pas été
effectué ?

Private Sub Worksheet_Change(ByVal Target As Range)
etc.....
j'ai :
If Not Intersect(Target, [L3]) Is Nothing And Target.Count = 1 Then
[J12:AH43].Copy Destination:=[BM12]
End If

Merci de votre aide.
--
Cordialement
Guy






Publicité
Poster une réponse
Anonyme