Bonsoir
J'ai créé une proc qui lance un userform lorsque je clique dans certaines
cellules
Selection_Change.
Mais voilà, parfois je fais des copier/coller et le userform se lance.
Comment faire afin d'interdire le lancement du Userform pendant la proc
copier/coller ?
Merci beaucoup
Vincent
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
michdenis
Bonsoir Vincent,
Pas sûr d'avoir compris et pas sûr que cela réponde à ta problématique :
En début de code, tu inscris :
'--------------------- If Application.CutCopyMode = 1 Then Exit Sub End If '---------------------
Sinon, tu vas devoir être plus explicite dans ta demande et probablement publier ton code .
Salutations!
"Vincent" a écrit dans le message de news: Bonsoir J'ai créé une proc qui lance un userform lorsque je clique dans certaines cellules Selection_Change. Mais voilà, parfois je fais des copier/coller et le userform se lance. Comment faire afin d'interdire le lancement du Userform pendant la proc copier/coller ? Merci beaucoup Vincent
Bonsoir Vincent,
Pas sûr d'avoir compris et pas sûr que cela réponde à ta problématique :
En début de code, tu inscris :
'---------------------
If Application.CutCopyMode = 1 Then
Exit Sub
End If
'---------------------
Sinon, tu vas devoir être plus explicite dans ta demande et probablement publier ton code .
Salutations!
"Vincent" <V.herlat@tiscali.fr> a écrit dans le message de news:e4zlHiguEHA.2012@TK2MSFTNGP15.phx.gbl...
Bonsoir
J'ai créé une proc qui lance un userform lorsque je clique dans certaines
cellules
Selection_Change.
Mais voilà, parfois je fais des copier/coller et le userform se lance.
Comment faire afin d'interdire le lancement du Userform pendant la proc
copier/coller ?
Merci beaucoup
Vincent
Pas sûr d'avoir compris et pas sûr que cela réponde à ta problématique :
En début de code, tu inscris :
'--------------------- If Application.CutCopyMode = 1 Then Exit Sub End If '---------------------
Sinon, tu vas devoir être plus explicite dans ta demande et probablement publier ton code .
Salutations!
"Vincent" a écrit dans le message de news: Bonsoir J'ai créé une proc qui lance un userform lorsque je clique dans certaines cellules Selection_Change. Mais voilà, parfois je fais des copier/coller et le userform se lance. Comment faire afin d'interdire le lancement du Userform pendant la proc copier/coller ? Merci beaucoup Vincent
docm
Bonjour.. Probablement en plaçant dans l'événement Change le code suggéré par michdenis pour y modifier une variable de niveau module (appelée ici ChangementEnCours) qui permettra de détecter le collage avant la survenue de l'événement SelectionChange.
Dim ChangementEnCours As Boolean
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Application.CutCopyMode = 1 Then ChangementEnCours = True End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If ChangementEnCours = False Then '... 'Userform1.Show End If
ChangementEnCours = False
End Sub
Amicalement.
"michdenis" wrote in message news:uz7$
Bonsoir Vincent,
Pas sûr d'avoir compris et pas sûr que cela réponde à ta problématique :
En début de code, tu inscris :
'--------------------- If Application.CutCopyMode = 1 Then Exit Sub End If '---------------------
Sinon, tu vas devoir être plus explicite dans ta demande et probablement publier ton code .
Salutations!
"Vincent" a écrit dans le message de news:
Bonsoir J'ai créé une proc qui lance un userform lorsque je clique dans certaines cellules Selection_Change. Mais voilà, parfois je fais des copier/coller et le userform se lance. Comment faire afin d'interdire le lancement du Userform pendant la proc copier/coller ? Merci beaucoup Vincent
Bonjour..
Probablement en plaçant dans l'événement Change le code suggéré par
michdenis
pour y modifier une variable de niveau module (appelée ici
ChangementEnCours) qui permettra de détecter le collage avant la survenue de
l'événement SelectionChange.
Dim ChangementEnCours As Boolean
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Application.CutCopyMode = 1 Then
ChangementEnCours = True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If ChangementEnCours = False Then
'...
'Userform1.Show
End If
ChangementEnCours = False
End Sub
Amicalement.
"michdenis" <michdenis@hotmail.com> wrote in message
news:uz7$kciuEHA.2856@TK2MSFTNGP15.phx.gbl...
Bonsoir Vincent,
Pas sûr d'avoir compris et pas sûr que cela réponde à ta problématique :
En début de code, tu inscris :
'---------------------
If Application.CutCopyMode = 1 Then
Exit Sub
End If
'---------------------
Sinon, tu vas devoir être plus explicite dans ta demande et probablement
publier ton code .
Salutations!
"Vincent" <V.herlat@tiscali.fr> a écrit dans le message de
news:e4zlHiguEHA.2012@TK2MSFTNGP15.phx.gbl...
Bonsoir
J'ai créé une proc qui lance un userform lorsque je clique dans certaines
cellules
Selection_Change.
Mais voilà, parfois je fais des copier/coller et le userform se lance.
Comment faire afin d'interdire le lancement du Userform pendant la proc
copier/coller ?
Merci beaucoup
Vincent
Bonjour.. Probablement en plaçant dans l'événement Change le code suggéré par michdenis pour y modifier une variable de niveau module (appelée ici ChangementEnCours) qui permettra de détecter le collage avant la survenue de l'événement SelectionChange.
Dim ChangementEnCours As Boolean
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Application.CutCopyMode = 1 Then ChangementEnCours = True End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If ChangementEnCours = False Then '... 'Userform1.Show End If
ChangementEnCours = False
End Sub
Amicalement.
"michdenis" wrote in message news:uz7$
Bonsoir Vincent,
Pas sûr d'avoir compris et pas sûr que cela réponde à ta problématique :
En début de code, tu inscris :
'--------------------- If Application.CutCopyMode = 1 Then Exit Sub End If '---------------------
Sinon, tu vas devoir être plus explicite dans ta demande et probablement publier ton code .
Salutations!
"Vincent" a écrit dans le message de news:
Bonsoir J'ai créé une proc qui lance un userform lorsque je clique dans certaines cellules Selection_Change. Mais voilà, parfois je fais des copier/coller et le userform se lance. Comment faire afin d'interdire le lancement du Userform pendant la proc copier/coller ? Merci beaucoup Vincent
