ComboBox quand il n'y a qu'1 ligne

[Kim75]

Bonsoir le forum,

Quelqu’un aurait-il l’amabilité de me dire comment remédier à la ComboBox qui plante lorsqu’il n’y a qu’une seule ligne de données dans la plage de données ?

J’utilise la méthode List simple :

Private Sub UserForm_Initialize()
With Sheets("Database")
    ComboBox1.List = .Range("A1:A" & .Range("A65536").End(xlUp).Row).Value
End With
End Sub

Pourrait-on afficher la ligne de données unique même lorsqu’elle est la seule à figurer dans la base ? Et pourrait-on aussi afficher un message indiquant qu’il n’y a pas de données lorsque la plage de données est vide ?

Merci pour votre aide, Kim

 

[fhoest]

Re : ComboBox quand il n'y a qu'1 ligne

Bonsoir,
essaie ceci:

Private Sub UserForm_Initialize()
    Dim x As Long
        With Sheets("Feuil3")
     ComboBox1.Clear
     x = .Range("G65536").End(xlUp).Row
     If x = 2 Then
     ComboBox1.AddItem .Range("g2").Value
     Else
     ComboBox1.List = .Range("G2:G" & x).Value
    End If
    End With
End Sub

A+

 

[Kim75]

Re : ComboBox quand il n'y a qu'1 ligne

Meci fhoest 🙂

Bien à toi, Kim.

 

[ROGER2327]

Re : ComboBox quand il n'y a qu'1 ligne

Bonsoir à tous

Une autre proposition :

[COLOR="DarkSlateGray"][B]Private Sub UserForm_Initialize()
    With Sheets("Feuil3")
        ComboBox1.List = .Range("G2:G" & .Range("G65536").End(xlUp).Row + 2).Value
    End With
    ComboBox1.RemoveItem (ComboBox1.ListCount - 1)
    ComboBox1.RemoveItem (ComboBox1.ListCount - 1)
End Sub[/B][/COLOR]

(Pas très élégant, mais ça a l'air de fonctionner...)​

ROGER2327
#3536

Samedi 7 Merdre 137 (Nativité de Monsieur Plume, propriétaire, SQ)
5 Prairial An CCXVIII
2010-W21-1T20:17:57Z

 

[Temjeh]

Re : ComboBox quand il n'y a qu'1 ligne

Bonjour

Une autre solution:

Private Sub UserForm_Initialize()
For I = 1 To Range("A" & Range("A65536").End(xlUp)).Row
    ComboBox1.AddItem [Feuil1].Cells(I, 1)
Next I
End Sub

A++

Temjeh

 

[ROGER2327]

Re : ComboBox quand il n'y a qu'1 ligne

Bonsoir Temjeh

Bien vu ! Revenir à la simplicité est souvent une bonne idée !​

ROGER2327
#3544

Dimanche 8 Merdre 137 (Cocuage de Monsieur le Père Ubu, SS)
6 Prairial An CCXVIII
2010-W21-2T23:26:28Z

 

[Kim75]

Re : ComboBox quand il n'y a qu'1 ligne

Merci Roger, merci Temjeh,

C’est très utile de connaître diverses façons de faire, non seulement pour l'alternative, mais aussi pour l’apprentissage, surtout dans mon cas.

Bien à vous, Kim.