Désactiver la Macro
Bonjour,
j'utilise la Macro ci-après pour protéger certaines cellules
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("c7:c200,e7:e200"), Target) Is Nothing Then
Target.Offset(0, 1).Select
End If
End Sub
Est il possible de désactiver cette macro le temps de copier des cellules qui sont
définies dans la macro.( exemple c10:c100)
Merci de votre réponse
Pierre
Bonjour,
une méthode rustique : ajoute Exit Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Exit Sub
If Not Intersect(Range("c7:c200,e7:e200"), Target) Is Nothing Then
Target.Offset(0, 1).Select
End If
End SubRe bonjour
J'ai besoin de la formule suivante
Sub copy1()
' Exit private sub ?????????????
Range("C6:E24").Select
Selection.Copy
Sheets("Feuil3").Select
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteValues
call private sub ??????????
End Sub
pouvez vous m'indiquer la syntaxe exacte
D'avance
Merci
Pierre
Bonjour Pierre, le forum,
tu peux écrire ta sub bien plus simplement :
Sub copy1()
'copie C6:E24 en Feuil3!C3 (valeurs seulement)
[C6:E24].Copy: [Feuil3!C3].PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Subdhany
Bonsoir,
j'ai sans doute mal formulé ma demande.
Ma question ne porte nullement sur la copy des cellules
mais comment copier des cellules qui sont protégées par la macro suivante
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("c7:c200,e7:e200"), Target) Is Nothing Then
Target.Offset(0, 1).Select
End If
End Sub
Quand je lance la macro de copie je dois désactiver la macro
ci dessus et la réactiver après copie.
Est ce possible ?
Merci de votre réponse
Pierre
essaye ceci :
Sub copy1()
With Application
.EnableEvents = False 'désactivation des événements
[C6:E24].Copy: [Feuil3!C3].PasteSpecial xlPasteValues
.CutCopyMode = False
.EnableEvents = True 'réactivation des événements
End With
End Subdhany
bonsoir
Super cela correspond tout à fait à ce que je recherchais
Merci
Pierre
merci pour ton retour !
dhany