XL 2016 alimentation combobox

[filouplatchaud]

bonjour

Quand je clic sur une cellule de la feuille Réservation le UserForm2 s'ouvre
mais pour l'alimentation de ma combobox1
dans rowSource j'ai mi =Client!Nom ça fonctionne bien sauf que je suis obligé de choisir le client avec la liste je ne peux pas inscrire un nom au clavier sinon il y a plantage

merci pour votre aide

 

[Theze]

Bonsoir,

C'est normal qu'il y ai plantage, comme tu ne fais pas de choix dans la liste, ComboBox1.ListIndex est égal à -1 et donc -1+1 =0 et il n'existe pas de ligne 0 !

 

[filouplatchaud]

j'ai pas compris ou cela se trouve ?

 

[Theze]

Le plantage se trouve dans la procédure événementielle Change du ComboBox car la variable "no_ligne" est égale à 0 (survole la et tu verra la valeur dans l'infobulle).
Remplace le code par celui-ci :

Private Sub ComboBox1_Change()

    Dim no_ligne As Integer
   
    no_ligne = ComboBox1.ListIndex + 1
   
    If ComboBox1.ListIndex = -1 Then
   
        TextBox2.Value = ""
        TextBox3.Value = ""
        TextBox4.Value = ""
        TextBox6.Value = ""
        Exit Sub
       
    End If
   
    TextBox2.Value = Sheets("Clients").Cells(no_ligne, 3).Value
    TextBox3.Value = Sheets("Clients").Cells(no_ligne, 4).Value
    TextBox4.Value = Sheets("Clients").Cells(no_ligne, 2).Value
    TextBox6.Value = Sheets("Clients").Cells(no_ligne, 5).Value
    TextBox6.Visible = False

End Sub