aitzagaz
Messages postés3Date d'inscriptiondimanche 25 décembre 2005StatutMembreDernière intervention 7 mars 2006
-
5 mars 2006 à 11:08
aitzagaz
Messages postés3Date d'inscriptiondimanche 25 décembre 2005StatutMembreDernière intervention 7 mars 2006
-
7 mars 2006 à 00:03
Bonjour à tous,
Voilà plusieur moi que je navigue sur ce site en y trouvant tous ce
qu'il me faut en tant que débutant en VBA excel. Je bloc sur le
problème suivant :
Je souhaite boucler sur plusieur listview afin de les completer (voir
l'exrait de mon code ci àprès). Le problème est que ça ne marche pas et
je n'arrive pas à comprendre pourquoi. Quand je lance mon userforms (le
code est dans l'initialisation) j'obtiens le message suivant :
"Erreur d'exécution '438' "
"Propriété ou Methode non gérée par cet objet"
ça à l'air de bloquer à la ligne "With
.ColumnHeaders" quand j'utilises ce code avec une seul Listview sans
bouclage, ça marche correctement.
Je suis bloqué et ne sait comment faire d'autant plus que je souhaite
étendre la même methode pour rempir mes listview, pour le moment elle
n'est appliqué qu'aux entêtes de colonnes
'*************************************
'* Chargement des entêtes de colonne *
'*************************************
For NumeroFeuil = 1 To 2 ' NombreFeuilTotal
NomFeuil = Application.Sheets(NumeroFeuil).Name
Sheets(NomFeuil).Activate
Sheets(NomFeuil).Select
NombreChampTotal = 0
If Sheets(NomFeuil).Cells(1, 1).Offset(0, NombreChampTotal) <> "" Then
Do
NombreChampTotal = NombreChampTotal + 1
Loop
Until Sheets(NomFeuil).Cells(1, 1).Offset(0, NombreChampTotal) = ""
cs_CanisLupus
Messages postés3757Date d'inscriptionmardi 23 septembre 2003StatutMembreDernière intervention13 mars 200620 5 mars 2006 à 16:51
Salut, et, pour compléter ce que dit michelxld, je verrais ta boucle plutôt comme ça :
With Me.Controls("ListView" & NumeroFeuil)
With .ColumnHeaders
For NumeroChamp = 1 To NombreChampTotal
.Add , , Sheets(NomFeuil).Cells(1, NumeroChamp).Value, Sheets(NomFeuil).Columns(NumeroChamp).Width
Next NumeroChamp
End With
End With
aitzagaz
Messages postés3Date d'inscriptiondimanche 25 décembre 2005StatutMembreDernière intervention 7 mars 2006 6 mars 2006 à 18:51
Merçi à tous pour votre réactivitée, je pensais pas avoir des
réponse aussi vite, c'est la première fois que je passe une demande. je
teste tout ça et j'vous dit ce qu'il en est .
@ +
AitZagaz
Vous n’avez pas trouvé la réponse que vous recherchez ?
aitzagaz
Messages postés3Date d'inscriptiondimanche 25 décembre 2005StatutMembreDernière intervention 7 mars 2006 7 mars 2006 à 00:03
Nikel cette petite astuce m'a effectivement permis de boucler sur mes
listview. Avec un multipage de 13 ou 14 feuilles et une listview par
page, cette astuce m'a permis lors de l'initialisation de charger en
bouclant toute mes entêtes de colonnes ainsi que les données de chaque
listview. De plus je travail en plein écran, je positionne égallement
toutes les listview de la même manière.
encore merci. Code dispo pour ceux que ça interesse