XL 2016 alimentation combobox

filouplatchaud · 2 Novembre 2017

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 · 2 Novembre 2017

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 · 2 Novembre 2017

j'ai pas compris ou cela se trouve ?

Theze · 2 Novembre 2017

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 :

Code:

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

XL 2016 alimentation combobox

filouplatchaud

XLDnaute Occasionnel

Pièces jointes

Theze

XLDnaute Occasionnel

filouplatchaud

XLDnaute Occasionnel

Theze

XLDnaute Occasionnel

Discussions similaires