Enregistrer les données des textbox dans une feuille excel

**monichou86** · 30/12/2009, 15h59

Coucou tout le monde,

J'ai besoin d'aide. J'ai deux UserForm. Le premier possède une listView qui contient des données et le deuxième contient le détail de chaque donnée de la première ListView du premier UserForm. Donc en cliquant sur une donnée de la listView, on a accès au UserForm2. Ce dernier possède des textBox et un commandBouton_enregistrer. Donc pour une donnée sélectionner dans ma listView, j'ai 16 données au niveau de mon UserForm2.
Donc quand l'utlisateur clic sur Enregistrer, il enregistre les 16données dans une feuille excel comme le montre le code suivant

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
44
Private Sub Enregistrer()
Dim i%
 
NF$ = "Rex_Sauvegarde"
Exit Sub
'Efface les Données précédentes
i% = Sheets(NF$).Range("D65536").End(xlUp).Row
Sheets(NF$).Range("D2:D" & CStr(i%)).Clear
 
'Copie les données
Sheets(NF$).Range("D2").Value = TextBox1B
Sheets(NF$).Range("D3").Value = TextBox2B
Sheets(NF$).Range("D4").Value = TextBox3B
Sheets(NF$).Range("D5").Value = TextBox4B
Sheets(NF$).Range("D6").Value = TextBox5B
'Sheets(NF$).Range("D7").Value = TextBox6B car TextBox6B n'existe pas
Sheets(NF$).Range("D8").Value = TextBox7B
Sheets(NF$).Range("D9").Value = TextBox8B
Sheets(NF$).Range("D10").Value = TextBox9B
Sheets(NF$).Range("D11").Value = TextBox10B
Sheets(NF$).Range("D12").Value = TextBox11B
Sheets(NF$).Range("D13").Value = TextBox12B
Sheets(NF$).Range("D14").Value = TextBox13B
Sheets(NF$).Range("D15").Value = TextBox14B
Sheets(NF$).Range("D16").Value = TextBox15B
Sheets(NF$).Range("D17").Value = TextBox16B
 
'Copie les actions
i% = Sheets(NF$).Range("D65536").End(xlUp).Row
Sheets(NF$).Range("J2:N" & CStr(i%)).Clear
 
i% = ListBox2.ListCount
If i% > 0 Then
Sheets(NF$).Range("K2:K" & CStr(i% + 1)) = ListBox2.List
Sheets(NF$).Range("L2:L" & CStr(i% + 1)) = ListBox3.List
Sheets(NF$).Range("M2:M" & CStr(i% + 1)) = ListBox4.List
Sheets(NF$).Range("N2:N" & CStr(i% + 1)) = ListBox5.List
End If
 
If OptionButton1.Value = True Then Sheets(NF$).Range("H2").Value = "1"
If OptionButton2.Value = True Then Sheets(NF$).Range("H2").Value = "2"
If OptionButton3.Value = True Then Sheets(NF$).Range("H2").Value = "3"
 
End Sub

Cependant, je voudrais enregistrer chaque donnée sélectionné dans la listView c'est à dire que pour chaque donnée de la listView, je voudrais enregistrer les 16 données les unes à la suite des autres. Donc lors du premier enregistrement, j'aurai 16 données; lors du 2ème, 32 données et ainsi de suite.
Comment pourrais je incrémenter sur les cellules pour pouvoir enregistrer les données les unes à la suite des autres?

Help me, please

**mercatog** · 30/12/2009, 19h37

Bonsoir,
je me suis permis de simplifier le code. Si j'ai bien compris, les données seront enregistrées à la suite des anciennes

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
Private Sub Enregistrer()
Dim LastLig As Long
Dim i As Byte, j As Byte
 
With Sheets("Rex_Sauvegarde")
    LastLig = .Cells(.Rows.Count, 4).End(xlUp).Row + 1
    For i = LastLig To LastLig + 15
        If i Mod 7 <> 0 Then .Range("D" & i).Value = Me.Controls("TextBox" & i - LastLig + 1 & "B")
    Next i
 
    i = ListBox2.ListCount
    If i > 0 Then
        For j = 2 To 5
            .Range(.Cells(LastLig, 9 + j), .Cells(LastLig + i, 9 + j)) = Me.Controls("ListBox" & j).List
        Next j
    End If
 
    For j = 3 To 1 Step -1
        If Me.Controls("OptionButton" & j).Value = True Then
            .Range("H" & LastLig).Value = j
            Exit For
        End If
    Next j
End With
End Sub

**monichou86** · 04/01/2010, 09h10

Re,

Tout d'abord, Bonne annéee!!
Je ne comprends pas cette partie de ton code. Peux tu stp me l'expliquer si ce n'est pas trop demander?!
Merciii!!

Code :

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

1
2
3
4
5
6
For j = 3 To 1 Step -1
    If Me.Controls("OptionButton" & j).Value = True Then
        .Range("H" & LastLig).Value = j
         Exit For
    End If
Next j

De plus, j'ai une erreur qui se lance lors du débogage sur code:

"Le focus ne peut être déplacé sur le contrôle car celui-ci est invible; non activé ou d'un type n'acceptant oas le focus"

**mercatog** · 04/01/2010, 10h57

Bonjour,
c'était une première approximation par rapport aux données fournies dans ton post
que fait cette partie de ton code?

Code :

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

1
2
3
If OptionButton1.Value = True Then Sheets(NF$).Range("H2").Value = "1"
If OptionButton2.Value = True Then Sheets(NF$).Range("H2").Value = "2"
If OptionButton3.Value = True Then Sheets(NF$).Range("H2").Value = "3"

en Hx (x dernière ligne non? ou toujours la H2?) tu auras 3 si optionbutton3 est coché...

Code :

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

1
2
3
4
5
6
    For j = 3 To 1 Step -1
        If Me.Controls("OptionButton" & j).Value = True Then
            .Range("H" & LastLig).Value = j
            Exit For
        End If
    Next j

permet de parcourir tes optionbutton du 3 vers le 1 et écris le nombre correspondant dans Hx et sort de la boucle sur j

L'erreur est explicite, essaie de voir l'état de tes controles.

ps: ma proposition n'a pas été testée

**monichou86** · 04/01/2010, 14h04

Re mercatog,

ben oki je comprends mieux parcontre à quoi correspong LastLig? Si je comprends bien à la dernier ligne non vide?!!

**mercatog** · 04/01/2010, 14h56

LastLig correspond à la cellule en dessous de la dernière cellule remplie de la colonne D

**monichou86** · 05/01/2010, 09h44

Re,

ben en testant juste la première boucle avec LastLig, j'ai une erreur qui apparait: "Lobjet spécifié introuvable"

En modifiant un peu ton code, j'ai une erreur d'incompatilité de type. Pourras tu m'éclairer stp?

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
Dim LastLig As Long
Dim i As Byte, j As Byte
 
NF$ = "Rex_Sauvegarde"
Sheets(NF$).Activate
 
With Sheets(NF$)
 
'Copie les données
LastLig = .Cells(.Rows.Count, 4).End(xlUp).Row + 1 'ligne vide
For i = LastLig To LastLig + 15
   If i Mod 7 <> 0 Then .Range("D" & i).Value = Me.Controls("TextBox" & i - LastLig + 1 & "B")
Next i
 
i = ListBox2.ListCount
If i > 0 Then
   For j = 2 To 5
       .Range(.Cells(LastLig, 9 + j), .Cells(LastLig + i, 9 + j)) = Me.Controls("ListBox" + j).List
   Next j
End If
 
 
End With

**mercatog** · 05/01/2010, 11h50

