Discussion :

[m93.fred]

Bonjour
mon problème est trés simple seulement je ne connais pas la bonne synthaxe...
j'ai un bouton qui me permet d'alimenter une cellule [A1] via une userform :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub TextBox1_Change()
   [A1] = UserForm1.TextBox1
End Sub

Pour alimenter une cellule de ma feuille pas de probléme en revanche si je veux alimenter une cellule située sur une autre feuille, je ne connais pas la synthaxe... par exemple la cellule 'B2' de ma feuille 'Param'...
j'ai essayé avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub TextBox1_Change()
   Sheets("Param").Cells(B, 2) = UserForm1.TextBox1
End Sub

mais ça ne marche pas
Merci

[Jean-Pierre49]

Bonjour
Dans ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub TextBox1_Change()
Sheets("Param").Cells(B, 2) = UserForm1.TextBox1
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(B, 2)

devrait être remplace par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(2, 2)

car avec tu trouveras

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(rwIndex, colIndex)

[m93.fred]

ok merci

[AlainTech]

Un petit clic sur ?

Merci

[JackOuYA]

B

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub TextBox1_Change()
   Sheets("Param").Cells(B, 2) = UserForm1.TextBox1
End Sub

où bien .. :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkBook.Sheets("Param").range("B2") = UserForm1.TextBox1