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 : 61
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é 7 fois
Ça part d'une bonne volonté mais ça finit toujours mal... :scritch:
Avatar du membre
GGautier
Membre dévoué
Membre dévoué
Messages : 520
Appréciations reçues : 24
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 : 520
Appréciations reçues : 24
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 : 61
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
Ça part d'une bonne volonté mais ça finit toujours mal... :scritch:
Avatar du membre
BZH83
Membre habitué
Membre habitué
Messages : 61
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
Ça part d'une bonne volonté mais ça finit toujours mal... :scritch:
Avatar du membre
GGautier
Membre dévoué
Membre dévoué
Messages : 520
Appréciations reçues : 24
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 : 61
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é 2 fois
Ça part d'une bonne volonté mais ça finit toujours mal... :scritch:
a
archer
Membre impliqué
Membre impliqué
Messages : 1'124
Appréciations reçues : 78
Inscrit le : 8 avril 2017
Version d'Excel : 2007/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 : 61
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+
Ça part d'une bonne volonté mais ça finit toujours mal... :scritch:
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message