Automatisation copie valeur

Pierrot93

XLDnaute Barbatruc

• 12 Octobre 2011

• #2

Re : Automatisation copie valeur

Bonjour,

essaye ceci, à placer dans le module de la feuille concernée :

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$1" Then Range("J63,J80,J140").Value = Target.Value
End Sub

bonne journée
@+

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 12 Octobre 2011

• #3

Re : Automatisation copie valeur

Re

Bonjour Pierrot

Merci pour ton aide, je veins de mettre le code dans la feuille, mais j'ai un bug car dans la feuille j'ai déjà un "Private Sub Worksheet_Change(ByVal Target As Range)"
Merci

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 12 Octobre 2011

• #4

Re : Automatisation copie valeur

Re,

Merci pour ton aide, je veins de mettre le code dans la feuille, mais j'ai un bug car dans la feuille j'ai déjà un "Private Sub Worksheet_Change(ByVal Target As Range)"

Cliquez pour agrandir...

il faut un seul même événement par module de feuille, il faut regrouper les codes dans le même...

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 12 Octobre 2011

• #5

Re : Automatisation copie valeur

Re,

ok c'est bon, mais si je voulais copier le valeur de J1 dans une feuille qui est "codedate' en cellule "B11" que deviendrais le code

merci

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 12 Octobre 2011

• #6

Re : Automatisation copie valeur

Re,

Code:

Sheets("NomFeuille").Range("B11").Value = Target.Value

 

Vote positif 0 Vote négatif