Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Empêcher un code avant un autre.

Empêcher un code avant un autre.

2 réponses
Avatar
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
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
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" a écrit dans le message de
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



Avatar
Guy72
Bonsoir TiMike
Merci de ton aide, je vais essayer;
--
Cordialement
Guy
"TiMike" a écrit dans le message de news:

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" a écrit dans le message de
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