Private Sub Worksheet_Change(ByVal Target As Range)

[Evelynetfrancois]

bonjour à tous

Grace à vous j ai obtenu cette macro qui fonctionne tres bien si CommandButton3 se trouve sur la feuille concernée
mais si je place le contenu de cette meme macro [Private Sub CommandButton3_Click()] dans un USF sur un OptionButton3 ça ne marche plus
et je ne comprend pas pourquoi !!
pouvez vous m aider a comprendre mon erreur?
je vous en remercie d avance
bonne soirée à tous
E et F

Public Flag As Boolean
___________________________________________________________
Private Sub CommandButton3_Click()
Range("D3:E600").Activate
Flag = 1
Selection.ClearContents
Range("A3").Select
End Sub
______________________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
If Flag = 0 Then
If Not Application.Intersect(Target, Range("E3:E65536")) Is Nothing Then
RETOUR = MsgBox("Voulez-vous valider cette commande ", 4 + vbInformation, " V A L I D A T I O N ")
If RETOUR = vbYes Then
Application.ScreenUpdating = False
Range("A" & ActiveCell.Row & ":F" & ActiveCell.Row).Copy
Sheets("COMMANDES").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
UserForm1.Show
Application.ScreenUpdating = True
End If
End If
End If
Flag = 0
End Sub

 

[pierrejean]

Re : Private Sub Worksheet_Change(ByVal Target As Range)

bonjour Evelynetfrancois

un petit fichier exemple nous simplifierait le debuggage

est-ce possible ?

 

[Evelynetfrancois]

Re : Private Sub Worksheet_Change(ByVal Target As Range)

bonsoir PierreJean
oups ! je viens de faire une version tres light !!
il m a fallu quelques minutes !!!

j espere erte clair dans mon fichier ........
a bientot
E et F

 

[bqtr]

Re : Private Sub Worksheet_Change(ByVal Target As Range)

Bonsoir Evelynetfrancois, pierrejean

Je pense que ton problème vient de la déclaration de la variable Flag.
Pour qu'elle soit applicable à toutes les procédures du classeur il faut la déclarer dans un module de code standard. (avant la première ligne de code)

Dans ton module 1, tout au début met ceci :

Option Explicit
Public Flag As Boolean

Et supprime la ligne dans le code du Userform et de la feuille Base.

Bonne fin de soirée

 

[Evelynetfrancois]

Re : Private Sub Worksheet_Change(ByVal Target As Range)

BONSOIR bqtr
c est tout a fait cela !!
je te remercie beaucoup pour ce super coup de pouce
je n'aurais pas trouver seul .
MERCI pour tout
bonne soirée
E et F