Renvoyer valeurs d'un formulaire VBA sur excel de maniere incrémentale

Version imprimable

Bonjour à tous,

J'essaie éperduement depuis plusieurs heures d'enregistrer des valeurs d'un formulaire VBA sur un fichier Excel de sorte que chaque fois que j'enregistre de nouvelles valeurs, celles-ci soient enregistrées dans un tableau sur la colonne suivante.
Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub CommandButton1_Click()
    IndexOnglet1 = ComboBox1.ListIndex
    Q1 = ComboBox1.List(IndexOnglet1)
    IndexOnglet2 = ComboBox9.ListIndex
    Q2 = ComboBox9.List(IndexOnglet2)
    IndexOnglet3 = ComboBox10.ListIndex
    Q3 = ComboBox10.List(IndexOnglet3)
    IndexOnglet4 = ComboBox11.ListIndex
    Q4 = ComboBox11.List(IndexOnglet4)
    IndexOnglet5 = ComboBox5.ListIndex
    Q5 = ComboBox5.List(IndexOnglet5)
    IndexOnglet6 = ComboBox12.ListIndex
    Q6 = ComboBox12.List(IndexOnglet6)
    IndexOnglet7 = ComboBox13.ListIndex
    Q7 = ComboBox13.List(IndexOnglet7)
    IndexOnglet8 = ComboBox14.ListIndex
    Q8 = ComboBox14.List(IndxOnglet8)
 
Dim i As Integer, FL1 As Worksheet
       Set FL1 = Worksheets("Feuil1")
       i = FL1.Cells(1, 1).End(xlUp).Row + 1 
       FL1.Cells(2, i).Value = Q1
       FL1.Cells(3, i).Value = Q2
       FL1.Cells(4, i).Value = Q3
       FL1.Cells(5, i).Value = Q4
       FL1.Cells(6, i).Value = TextBox1
       FL1.Cells(7, i).Value = Q5
       FL1.Cells(8, i).Value = Q6
       FL1.Cells(9, i).Value = Q7
       FL1.Cells(10, i).Value = Q8
       FL1.Cells(11, i).Value = TextBox2
       FL1.Cells(12, i).Value = TextBox3
MsgBox "Questionnaire enregistré"
End Sub

Voila, merci d'avance

Bonjour,

Essayez ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub CommandButton1_Click()
 
Dim I As Integer, FL1 As Worksheet
 
    IndexOnglet1 = ComboBox1.ListIndex
    Q1 = ComboBox1.List(IndexOnglet1)
    IndexOnglet2 = ComboBox9.ListIndex
    Q2 = ComboBox9.List(IndexOnglet2)
    IndexOnglet3 = ComboBox10.ListIndex
    Q3 = ComboBox10.List(IndexOnglet3)
    IndexOnglet4 = ComboBox11.ListIndex
    Q4 = ComboBox11.List(IndexOnglet4)
    IndexOnglet5 = ComboBox5.ListIndex
    Q5 = ComboBox5.List(IndexOnglet5)
    IndexOnglet6 = ComboBox12.ListIndex
    Q6 = ComboBox12.List(IndexOnglet6)
    IndexOnglet7 = ComboBox13.ListIndex
    Q7 = ComboBox13.List(IndexOnglet7)
    IndexOnglet8 = ComboBox14.ListIndex
    Q8 = ComboBox14.List(IndxOnglet8)
 
    Set FL1 = Worksheets("Feuil1")
 
    With FL1
         I = .Cells(1, .Columns.Count).End(xlToLeft).Column + 1
         .cells(1,I) = "Questionnaire X"
        .Cells(2, I).Value = Q1
        .Cells(3, I).Value = Q2
        .Cells(4, I).Value = Q3
        .Cells(5, I).Value = Q4
        .Cells(6, I).Value = TextBox1
        .Cells(7, I).Value = Q5
        .Cells(8, I).Value = Q6
        .Cells(9, I).Value = Q7
        .Cells(10, I).Value = Q8
        .Cells(11, I).Value = TextBox2
        .Cells(12, I).Value = TextBox3
    End With
 
    Set FL1 = Nothing
 
    MsgBox "Questionnaire enregistré"
End Sub

Pensez à mettre un titre en ligne 1, puisque c'est la dernière colonne de la ligne 1 qui est testée.

Cordialement.

