Renvvoyer valeur avec worksheet_change

[Arpette]

Bonsoir à toutes et tous,
je souhaite renvoyer les valeurs saisies en feuille 1 vers la première cellule vide de ma feuille 2.
Je n'arrive pas à positionner sur sur cette dernière.
Meci de votre aide
@+

 

[phlaurent55]

Re : Renvvoyer valeur avec worksheet_change

Bonjour Arpette,

avec ce code:

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets(2).Range("A" & Sheets(2).Range("A65535").End(xlUp).Row + 1) = Target
End Sub

Attention: La cellule A35 de la feuille 2 doit être vide
il faut "défusionner" cette cellule
le texte qu'elle contient peut être déplacé vers la droite

à+
Philippe

 

[Arpette]

Re : Renvvoyer valeur avec worksheet_change

Bonsoir Philippe et merci pour ce code.
J'ai juste modifié pour ne pas à avoir à défusionner les cellules.

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets(2).Range("A" & Sheets(2).Range("A34").End(xlUp).Row + 1) = Target'ici je commence à A34
End Sub

Encore merci
@+