Erreur avec listview vba excel
Fermé
solene85
Messages postés
391
Date d'inscription
jeudi 24 janvier 2008
Statut
Membre
Dernière intervention
9 janvier 2016
-
19 févr. 2015 à 19:24
solene85 Messages postés 391 Date d'inscription jeudi 24 janvier 2008 Statut Membre Dernière intervention 9 janvier 2016 - 20 févr. 2015 à 13:49
solene85 Messages postés 391 Date d'inscription jeudi 24 janvier 2008 Statut Membre Dernière intervention 9 janvier 2016 - 20 févr. 2015 à 13:49
A voir également:
- Listview vba excel exemples
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Mise en forme conditionnelle excel - Guide
6 réponses
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
20 févr. 2015 à 11:36
20 févr. 2015 à 11:36
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
et dans l'évènement clic de ta listview au debut, mettre ceci:
Si vous pouvez éviter de vous servir de
On Error Resume Next
Car cela peut cacher d'autres erreurs (bug)!!!!!!!!
Salut à Maurice
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
solene85
Messages postés
391
Date d'inscription
jeudi 24 janvier 2008
Statut
Membre
Dernière intervention
9 janvier 2016
13
19 févr. 2015 à 21:05
19 févr. 2015 à 21:05
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
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
solene85
Messages postés
391
Date d'inscription
jeudi 24 janvier 2008
Statut
Membre
Dernière intervention
9 janvier 2016
13
19 févr. 2015 à 22:21
19 févr. 2015 à 22:21
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour
tu peux aussi mettre a la fin de Activate
je prefere
A+
Maurice
tu peux aussi mettre a la fin de Activate
je prefere
OptionButton1.Value = True
A+
Maurice
solene85
Messages postés
391
Date d'inscription
jeudi 24 janvier 2008
Statut
Membre
Dernière intervention
9 janvier 2016
13
20 févr. 2015 à 13:49
20 févr. 2015 à 13:49
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
Bonjour
ses pas fini dur
une astuse mettre On Error Resume Next dans le Sub
A+
Maurice
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
20 févr. 2015 à 13:47
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"