Copie données textbox vers feuilles

Bonjour a tous

Je viens solliciter votre aide pour une manipulation.

J'aimerai copier les valeurs de plusieur textbox vers d'autres feuilles du meme classeur. J'ai essayer avec un code mais il ya un decalage entre les lignes et je bloque sur la resolution de ce probleme.

Merci par avance pour votre aide

Bonjour,

Un essai ... voir si ça convient.

ric

Merci pour la reponse ric

Cela marche mais s'applique a toute les feuille du classeur. Serait-il possible par exemple de limiter les copies à certaine feuille uniquement et ne pas toucher a d'autre?

Bonjour,

C'est basé sur ton code ... il était construit ainsi.

Pour chacune des feuilles que tu veux exclure, mets en commentaire le bloc concerné.

Exemple, tu veux exclure la feuille DEX3 ...

''   With Sheets("DEX3")
''      X = .Cells(1, "A").End(xlDown).Row
''      .Range("A" & X & ":z" & X).ListObject.ListRows.Add (X)
''      .Range("A" & X + 1) = TextBox1
''      .Range("B" & X + 1) = TextBox2
''      .Range("C" & X + 1) = TextBox3
''      .Range("D" & X + 1) = TextBox4
''   End With

Remarque que tu peux aussi le supprimer au lieu de le mettre en commentaire.

ric