13GIBE59 XLDnaute Accro 19 Février 2017 #1 Bonjour le forum, Je suis en présence d’un incroyable mystère d’Excel, que je vous soumets pour que tentiez de le résoudre (et accessoirement de me l’expliquer…) Dans le fichier joint, j’ai modifié le code de remplissage de la listview du userform Filtre en utilisant les tableaux. Merci lone-wolf, ici. Dans le Private Sub userform initialise, tout se passe bien, la listview se remplit bien et apparaît normalement. Quand j’ajoute à la fin du code du Private Sub Initialise, ces deux lignes (pour fixer les dates de départ aux deux combos) : ComboBoxDebut.Value = Sheets("Comptes").Range("C9").Value ComboBoxFin.Value = Sheets("Comptes").Range("B1").Value Hé bien, la listview se remplit de manière complètement décalée, de deux colonnes. Kékun peut m’expliquer ? Merci d'avance. JB PS : les deux lignes sont en rem en fin de code. Pièces jointes Nouveau comptes bêta.xlsm 2.3 MB · Affichages: 39
Bonjour le forum, Je suis en présence d’un incroyable mystère d’Excel, que je vous soumets pour que tentiez de le résoudre (et accessoirement de me l’expliquer…) Dans le fichier joint, j’ai modifié le code de remplissage de la listview du userform Filtre en utilisant les tableaux. Merci lone-wolf, ici. Dans le Private Sub userform initialise, tout se passe bien, la listview se remplit bien et apparaît normalement. Quand j’ajoute à la fin du code du Private Sub Initialise, ces deux lignes (pour fixer les dates de départ aux deux combos) : ComboBoxDebut.Value = Sheets("Comptes").Range("C9").Value ComboBoxFin.Value = Sheets("Comptes").Range("B1").Value Hé bien, la listview se remplit de manière complètement décalée, de deux colonnes. Kékun peut m’expliquer ? Merci d'avance. JB PS : les deux lignes sont en rem en fin de code.
Lone-wolf XLDnaute Barbatruc 19 Février 2017 #2 Bonjour JB et merci pour la citation. Fait un test avec ceci Dans usf_initialize: ComboBoxDebut = ""ComboBoxFin = "" Et dans usf_activate: With Sheets("Comptes") ComboBoxDebut.text = .Range("C9").Value ComboBoxFin.text = .Range("B1").Value End With Vote positif 0 Vote négatif
Bonjour JB et merci pour la citation. Fait un test avec ceci Dans usf_initialize: ComboBoxDebut = ""ComboBoxFin = "" Et dans usf_activate: With Sheets("Comptes") ComboBoxDebut.text = .Range("C9").Value ComboBoxFin.text = .Range("B1").Value End With
13GIBE59 XLDnaute Accro 19 Février 2017 #3 Coucou le loup, Merci pour ton truc, je teste et je reviens... Vote positif 0 Vote négatif
13GIBE59 XLDnaute Accro 19 Février 2017 #4 Ben, le problème reste le même chez moi... Vote positif 0 Vote négatif
S Si... XLDnaute Barbatruc 19 Février 2017 #5 Bonsoir A première vue : dans ta macro Filtrer, tu réinitialises le contrôle "ListView" en gardant les mêmes titres mais pas les bonnes colonnes. Vote positif 0 Vote négatif
Bonsoir A première vue : dans ta macro Filtrer, tu réinitialises le contrôle "ListView" en gardant les mêmes titres mais pas les bonnes colonnes.
13GIBE59 XLDnaute Accro 19 Février 2017 #6 Bonjour Si, Effectivement, je n'ai pas encore modifié ma macro Filtrer, pour l'adapter aux deux nouvelles colonnes de ma listview. C'est sûrement ça. Merci. A plus. JB Vote positif 0 Vote négatif
Bonjour Si, Effectivement, je n'ai pas encore modifié ma macro Filtrer, pour l'adapter aux deux nouvelles colonnes de ma listview. C'est sûrement ça. Merci. A plus. JB