Un peu d'aides SVP !!

[Ugo]

Bonjour, à tous. tout d'abord pour situer le context je commence à peine à découvir l'univers formidable qu'offre Excel et le VBA.

Pou expliquer mon pb, je cherhce à faire scanner des valeurs dans des combobox(1, 2, 3 ....) à l'aide d'une boucle.... est-ce possible :

voici mon début de code, qui bien entendu ne peut pas fonctionner mais c'est pour aider !!! :

Dim j As Integer
For j = 1 To 16
If CheckBoxj.Value = True Then
Dim i As Integer
For i = 7 To 42
Dim f As Integer, g As Integer
f = j + 1
g = j + 2
If Worksheets(1).Range("B" & i).Value = TextBoxg.Text Then
Worksheets(1).Range("C" & i) = TextBoxj.Text
Worksheets(1).Range("D" & i) = TextBoxf.Text
End If
Next i
End If
Next j


Voila, je vous remercie.

 

[Benoit Cornille]

Salut,
Je ne vois nulle part dans ton code, une référence à un ou des ComboBox.
De mémoire, pour connaitre les entrées d'un ComboBox, j'utilise l'instruction Index. Attention, ça commence à 0 (zéro).
Benoit,

Longue vie et prospère.

 

[Ugo]

merci, ........ mais je me suis un peu inversé dans les mots, en fait je cherchais a scanner une suite de checkbox et textbox ..... j'ai trouver une solution du genre :

Dim j As Integer, check As String
For j = 1 To 16
check = "CheckBox" & j
If choix(check).Value = True Then
Dim i As Integer
For i = 7 To 42
Dim e As Integer, f As Integer, g As Integer, text0 As String, text1 As String, text2 As String
e = 1 + 3 * (j - 1)
f = 2 + 3 * (j - 1)
g = 3 + 3 * (j - 1)
test0 = "TextBox" & e
test1 = "TextBox" & f
test2 = "TextBox" & g
If Worksheets(1).Range("B" & i).Text = choix(test2).Text Then
Worksheets(1).Range("C" & i) = choix(test0).Text
Worksheets(1).Range("D" & i) = choix(test1).Text
End If
Next i
End If
Next j


voila, si ça peut aider !!!

 

[zon]

Bonjour à tous et toutes,

Je n'ai pas le temps de faire un code propre maintenant, (mais ce soir oui), par contre si j'ai bien compris:


Tu as 16 checkbox et 48 Textbox.

Si checkbox1 est coché alors

B7=Textbox1,C7=Textbox1,D7=Textbox3

Je pense qu'il faudrait déjà mettre la valeur de tes checkbox et de tes text box dans 4 tableaux ....


Ce serait sympas d'envoyer un fichier avec ton USF remplie déjà de tous ces contrôles....