Amélioration de code VBA

[isa44]

Bonjour à tous ,

J'ai un code VBA que je voudrais optimiser pour copier des valeurs sur plusieurs feuilles.
Fichier joint

 

[youky(BJ)]

Re : Amélioration de code VBA

Bonjour isa,
Voici une facon de faire
Bruno

Private Sub Worksheet_Change(ByVal Target As Range)
Range("Hall1").Copy
Sheets("Feuil2").Range("d5").PasteSpecial Paste:=xlPasteValues
Sheets("Feuil3").Range("d5").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

ou encore plus simple

Private Sub Worksheet_Change(ByVal Target As Range)
Feuil2.[D5:D33].Value = Range("Hall1").Value
Feuil3.[D5:D33].Value = Range("Hall1").Value
End Sub

 

[isa44]

Re : Amélioration de code VBA

Bonjour et merci pour les codes youky.
Je vais appliquer celui ci

Private Sub Worksheet_Change(ByVal Target As Range)
Range("Hall1").Copy
Sheets("Feuil2").Range("d5").PasteSpecial Paste:=xlPasteValues
Sheets("Feuil3").Range("d5").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

Je veux le mettre sur les 3 feuilles , mais comment empêcher que ça tourne en boucle ?

 

[youky(BJ)]

Re : Amélioration de code VBA

Bonjour isa,
Je comprends mal la question !
A moins que les macros doivent recopier dans les 2 autres onglets à chaque changement quelque soit l'onglet ou l'on se trouve.
Tu peux ausssi bloquer les événements "Change" en mettant en début de macro
Application.EnableEvents = False 'bloque évenement
et en fin de macro
Application.EnableEvents = True ' débloque évenement

comme cela tu peux modifier les données sans faire exécuter le "Worksheet_Change"
Bruno

 

[isa44]

Re : Amélioration de code VBA

Voila ce j'ai fait :

 

[youky(BJ)]

Re : Amélioration de code VBA

Regarde ce fichier
J'ai ajouté cette commande
If Intersect(Range(Target.Address), Range("Hall1")) Is Nothing Then Exit Sub
>>>Si le changement n'a pas lieu en hall1 on sort direct de la macro
Bruno

 

[isa44]

Re : Amélioration de code VBA

Bonsoir , super youky , c'est exactement ce que je voulais