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