Automatisation copie valeur

[eduraiss]

Bonjour le forum

en cellule J1 je rentre par exemple 6110, j'aimerais si possible lorsque je valide par entrée, que cette valeur se copie en cellule "J63" "J80" "J140"

Merci de votre aide

Cordialement,

 

[Pierrot93]

Re : Automatisation copie valeur

Bonjour,

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

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
@+

 

[eduraiss]

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

 

[Pierrot93]

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)"

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

 

[eduraiss]

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

 

[Pierrot93]

Re : Automatisation copie valeur

Re,

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