Bonjour,
j'ai déjà trouvé des pistes de réponse à ma question ci-dessous mais je ne sais pas comment articuler les différentes commandes en VBA... :-(
Alors j'explique mon problème au cas où une âme charitable ayant des connaissances voudrait bien me dépanner !
Dans un fichier Excel, j'utilise une macro qui permet de limiter les copier-coller des utilisateurs en copier-coller valeur, le fichier Excel contient pas mal de mises en forme conditionnelles qui pouvaient être "perturbées" par des copier-coller intempestifs... le problème c'est que je voudrais que cette macro ne s'exécute que sur une seule feuille (l'utilisateur peut avoir besoin de coller des mises en formes, des formules etc. à partir d'autres fichiers Excel sur une autre feuille du classeur).
Pour résumer, je voudrais que la macro ci-dessous ne s'applique qu'à ma feuille "MRE":
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
On Error Resume Next 'sécurité
With Application
If .CutCopyMode Then
.EnableEvents = False
.Undo
Selection.PasteSpecial xlPasteValues
.OnUndo "", ""
.OnRepeat "", ""
.EnableEvents = True
End If
End With
End Sub
Merci d'avance pour votre aide !!
j'ai déjà trouvé des pistes de réponse à ma question ci-dessous mais je ne sais pas comment articuler les différentes commandes en VBA... :-(
Alors j'explique mon problème au cas où une âme charitable ayant des connaissances voudrait bien me dépanner !
Dans un fichier Excel, j'utilise une macro qui permet de limiter les copier-coller des utilisateurs en copier-coller valeur, le fichier Excel contient pas mal de mises en forme conditionnelles qui pouvaient être "perturbées" par des copier-coller intempestifs... le problème c'est que je voudrais que cette macro ne s'exécute que sur une seule feuille (l'utilisateur peut avoir besoin de coller des mises en formes, des formules etc. à partir d'autres fichiers Excel sur une autre feuille du classeur).
Pour résumer, je voudrais que la macro ci-dessous ne s'applique qu'à ma feuille "MRE":
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
On Error Resume Next 'sécurité
With Application
If .CutCopyMode Then
.EnableEvents = False
.Undo
Selection.PasteSpecial xlPasteValues
.OnUndo "", ""
.OnRepeat "", ""
.EnableEvents = True
End If
End With
End Sub
Merci d'avance pour votre aide !!