Erreur avec un listview vide

[nikkyb]

Bonjour,

tout est dans la question

J'ai essayé quelque chose du genre

If listview1 is nothing then
exit sub 
elseif then label 2 = Label1 + Label2
end if

je pensait que ca m'enpecherai le bug dans le cas ou la listview est vide mais ce n'ai pas le cas, avez vous une idée ?

2eme question: est il possible d'ajouter dans un userform un bouton pour rétrécir l'écran (à coté de la croix qui se trouve en haut à droite pour fermer et non dans l'userform ?)


Merci d'avance 😀

 

[soenda]

Re : Erreur avec un listview vide

Bonsoir le fil, nikkyb

Qu'appelles-tu, un "ListView" ?
Je sais ce qu'est un ComboBox ou un ListBox, en VBA.
Mais un ListView en VBA, je ne connais pas.

A plus

 

[nikkyb]

Re : Erreur avec un listview vide

Salut, c'est comme un listbox mais avec beaucoup plus de possibilité et des en tete clair.

Voilou

 

[soenda]

Re : Erreur avec un listview vide

Re,

Pour un ListBox, tu peux utiliser la propriété "text"

If ListBox1.Text = "" Then

Pour un ComboBox, tu peux utiliser la propriété "ListIndex"

If ComboBox1.ListIndex = -1 Then

J'ai pas de ListView dans les "contrôles supplémentaires" ...

A plus

 

[nikkyb]

Re : Erreur avec un listview vide

On peut le trouver dans contrôles supplémentaires à ce nom :

Microsoft listview controle, version 6

Avbientot

 

[Fo_rum]

Re : Erreur avec un listview vide

Salut

à essayer

 If ListView1.ListItems.Count = 0 Then
    Exit Sub
 Else
    ...
 End If

Pour la seconde question, je ne comprends pas. Que faut-il réduire, l'USF ou le classeur ?

 

[soenda]

Re : Erreur avec un listview vide

Re,

Merci nikkyb 🙂
Merci Fo_rum 🙂

A plus

 

[nikkyb]

Re : Erreur avec un listview vide

Salut

ca fonctionne parfaitement

Merci beaucoup!