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...

[lps02]

Vérifie quand même quel sont les "caption" de ton userform et les name de tes contrôles et veille à les reporter scrupuleusement
Exemple :si mon TextBox a pour name "Txtessai"
alors

Dans la feuille 5 la cellule A1

Code :

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

Sheets("feuille 5").Range("A1").Value=Me.Txtessai.value

Essayes comme cela
cordialement

[jpfouquette]

Bonjour, toujours cette "erreur d'éxécutuion 9" "l'indice n'appartient pas à la sé&lection"

Qui apparaît ... j'essaye de trouver sur les différents forum je ne vois pas mon erreur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 Private Sub CommandButton1_Click()
Sheets("Feuil2").Range("C10").Value = TextBox1.Value
 
Sheets("Feuil2").Range("C12").Value = TextBox2.Value
 
Sheets("Feuil2").Range("C17").Value = TextBox3.Value
 
Sheets("Feuil2").Range("C18").Value = ComboBox1.Value
 
Sheets("Feuil2").Range("C14").Value = TextBox4.Value
 
End Sub

Ils disent partout de bien vérifier les Noms c'est ce que j'ai fait mais n'y fait ! Ce me bloque à la première ligne de code...

Help please

[goldstar]

Bonjour,

As tu plusieurs classeurs excel ouverts ?

Si c'est le cas il faut que tu active le claseur sur lequel tu travail.

exemple:

Code :

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

1
2
 
Workbooks("TOTO.xls").Activate

ou bien

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Workbooks("TOTO.xls").Sheets("Feuil2").Range("C10").Value = TextBox1.Value
 
Workbooks("TOTO.xls").Sheets("Feuil2").Range("C12").Value = TextBox2.Value
 
Workbooks("TOTO.xls").Sheets("Feuil2").Range("C17").Value = TextBox3.Value
 
Workbooks("TOTO.xls").Sheets("Feuil2").Range("C18").Value = ComboBox1.Value
 
Workbooks("TOTO.xls").Sheets("Feuil2").Range("C14").Value = TextBox4.Value
 
End Sub

Cordialement

[jpfouquette]

Malheureusement toujours pas...

[goldstar]

avec le fichier peut etre ????

[jpfouquette]

Voilà le fichier,

Le code concerne le boutton de l'Userform2

D'avance merci

[casefayere]

Bonjour,
pour ton erreur :

Code :

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

1
2
3
4
5
6
7
With Sheets("Reçu")
  .Range("C10").Value = TextBox1.Value
  .Range("C12").Value = TextBox2.Value
  .Range("C17").Value = TextBox3.Value
  .Range("C18").Value = ComboBox1.Value
  .Range("C14").Value = TextBox4.Value
End With

D'autres erreurs subsistent à mon avis

[goldstar]

La feuille Feuil2 n'existe pas...

[jpfouquette]

Merci !!!
Pourtant le "name" de la feuille reçu est "feuil2" m'enfin Merci beaucoup pour votre aide,

Au passage un conseil pour m'indiquer comment ajouter que lorsque qu'on clique sur le bouton en + de remplir les cases dénommées on soit dirigé vers la feuille "reçu" ?

[casefayere]

Code :

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

1
2
3
4
5
6
7
8
With Sheets("Reçu")
  .Range("C10").Value = TextBox1.Value
  .Range("C12").Value = TextBox2.Value
  .Range("C17").Value = TextBox3.Value
  .Range("C18").Value = ComboBox1.Value
  .Range("C14").Value = TextBox4.Value
  .Activate 'ici
End With

[jpfouquette]

Merci encore

[casefayere]

fais aussi l'essai avec le codename, histoire de voir le résultat :

Code :

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

1
2
3
4
5
6
7
8
With Feuil2'CodeName
  .Range("C10").Value = TextBox1.Value
  .Range("C12").Value = TextBox2.Value
  .Range("C17").Value = TextBox3.Value
  .Range("C18").Value = ComboBox1.Value
  .Range("C14").Value = TextBox4.Value
  .Activate
End With

ou encore :

Code :

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

1
2
3
4
5
6
7
8
With Sheets(2)
  .Range("C10").Value = TextBox1.Value
  .Range("C12").Value = TextBox2.Value
  .Range("C17").Value = TextBox3.Value
  .Range("C18").Value = ComboBox1.Value
  .Range("C14").Value = TextBox4.Value
  .Activate
End With

à toi de voir le plus rationnel