Affichage dans Combo

Papou-net à dit:

Bonjour jorisphi,

Il te suffit de modifier comme suit :

- Lignes en bleu à créer
- Lignes en rouge à supprimer

Code:

Private Sub ListBox1_Click()
Dim x As Long
x = CLng(ListBox1.List(ListBox1.ListIndex, 1))
With Sheets("Création")
     TextBox1 = .Cells(x, 6)
     TextBox2 = .Cells(x, 3)
     TextBox3 = .Cells(x, 4)
     TextBox4 = .Cells(x, 5)
     TextBox5 = .Cells(x, 2)
[COLOR="Red"][B]'     ComboBox5.RowSource = Range("G" & x & ":P" & x).Address
'     ComboBox6.RowSource = Range("G" & x & ":P" & x).Address
'     ComboBox7.RowSource = Range("G" & x & ":P" & x).Address
'     ComboBox8.RowSource = Range("G" & x & ":P" & x).Address
'     ComboBox9.RowSource = Range("G" & x & ":P" & x).Address[/B][/COLOR]
[COLOR="Blue"][B]    For ctl = 5 To 9
      Me.Controls("ComboBox" & ctl).Clear
      For cl = 7 To 16
        Me.Controls("ComboBox" & ctl).AddItem Cells(x, cl)
      Next
    Next[/B][/COLOR]
    ComboBox10 = .Cells(x, 12)
    ComboBox11 = .Cells(x, 13)
End With

End Sub

Espérant avoir aidé.

Cordialement.

Cliquez pour agrandir...

Bebere à dit:

bonjour Jorisphi
sur quelle ligne l'erreur(ligne en jaune)
essayé plusieurs fois,pas d'erreur(excel2003)
à bientôt

Cliquez pour agrandir...