Copier coller avec Worksheet_Change

[PAD]

Bonjour à tous,

Je me permets de vous demandez un peu d’aide pour ce bout de code, qui me sert a saisir des données de la feuille 1 qui est mon bouillon et, les transférer sur la feuille 2 qui est la copie finale.
J’ai bien réussi le transfert d'une cellule, mais je suis coincé avec plusieurs cellules.
Si une personne pouvait m’expliquer pourquoi mon bout de code ne va pas, ça serai gentil de sa part.


Code :
‘Mon premier bout de code :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$4" Then Target.Copy Sheets("Feuil2").Range("C21 ")
End Sub

‘Le but que je cherche à atteindre :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$4.$K$4" Then Target.Copy Sheets("Feuil2").Range("C21:K21")
End Sub

A bientôt Pad

 

[Staple1600]

Re : Copier coller avec Worksheet_Change

Bonjour



Et comme cela ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$4:$K$4" Then Target.Copy Sheets("Feuil2").Range("C21:K21")
End Sub

 

[kjin]

Re : Copier coller avec Worksheet_Change

Bonjour,
Sans plus de précisions...

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C4:K4")) Is Nothing Then
Range("C4:K4").copy Sheets("Feuil2").Range("C21:K21")
End Sub

A+
kjin

 

[Staple1600]

Re : Copier coller avec Worksheet_Change

Re, bonjour kjin



Une autre façon

Private Sub Worksheet_Change(ByVal Target As Range)
Dim saisie_ok As Byte
saisie_ok = Application.CountA(Range("C4:K4"))
If saisie_ok = 9 Then
Range("C4:K4").Copy Sheets("Feuil2").Range("C21:K21")
End If
End Sub

La recopie s'effectue si les cellules C4:k4 ne sont pas vides.

 

[PAD]

Re : Copier coller avec Worksheet_Change

Bonjour Staple1600, kjin,

Heureux de pouvoir vous lire et merci de me consacrer un peu de temps.

Staple1600, je ne sais pas si c'est parce que je suis sous excel 9.0 mais tes code ne déclenche rien, dommage peux-tu me dire c'est cela a un rapport?

Par contre kjin c'est bon ça fonctionne bien, j'ai fais un essai, je 'ai également tripoter un peu ton code afin de pouvoir prendre en compte un plage de cellule en lignes et colonnes, mais pas moyen je vais encore travailler dessus.

Merci encore de votre aide,

A bientôt Pad

 

[Staple1600]

Re : Copier coller avec Worksheet_Change

Re


Je suis également sous XL 2000

Et cela fonctionne

Saisis des valeurs dans chaque cellule de la plage C4:k4 de la feuille 1

A la fin de la saisie

Les données seront recopiées dans la feuille 2

 

[bqtr]

Re : Copier coller avec Worksheet_Change

Bonjour,

En adaptant le code de Kjin, essaye ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C4:K10")) Is Nothing Then Range("C4:K10").Copy Sheets("Feuil3").Range("C21")
End Sub

Ca fonctionne bien chez moi, cela copie le plage C4:K10 à chaque changement de valeur dans une cellule de cette plage.
Tu n'es pas obligé de mettre une plage équivalente comme destination de la copie, la cellule supérieure gauche de la plage de destination suffit.

A+