Renvvoyer valeur avec worksheet_change

Arpette · 7 Mars 2013

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 · 7 Mars 2013

Re : Renvvoyer valeur avec worksheet_change

Bonjour Arpette,

avec ce code:

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 · 7 Mars 2013

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.

Code:

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

Renvvoyer valeur avec worksheet_change

Arpette

XLDnaute Impliqué

Pièces jointes

phlaurent55

Nous a quittés en 2020

Arpette

XLDnaute Impliqué

Discussions similaires

Renvvoyer valeur avec worksheet_change

Arpette

XLDnaute Impliqué

Pièces jointes

phlaurent55

Nous a quittés en 2020

Arpette

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency