Boucles et userforms controls.

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

Je ne suis sure ni de l'endroit ou il faut poster cette question ni de l'efficacité de mon intitulé, je suis donc ouvert a toute remarque concernant ces deux questions.

Concernant mon problème.

Je débute en VBA et j'essaie de créer des formulaire pour faciliter des tâches administrative.
Pour cela j'ai créer un Userform dans lequel il y a des textbox et combobox dont je désire copier les valeurs dans des cellules d'un tableau.
Cependant je ne sais pas combien à l'avance de text ou combobox il y aura dans mon userform car j'ai ajouté un bouton sur le userform pour en ajouter dynamiquement.

Mon but est de construire un code le plus simple possible pour copier chaque valeur de chaque box de mon userform dans les bonnes colonnes de mon tableau.
sachant que le userform comporte une ligne de controls regroupant ces infos :
Produit quantité unité prix
combobox1 txtbox1 cbbox2 txtbox2

A chaque fois que je clique sur le bouton d'ajout de control une ligne semblable a celle ci se rajoute sur le userform.

Je sais comment copier les valeur de la premiere ligne mais aucun idée pour copier celle des autres lignes

Voici le 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 Private Sub CommandButton1_Click() 'éditer la fiche ' info date , vendeur et PDV Sheets("saisie masque").Range("B3").Value = UserForm1.ComboBox3.Value Sheets("saisie masque").Range("D3").Value = UserForm1.ComboBox4.Value Sheets("saisie masque").Range("F3").Value = UserForm1.TextBox3.Value Sheets("saisie masque").Range("F4").Value = UserForm1.TextBox4.Value 'copier la premiere ligne de produits Sheets("saisie masque").Range("B7").Value = UserForm1.ComboBox1.Value Sheets("saisie masque").Range("C7").Value = UserForm1.TextBox1.Value + UserForm1.ComboBox2.Value Sheets("saisie masque").Range("D7").Value = UserForm1.TextBox2.Value 'copier les autres lignes ... ! Dim i As Integer Dim x As Integer Dim y As Integer y = (2 * x) + 2 x = 1 + (UserForm1.Height - 338.25) / 30 If x > 1 Then For i = 5 To y Next i End If End Sub
Alors les lignes en rouges représentent le code pour copier les valeurs de la premiere lignes de control

et en vert mes pistes pour recopier les autres ligne
(seulement des pistes)

voila une impr ecran de mon userform ( le bouton + ajoute une ligne d'infos sur le produit)
Pièce jointe 112037

Bonjour à tous
Bonjour Bobbcolin

Si j'ai bien compris :

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
Private Sub CommandButton1_Click()
Dim Ctrl As Control

Dim i as integer
Dim nb_ctrl as integer

'éditer la fiche
' info date , vendeur et PDV

' ATTENTION MODIIER LES "REPERES" DES COMBOBOX ET TEXTBOX => les "3" en "1" et les "4" en "2"
Sheets("saisie masque").Range("B3").Value = ComboBox1.Value
Sheets("saisie masque").Range("D3").Value = ComboBox2.Value
Sheets("saisie masque").Range("F3").Value = TextBox1.Value
Sheets("saisie masque").Range("F4").Value = TextBox2.Value

'copier la premiere ligne de produits
	'Sheets("saisie masque").Range("B7").Value = UserForm1.ComboBox1.Value
	'Sheets("saisie masque").Range("C7").Value = UserForm1.TextBox1.Value + UserForm1.ComboBox2.Value
	'Sheets("saisie masque").Range("D7").Value = UserForm1.TextBox2.Value
'copier les autres lignes ... !

' boucle pour compter le nombre de combobox
For Each Ctrl In Controls
    If  TypeName(Ctrl) = "ComboBox" Then nb_ctrl=nb_ctrl+1
Next Ctrl
' boucle pour copier
if nb_ctrl > 2 then
	 For i = 3 To nb_ctrl
		Sheets("saisie masque").Range("B" & 4+i).Value = controls("ComboBox" & i)
		Sheets("saisie masque").Range("C" & 4+i).Value = controls("Textbox" & i) * controls("ComboBox" & i+1)
		Sheets("saisie masque").Range("D" & 4+i).Value = controls("Textbox" & i+1)
	 Next i
end if

End Sub

Attention :
- il faut modifier les "repères" des 2 premiers controls : combobox et textbox
- en "C7" tu additionnes, il me semble que tu devrais multiplier ?

Une dernière petite précision, je n'ai pas pu tester

Eric

22/02/2013, 14h05
Bobbcolin

merci je vais essayer ça tout de suite !

1 pièce(s) jointe(s)

Cela ne marche pas ! Mais ta réponse ma beaucoup rapproché de la solution je le sent !!

résultat en image :

Pièce jointe 112149

comme on peut le voir je rentre trois produit ds mon formulaire et cela copie deux fois trop de ligne ds mon tableau !!

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
Private Sub CommandButton1_Click()
Dim Ctrl As Control

Dim i As Integer
Dim nb_ctrl As Integer

'éditer la fiche
' info date , vendeur et PDV

' ATTENTION MODIIER LES "REPERES" DES COMBOBOX ET TEXTBOX => les "3" en "1" et les "4" en "2"
Sheets("saisie masque").Range("B3").Value = ComboBox1.Value
Sheets("saisie masque").Range("D3").Value = ComboBox2.Value
Sheets("saisie masque").Range("F3").Value = TextBox1.Value
Sheets("saisie masque").Range("F4").Value = TextBox2.Value

'copier la premiere ligne de produits
    Sheets("saisie masque").Range("B7").Value = UserForm1.ComboBox3.Value
    Sheets("saisie masque").Range("C7").Value = UserForm1.TextBox3.Value + UserForm1.ComboBox4.Value
    Sheets("saisie masque").Range("D7").Value = UserForm1.TextBox4.Value
'copier les autres lignes ... !

' boucle pour compter le nombre de combobox
For Each Ctrl In Controls
    If TypeName(Ctrl) = "ComboBox" Then nb_ctrl = nb_ctrl + 1
Next Ctrl
' boucle pour copier
If nb_ctrl > 2 Then
     For i = 4 To nb_ctrl
        Sheets("saisie masque").Range("B" & 4 + i).Value = Controls("ComboBox" & i).Value
        Sheets("saisie masque").Range("C" & 4 + i).Value = Controls("Textbox" & i).Value + Controls("ComboBox" & i + 1).Value
        Sheets("saisie masque").Range("D" & 4 + i).Value = Controls("Textbox" & i + 1).Value
     Next i
End If

End Sub

En jaune la zone qui pose probleme (objet spécifié introuvable)

24/02/2013, 15h16
edelweisseric

Bonjour à tous
Bonjour Bobbcolin

Essaie avec :

Code:

Sheets("saisie masque").Range("C" & 4 + i).Value = Controls("Textbox" & i).Value & Controls("ComboBox" & i + 1).Value

Tu n'additionnes pas des quantités avec des "kg", mais tu concatènes.

Eric

Bonjour,
voila ce que j'ai fais pour que cela marche :

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
Private Sub CommandButton1_Click()
 
 
 
Dim Ctrl As Control
 
Dim i As Integer
Dim j As Integer
Dim nb_ctrl As Integer
'effacer les fiches precedentes
Range("recap").ClearContents
 
'éditer la fiche
' info date , vendeur et PDV
 
' ATTENTION MODIIER LES "REPERES" DES COMBOBOX ET TEXTBOX => les "3" en "1" et les "4" en "2"
Sheets("saisie masque").Range("B3").Value = ComboBox1.Value
Sheets("saisie masque").Range("D3").Value = ComboBox2.Value
Sheets("saisie masque").Range("F3").Value = TextBox1.Value
Sheets("saisie masque").Range("F4").Value = TextBox2.Value
 
'copier la premiere ligne de produits
    'Sheets("saisie masque").Range("B7").Value = UserForm1.ComboBox3.Value
    'Sheets("saisie masque").Range("C7").Value = UserForm1.TextBox3.Value + UserForm1.ComboBox4.Value
   ' Sheets("saisie masque").Range("D7").Value = UserForm1.TextBox4.Value
'copier les autres lignes ... !
 
' boucle pour compter le nombre de combobox
For Each Ctrl In Controls
    If TypeName(Ctrl) = "ComboBox" Then nb_ctrl = nb_ctrl + 1
    If TypeName(Ctrl) = "Textbox" Then nb_ctrl = nb_ctrl + 1
 
Next Ctrl
' boucle pour copier
If nb_ctrl > 2 Then
     For i = 3 To nb_ctrl Step 2
 
        Sheets("saisie masque").Range("B" & 4 + i).Value = Controls("ComboBox" & i).Value
        Sheets("saisie masque").Range("C" & 4 + i).Value = Controls("Textbox" & i).Value & Controls("ComboBox" & i + 1).Value
        Sheets("saisie masque").Range("D" & 4 + i).Value = Controls("Textbox" & i + 1).Value
     Next i
 
End If

j'ai mis une step sur i pour eviter qu'il ne copie deux fois les memes box mais ducoup cela remplie seuleument une ligne sur deux dans mon tableaux !

27/02/2013, 21h33
edelweisseric

Bonsoir à tous
Bonsoir Bobbcolin

Pourquoi as tu ajouté :

Code:

If TypeName(Ctrl) = "Textbox" Then nb_ctrl = nb_ctrl + 1

et

Code:

Step 2

Ce n'est pas étonnant que tu n'arrives pas au bon résultat
Avec la première ligne de code, tu doubles le nombre de "nb_ctrl" et avec la deuxième, tu dois sauter des "combobox et/ou textbox" et/ou des lignes
De plus, je ne sais pas comment tu ajoutes les combobox et textbox, mais je pense que tu vas avoir des soucis de ce côté là.
Eric