Discussion :

[naynai]

bonjour,

j'ai une userform dans laquel j'ai un bouton "entrer valeur" et j'ai une textbox.
J'aimerai remplir les cellules d'une feuille excel de la facon suivante:

j'entre la valeur dans ma textbox
je valide
ma cellule C1 prends la valeur de la textbox
j'entre une autre valeur dans ma textbox
je valide
ma cellule C2 prends la valeur de la textbox
... ainsi de suite jusqu'à une valeur fini ( C17 par exemple)

Mes valeurs sont des nombres à virgule.
Comment est-ce que je peux faire?

[SfJ5Rpw8]

tiens inspitre toi de cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim i As Integer 'Variable globale à l'userform index valeur saisie
Private Sub CommandButton1_Click()
  ThisWorkbook.Sheets("Feuil1").Range("C" & i) = TextBox1
  i = i + 1
  Label1 = "Saisir valeur C" & i
End Sub
Private Sub UserForm_Activate()
 i = 1
 Label1 = "Saisir valeur C" & i
End Sub

j'ai rajouter un label (label1) pour message.... la valeur et saisie dans TextBox1...

[naynai]

Merci pour le code c'est exactement ce que je voulais.