03/04/2016, 12h19
5emesoleil

Merci deja d'avoir pris le temps de répondre. Dans la forme, je comprends c'que vous avez fait et je pense que c'est la solution vers laquelle je tends, mais le code ne fonctionne pas. Ca n'enregistre meme plus mes réponses dans la première colonne, et bien sur, ca ne décale pas les réponses suivantes sur la colonne d'après :?
Ou peut etre le probleme ?
03/04/2016, 12h36
Invité

Citation:

Ca n'enregistre meme plus mes réponses dans la première colonne, et bien sur, ca ne décale pas les réponses suivantes sur la colonne d'après :?

Avez-vous "Questionnaire X" dans la dernière colonne de la première ligne ?

Cordialement.
03/04/2016, 12h46
5emesoleil

Non rien ne s'affiche, :calim2:

Cordialement.

Citation:

Envoyé par 5emesoleil

Non rien ne s'affiche, :calim2:

Cordialement.

Et avec ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Sub CommandButton1_Click()
 
Dim I As Integer, FL1 As Worksheet
 
    Set FL1 = Worksheets("Feuil1")
 
    With FL1
         I = .Cells(1, .Columns.Count).End(xlToLeft).Column + 1
         .Cells(1, I) = "Questionnaire X"
         .Cells(2, I) = ComboBox1
         .Cells(3, I) = ComboBox9
         .Cells(4, I) = ComboBox10
         .Cells(5, I) = ComboBox11
         .Cells(6, I) = TextBox1
         .Cells(7, I) = ComboBox5
         .Cells(8, I) = ComboBox12
         .Cells(9, I) = ComboBox13
         .Cells(10, I) = ComboBox14
         .Cells(11, I) = TextBox2
         .Cells(12, I) = TextBox3
    End With
 
    Set FL1 = Nothing
 
    MsgBox "Questionnaire enregistré"
 
End Sub

Cordialement.

La encore, les valeurs de mon formulaire ne s'enregistrent pas dans mon fichier Excel 8O Rien ne se passe.

Avec ce code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Dim I As Integer, FL1 As Worksheet Set FL1 = Worksheets("Feuil1") I = FL1.Cells(1, 1).End(xlToLeft).column + 1 FL1.Cells(2, I).Value = Q1 FL1.Cells(3, I).Value = Q2 FL1.Cells(4, I).Value = Q3 FL1.Cells(5, I).Value = Q4 FL1.Cells(6, I).Value = TextBox1 FL1.Cells(7, I).Value = Q5 FL1.Cells(8, I).Value = Q6 FL1.Cells(9, I).Value = Q7 FL1.Cells(10, I).Value = Q8 FL1.Cells(11, I).Value = TextBox2 FL1.Cells(12, I).Value = TextBox3 Set FL1 = Nothing MsgBox "Questionnaire enregistré" End Sub
Mes données s'enregistrent dans la première colonne de mon tableau mais ne se décalent pas à chaque nouvelles entrées de mon formulaire. J'ai essayé une boucle for qui incrémenterait mon i de la valeur 2 à 50 mais VBA plante (tout en enregistrant les valeurs saisies).

Merci

03/04/2016, 13h31
Invité

Citation:

Envoyé par 5emesoleil

La encore, les valeurs de mon formulaire ne s'enregistrent pas dans mon fichier Excel 8O Rien ne se passe.

Chez moi, ça fonctionne Pièce jointe 205776

Il faudrait mettre en ligne un classeur exemple (uniquement la partie concernée).

Cordialement.
03/04/2016, 13h33
Invité

Citation:

Envoyé par 5emesoleil

Mes données s'enregistrent dans la première colonne de mon tableau mais ne se décalent pas à chaque nouvelles entrées de mon formulaire. J'ai essayé une boucle for qui incrémenterait mon i de la valeur 2 à 50 mais VBA plante (tout en enregistrant les valeurs saisies).

C'est normal, car vous ne remplissez pas la ligne 1, vous n'avez pas tenu compte d'un de mes mails précédents. Si vous ne voulez pas de titre, testez la ligne 2 pour I.

Cordialement.
03/04/2016, 14h34
5emesoleil

J'ai réussi à adapter votre code à mon formulaire. Cela marche enfin ! Merci encore une fois d'avoir pris le temps de m'aider.

Bonne journée à vous,

Cordialement