Discussion :

[jpfouquette]

Bonjour à tous,

Premier message sur ce forum je me met à peine au Vba
et he rencontre un problème dans un code

explication :

J'ai créé un bouton qui ouvre un Userform "renseignements"

Cet Userform contient :

Textbox1
Textbox2
TextBox3
Combobox1 'ici s'affiche 4 possibilités
Textbox4

et CommandButton1 'bouton valider

Mon souhait, que les 5 données soit reporté sur une "feuil5"

Voici le code que j'ai fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
Range("Feuil5")("D6").Value = Renseignements.TextBox1.Text
   Unload Me
Range("Feuil5")("D8").Value = Renseignements.TextBox2.Text
   Unload Me
Range("Feuil5")("D11").Value = Renseignements.TextBox3.Text
   Unload Me
Range("Feuil5")("D13").Value = Renseignements.ComboBox1.Text
   Unload Me
Range("Feuil5")("D17").Value = Renseignements.TextBox4.Text
   Unload Me
 
End Sub

Mais celui ci m'indique :
Erreur d'éxécution '1004'
La méthode "range" de l'objet '_global' a échoué

Pouvez me dire quelle est mon erreur ?

Merci

[lps02]

Bonjour

Ne faut il pas plutot ecrire

Sheets("feuil5").range(....).Value

et ainsi de suite
Cordialement
lps02

[jpfouquette]

Merci pour ta réponse
Ca me met désormais

"erreur d'éxécution '9':
L'indice n'appartient pas à la sélection"

En me sélexctionnant la première ligne :

Code :

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

Sheets("feuil5").Range("D6").Value = Renseignements.TextBox1.Text

une solution ?

[lps02]

Essaie donc comme ça
Par contre ce sont les "valeurs" de tes textbox que tu dois entrer.

Attention de voir comment tu as nommés tes texbox dans le userform

Il faut que tu revois ta méthode

Cordialement
lps02

Code :

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

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
Sheets("Feuil5").Range("D6").Value = Renseignements.TextBox1.Value
Sheets("Feuil5").Range("D8").Value = Renseignements.TextBox2.Value
Sheets("Feuil5").Range("D11").Value = Renseignements.TextBox3.Value
Sheets("Feuil5").Range("D13").Value = Renseignements.ComboBox1.Value
Sheets("Feuil5").Range("D17").Value = Renseignements.TextBox4.Value
 
End Sub

essaie de consulter ce cours dans les tutoriels
http://silkyroad.developpez.com/VBA/UserForm/
Ce sont les propriétés "name de tes controles que tu dois reporter dans ton programme.
Cordialement
lps02

[jpfouquette]

Même erreir le nom de mes textbox sont bien ceux là

Les noms indiqués sont biens les "NAME"

Renseignements = Nom de l'Userform
Feuil5 = feuille 5
Textbox 1, combobox1... sont les bons également...

[lps02]

Dans ce cas essaies :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
 
With Sheets("Feuille5")
.Range("D6").Value = Renseignements.TextBox1.Value
.Range("D8").Value = Renseignements.TextBox2.Value
.Range("D11").Value = Renseignements.TextBox3.Value
.Range("D13").Value = Renseignements.ComboBox1.Value
.Range("D17").Value = Renseignements.TextBox4.Value
 End With
End Sub

Excuses moi si le nom de ta feuille est feuille 5 alors :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
 
With Sheets("feuille 5")
.Range("D6").Value = Renseignements.TextBox1.Value
.Range("D8").Value = Renseignements.TextBox2.Value
.Range("D11").Value = Renseignements.TextBox3.Value
.Range("D13").Value = Renseignements.ComboBox1.Value
.Range("D17").Value = Renseignements.TextBox4.Value
 End With
End Sub

Tu dois reporter le nom de ta feuille.

Cordialement

[jpfouquette]

GRRRRR ca va me rendre dingue
Toujour la même erreur :s
Je vais partir en week end là dessus ca va me bouffer ...
en éspérant trouver la solution lundi...