Pb affichage listview Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
BZH83
Membre habitué
Membre habitué
Messages : 70
Appréciation reçue : 1
Inscrit le : 10 juillet 2018
Version d'Excel : 2010 FR

Message par BZH83 » 24 mai 2019, 10:16

Boujour le forum!

J'ai des données dans ma feuille "Données" et je voudrais qu'elles s'affichent dans mes listviews
Malheureusement ce n'est pas le cas et je ne comprend pas pourquoi... :??
Pourriez-vous m'aider?

Merci d'avance!

BZH83
Test.xlsm
(54.48 Kio) Téléchargé 8 fois
VBA c'est l'éclate! :():
Avatar du membre
GGautier
Membre dévoué
Membre dévoué
Messages : 777
Appréciations reçues : 42
Inscrit le : 18 décembre 2018
Version d'Excel : 2016 FR

Message par GGautier » 24 mai 2019, 12:02

Bonjour ,

Dans tes différents UserForm (Auteur et formation) tu met dans la partie Userform_Initialize() le code suivant :
For i = 5 To Sheets("Bilan").Range("A65000").End(xlUp).Row
Me.Listformation.AddItem Sheets("Bilan").Cells(i, 5)
Next i
Pareil pour l'autre, il ne te restera plus qu'a adapter la colonne à savoir mettre .Cells(i,2)
"Il n'y a pas de question idiote, seulement une réponse idiote" ALBERT EINSTEIN (enfin ici on évite). 8-)
Vous cherchez des réponses à vos questions ? regardez par ici ;) http://boisgontierjacques.free.fr/index2.htm
Avatar du membre
GGautier
Membre dévoué
Membre dévoué
Messages : 777
Appréciations reçues : 42
Inscrit le : 18 décembre 2018
Version d'Excel : 2016 FR

Message par GGautier » 24 mai 2019, 12:11

Voilà quelque chose de plus détaillé :
Ce code est à mettre dans le UserForm "ecran_formation"
Private Sub UserForm_initialize()

Dim Max 'Déclaration de la variable Max, se sera la référence à la dernière cellule utilisée d'une colonne
Dim f 'Déclaration de la variable f, se sera la référence à la feuille où se trouve les données

Set f = Sheets("Bilan") 'f fait référence à la feuille Bilan
Max = f.Cells(Rows.Count, 1).End(xlUp).Row 'Max prend pour valeur le numéro de la dernière cellule pleine de la colonne 1 (ou A)

For i = 5 To Max 'Ici on balaye les cellule de la ligne 5 à la ligne Max
    Me.Listformation.AddItem f.Cells(i, 5) 'On ajoute toutes les données à la ListBox contenue entre 5 et Max de la colonne 5 (ou E)
Next i

End Sub
Ce code est à mettre dans le UserForm "ecran_auteur"
Private Sub UserForm_initialize()

Dim Max 'Déclaration de la variable Max, se sera la référence à la dernière cellule utilisée d'une colonne
Dim f 'Déclaration de la variable f, se sera la référence à la feuille où se trouve les données

Set f = Sheets("Bilan") 'f fait référence à la feuille Bilan
Max = f.Cells(Rows.Count, 1).End(xlUp).Row 'Max prend pour valeur le numéro de la dernière cellule pleine de la colonne 1 (ou A)

For i = 5 To Max 'Ici on balaye les cellule de la ligne 5 à la ligne Max
    Me.Listauteurs.AddItem f.Cells(i, 2) 'On ajoute toutes les données à la ListBox contenue entre 5 et Max de la colonne 5 (ou E)
Next i

End Sub
"Il n'y a pas de question idiote, seulement une réponse idiote" ALBERT EINSTEIN (enfin ici on évite). 8-)
Vous cherchez des réponses à vos questions ? regardez par ici ;) http://boisgontierjacques.free.fr/index2.htm
Avatar du membre
BZH83
Membre habitué
Membre habitué
Messages : 70
Appréciation reçue : 1
Inscrit le : 10 juillet 2018
Version d'Excel : 2010 FR

Message par BZH83 » 24 mai 2019, 14:10

Salut GGautier,

Merci de t'être penché sur mon problème si vite!
Je vais tester ça et je reviens vers toi

BZH83
VBA c'est l'éclate! :():
Avatar du membre
BZH83
Membre habitué
Membre habitué
Messages : 70
Appréciation reçue : 1
Inscrit le : 10 juillet 2018
Version d'Excel : 2010 FR

Message par BZH83 » 24 mai 2019, 14:30

Salut GGautier,

En mettant tes lignes de code dans mes UserForm ça ne fonctionne toujours pas. Je me suis d'abord dit que c'était en raison de ma macro "controle_existance" et je l'ai donc mis en commentaire mais ça ne fonctionne toujours pas...
Je sèche là :bof:

BZH83
VBA c'est l'éclate! :():
Avatar du membre
GGautier
Membre dévoué
Membre dévoué
Messages : 777
Appréciations reçues : 42
Inscrit le : 18 décembre 2018
Version d'Excel : 2016 FR

Message par GGautier » 24 mai 2019, 15:12

Regarde ;;)
Test.xlsm
(38.25 Kio) Téléchargé 3 fois
"Il n'y a pas de question idiote, seulement une réponse idiote" ALBERT EINSTEIN (enfin ici on évite). 8-)
Vous cherchez des réponses à vos questions ? regardez par ici ;) http://boisgontierjacques.free.fr/index2.htm
Avatar du membre
BZH83
Membre habitué
Membre habitué
Messages : 70
Appréciation reçue : 1
Inscrit le : 10 juillet 2018
Version d'Excel : 2010 FR

Message par BZH83 » 11 juin 2019, 11:27

Bonjour le Forum!

Problème résolu!
Je poste le fichier si ça peut aider quelqu'un

BZH83
Test (1).xlsm
(50.02 Kio) Téléchargé 8 fois
VBA c'est l'éclate! :():
a
archer
Membre impliqué
Membre impliqué
Messages : 1'258
Appréciations reçues : 102
Inscrit le : 8 avril 2017
Version d'Excel : 2010

Message par archer » 11 juin 2019, 11:44

Bonjour
on trouve pas de listview dans ton fichier ? dur dur
A+
Maurice
Avatar du membre
BZH83
Membre habitué
Membre habitué
Messages : 70
Appréciation reçue : 1
Inscrit le : 10 juillet 2018
Version d'Excel : 2010 FR

Message par BZH83 » 11 juin 2019, 11:50

Salut archer!

Je suis désolé c'est pas une listview mais une listbox :...:
Elle se trouve dans la suite de procédure lorsque tu cliques sur nouvelle oeuvre

A+
VBA c'est l'éclate! :():
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message