Range

[bigcharlot]

Bonjour le forum,

Surement que l'a question a déjà été débatue...
Voilà, est-il possible à partir d'un USF de ranger la valeur d'une TextBox dans deux celules différentes.
D'avance merci

 

[Jacques87]

Bonjour

Voici une macro qui répondra à ta question

Si les cellules sont A1 et A2 de la Feuil1 et le textbox est TextBox1 de UserForm1

WorkSheets('Feuil1').Range('A1').Value = UserForm1.TextBOx1.Value
WorkSheets('Feuil1').Range('A2').Value = UserForm1.TextBOx1.Value

Bon Courage

 

[bigcharlot]

Bonjour Jacques, bonjour tout le monde,

Merci pour le tuyau, j'essaie

 

[bigcharlot]

Re bonjour à tous,

Pff ça marche pas Jacques, mais peut-être me suis-je mal exprimé :
Voici mon code :
Sheets('feuille1').Select
Range('a6').Select
ActiveCell = TextBox1.Value

Et j'aimerais mettre la même valeur dans une autre cellule afin d'effectuer un calcul

D'avance merci à tous,

Oups, mille excuses j'avais commis une bête faute dans mon code.
Jacques ça marche, merci.

Message édité par: bigcharlot, à: 16/02/2006 16:38