[RESOLU] Boucle avec combobox & textbox

[maninwhite]

Bonjour à toutes et à tous

J'ai une combobox dans laquelle je choisis un numéro de semaine (de 1 à 52)
J'ai un textbox dans laquelle un résultat apparait en fonction du choix du combobox graçe à au code ci dessous

Private Sub CommandButton_resultats2_Click()
  
    If ComboBox_semaine2.Value = "1" Then

        TextBox_resultats2.Value = Range("B2").Value
        
            End If
            
    If ComboBox_semaine2.Value = "2" Then

        TextBox_resultats2.Value = Range("B3").Value
        
            End If
            
    If ComboBox_semaine2.Value = "3" Then

        TextBox_resultats2.Value = Range("B4").Value
        
            End If

End Sub

Comment racourcir le code avec une boucle ou autre chose?

Je ne vais aps m'amuser à tapper 52 fois le code lol.

Merci

 

[youky(BJ)]

Re : Boucle avec combobox & textbox

Bonjour,
Un code . . .à voir le +2 à régler en fonction
Bruno

Private Sub CommandButton_resultats2_Click()
If ComboBox1.ListIndex = -1 Then Exit Sub
TextBox_resultats2.Value = Range("B" & ComboBox1.ListIndex [COLOR="Red"]+ 2[/COLOR]).Value
End Sub

 

[Habitude]

Re : Boucle avec combobox & textbox

A tester, 3 solutions

'Cells
TextBox_resultats2.Value = Cells(ComboBox_semaine2.ListIndex+ 2, 2)

'Range
TextBox_resultats2.Value = Range("B" & ComboBox_semaine2.ListIndex+ 2)

'Offset
TextBox_resultats2.Value = Range("B2").Offset(ComboBox_semaine2.ListIndex, 0)

 

[maninwhite]

Re : Boucle avec combobox & textbox

Cela ne marche pas

Could not set the value properly

 

[youky(BJ)]

Re : Boucle avec combobox & textbox

Re,

Private Sub CommandButton_resultats2_Click()
If ComboBox1.ListIndex = -1 Then Exit Sub
TextBox_resultats2.Value =Sheets("Usine").Range("B" & ComboBox1.ListIndex + 2).Value
End Sub

Bruno

 

[maninwhite]

Re : Boucle avec combobox & textbox

Ton code marche impec youky(BJ) , je te remercie.

Merci également à toi Habitude même si je n'ai pas réussi à faire fonctionner ton code😛