Erreur avec listview vba excel

solene85 Messages postés 391 Date d'inscription   Statut Membre Dernière intervention   -  
solene85 Messages postés 391 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour
Lorsque j'ouvre mon application et que je clique directement sur ma listview vierge j'ai un message d'erreur 91 - variable objet ou de bloc non défini, ce que je comprends très bien puisque ma listview n'a pas été initialisée.
Comment puis je générer un message dans une msgbox pour signaler l'erreur et résoudre ce soucis. par exemple un msg "Vous avez oublié de cocher etc....."

merci pour votre aide
A voir également:

6 réponses

Réponse 1 / 6
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

sinon il y a sûrement une méthode pour vérifier si la listview est nulle ou vide.

Oui il y a un moyen, compter les lignes de la listview comme ceci à mettre dans la Sub de remplissage à la fin avant End Sub
Ajouter un label nommé lblcount 

lblcount = ListView1.ListItems.Count & " fichier" & IIf(ListView1.ListItems.Count > 1, "s", "") 'compte les fichiers


et dans l'évènement clic de ta listview au debut, mettre ceci: 

Private Sub ListView1_Click()
If lblcount = "0 fichier" Then Exit Sub


Si vous pouvez éviter de vous servir de

On Error Resume Next

Car cela peut cacher d'autres erreurs (bug)!!!!!!!!

Salut à Maurice
1
solene85 Messages postés 391 Date d'inscription   Statut Membre Dernière intervention   14
 
merci cs_Le Pivert
j'ai bien noté la solution.
Avec la réponse de Maurice "OptionButton1.Value = True" je n'ai plus besoin de faire un contrôle et je peux donc enlever le "On Error Resume Next"
0
Réponse 2 / 6
Maurice
 
bonjour
sans voir ton modele on ne peux pas savoir
surtout sur une Listeview
A+
Maurice
0
Réponse 3 / 6
solene85 Messages postés 391 Date d'inscription   Statut Membre Dernière intervention   14
 
Bonsoir Maurice,

je te joins un de tes fichiers
si je clique directement sur la listview sans autre préalable cela génère un message d'erreur
je voudrais que si je clique directement sur cette listview et
qu'elle soit vide ou nulle je puisse afficher un msg d'erreur
via une msgbox

merci


https://www.cjoint.com/c/EBtvjYff1Oz
0
Réponse 4 / 6
solene85 Messages postés 391 Date d'inscription   Statut Membre Dernière intervention   14
 
C'est très simple et efficace, en effet

sinon il y a sûrement une méthode pour vérifier si la listview est nulle ou vide. Si tu as le temps pourrais tu m'éclairer merci

Pour ce qui concerne mon travail d'hercule j'en suis aux ultimes contrôles
j'ai constitué un dossier épais comme çà avec toutes les infos que me fournies. merci Maurice
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
Maurice
 
Bonjour
tu peux aussi mettre a la fin de Activate
je prefere 
OptionButton1.Value = True

A+
Maurice
0
solene85 Messages postés 391 Date d'inscription   Statut Membre Dernière intervention   14
 
Merci Maurice avec cette réponse je n'ai plus besoin de mettre "On Error Resume Next" puisque l'option Vaisselle apparaît par défaut
0
Réponse 6 / 6
Maurice
 
Bonjour
ses pas fini dur
une astuse mettre On Error Resume Next dans le Sub 
Private Sub ListView1_Click()
On Error Resume Next
Lig = Val(ListView1.SelectedItem)
   TextBox1.Value = F02.Cells(Lig, 2).Value
   TextBox2.Value = F02.Cells(Lig, 5).Value
   Stock = F02.Cells(Lig, 5).Value
   TextBox3.Locked = 0 ' False
   TextBox3.SetFocus
End Sub

A+
Maurice
-1