Discussion :

[5emesoleil]

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 :

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

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

[Invité]

Bonjour,

Essayez ça :

Code :

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

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.

[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 ?

[Invité]

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.

[5emesoleil]

Non rien ne s'affiche,

Cordialement.

[Invité]

Non rien ne s'affiche,

Cordialement.

Et avec ça :

Code :

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

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.