désolé, j'avais déclaré i comme étant Byte! mais dans le corps i passait de LastLig à Lastlig+15 (qui est un Long)
j'ai fais une translation, ce qui donne:

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
Private Sub Enregistrer()
Dim LastLig As Long
Dim i As Byte,j As Byte
 
With Sheets("Rex_Sauvegarde")
    LastLig = .Cells(.Rows.Count, 4).End(xlUp).Row + 1
    For i = 0 To 15
        If i <> 5 Then .Range("D" & LastLig+i).Value = Me.Controls("TextBox" & i + 1 & "B")
    Next i
 
    i = ListBox2.ListCount
    If i > 0 Then
        For j = 2 To 5
            .Range(.Cells(LastLig, 9 + j), .Cells(LastLig + i, 9 + j)) = Me.Controls("ListBox" & j).List
        Next j
    End If
 
    For j = 3 To 1 Step -1
        If Me.Controls("OptionButton" & j).Value = True Then
            .Range("H" & LastLig).Value = j
            Exit For
        End If
    Next j
End With
End Sub

**monichou86** · 05/01/2010, 14h28

Mais j'ai quand une la même erreur au niveau de la deuxième boucle c-à-d au niveau du If i>0!!

**monichou86** · 05/01/2010, 14h41

Re,

Je tiens déjà à te remercier pour le temps que tu m'accordes et pour ton aide!!

c bon, il a lair de fonctionner mieux mais javais une erreur ki s'est lancé: Dépassement d'espace. Alors j'ai changé:

Code :

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

1
2
3
4
For j = 3 To 1 Step -1
 
Moficication:
For j = 1 To 3 Step 1

Voilà.Penses tu que ça ira? Parcontre, j'ai une autre question. Je voudrais que l'utlisateur ne dépasse pas 5enregistrements en tout. Comment puis je poser cette condition?

**mercatog** · 05/01/2010, 14h47

encore une autre fois désolé!

change la déclaration de i

Code :

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

Dim i As integer

Edit:
à force de réparer sans pour autant connaitre le but désiré, le travail est par moment bâclé (de ma part)
Question,
Que veux tu récupérer dans tes cellules Hx?

**monichou86** · 05/01/2010, 14h57

Je veux récupérer toutes les données rentrées et enregistrées par l'utilisateur. Au fait, j'ai une première UserForm1 avec une listView et un autre UserForm2 avec les textBox. Ainsi l'utilisateur en clikant sur une ligne dans la listView a accès au UserForm2.
Donc quand il finit de faire ces modifications, il enregistre. Mais moi je ne veux pas qu'il dépense 5enregistrements soient 5X16cellules dans ma feuille excel!!

Me comprends tu?

Dans les cellules H, je veus marqué le nom de loption que l'utilisateur a choisi!!

**mercatog** · 05/01/2010, 15h07

as tu changé i As integer?
que te donne

ta dernière question est à traiter à part plus tard

**monichou86** · 06/01/2010, 09h11

Re,

Ben oui j'ai changé et le code fonctionne. J'ai pas eu d'erreur ou autre.

Parcontre pourrais je,svp, avoir une aide sur ma dernière question?

**mercatog** · 06/01/2010, 11h25

Bonjour,
pour ta dernière question, si tu veux que lastlig ne dépasse pas 16x5. tu peux faire une condition sur LastLig.

Si tu peux expliciter mieux que tu sous entends qu'un utilisateur ne peut entrer plus de 5 enregistrement?

**monichou86** · 06/01/2010, 11h33

Ben pour le nombre d'enregsitrement, pour l'instant jne veux pas le prendre en compte.

Cependant, j'aimerais savoir comment je peux copier le contenu d'une feuille vers une autre feuille?

**mercatog** · 06/01/2010, 15h24

Bonjour,
ouvre un autre sujet sur le forum en explicitant clairement ta nouvelle question

Enregistrer les données des textbox dans une feuille excel [XL-2003]

Macros et VBA Excel

Discussions similaires

Partager

Partager