Boucler sur des Listview en vba excel [Résolu]

aitzagaz 3 Messages postés dimanche 25 décembre 2005Date d'inscription 7 mars 2006 Dernière intervention - 5 mars 2006 à 11:08 - Dernière réponse : aitzagaz 3 Messages postés dimanche 25 décembre 2005Date d'inscription 7 mars 2006 Dernière intervention
- 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) = ""

NombreChampTotal = NombreChampTotal - 1

Else

End If

Sheets(NomFeuil).Activate

For NumeroChamp = 1 To NombreChampTotal

With ListView & NumeroFeuil

With .ColumnHeaders


.Add , , Sheets(NomFeuil).Cells(1, NumeroChamp).Value,
Sheets(NomFeuil).Columns(NumeroChamp).Width

End With

End With

Next NumeroChamp

Next NumeroFeuil

End Sub



Merci pour votre aide


AitZagaz
Afficher la suite 

5 réponses

Meilleure réponse
michelxld 402 Messages postés vendredi 6 août 2004Date d'inscription 12 octobre 2008 Dernière intervention - 5 mars 2006 à 11:56
3
Merci
Oouupps...

je voulais dire

With ListView & NumeroFeuil


par


With Me.Controls("ListView" & NumeroFeuil)

bonne journée
michel

Merci michelxld 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 94 internautes ce mois-ci

Meilleure réponse
cs_CanisLupus 3758 Messages postés mardi 23 septembre 2003Date d'inscription 13 mars 2006 Dernière intervention - 5 mars 2006 à 16:51
3
Merci
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

Merci cs_CanisLupus 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 94 internautes ce mois-ci

michelxld 402 Messages postés vendredi 6 août 2004Date d'inscription 12 octobre 2008 Dernière intervention - 5 mars 2006 à 11:55
0
Merci
bonjour


je n'ai pas testé la totalité de ta procédure mais tu peux faire un essai en remplaçant la ligne


With ListView & NumeroFeuil


par


With Me.Controls("ListView" & i)


bonne journée
michel
aitzagaz 3 Messages postés dimanche 25 décembre 2005Date d'inscription 7 mars 2006 Dernière intervention - 6 mars 2006 à 18:51
0
Merci
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
aitzagaz 3 Messages postés dimanche 25 décembre 2005Date d'inscription 7 mars 2006 Dernière intervention - 7 mars 2006 à 00:03
0
Merci
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



@ +

AitZagaz

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.