Problème dans un code

Version imprimable

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:

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

24/11/2012, 11h09
lps02

Bonjour

Ne faut il pas plutot ecrire

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

et ainsi de suite
Cordialement
lps02
24/11/2012, 11h16
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:

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

une solution ?

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:

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

24/11/2012, 11h48
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...

Dans ce cas essaies :

Code:

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:

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

24/11/2012, 11h57
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...
24/11/2012, 12h04
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:

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

Essayes comme cela
cordialement

Toujours pas résolu

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:

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

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:

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

ou bien

Code:

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

26/11/2012, 13h53
jpfouquette

Malheureusement toujours pas...
26/11/2012, 13h58
goldstar

avec le fichier peut etre ????
26/11/2012, 14h15
jpfouquette

1 pièce(s) jointe(s)

le fichier

Voilà le fichier,

Le code concerne le boutton de l'Userform2

D'avance merci

Bonjour,
pour ton erreur :

Code:

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

26/11/2012, 14h41
goldstar

La feuille Feuil2 n'existe pas...
26/11/2012, 14h47
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" ?

Code:

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

26/11/2012, 14h51
jpfouquette

Merci encore

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

Code:

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:

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