Boucler sur des Listview en vba excelRésolu

Question

Bonjour &#224; tous,



Voil&#224; plusieur moi que je navigue sur ce site en y trouvant tous ce
qu'il me faut en tant que d&#233;butant en VBA excel. Je bloc sur le
probl&#232;me suivant :



Je souhaite boucler sur plusieur listview afin de les completer (voir
l'exrait de mon code ci &#224;pr&#232;s). Le probl&#232;me est que &#231;a ne marche pas et
je n'arrive pas &#224; comprendre pourquoi. Quand je lance mon userforms (le
code est dans l'initialisation) j'obtiens le message suivant :



"Erreur d'ex&#233;cution '438' "



"Propri&#233;t&#233; ou Methode non g&#233;r&#233;e par cet objet"



&#231;a &#224; l'air de bloquer &#224; la ligne  "With
.ColumnHeaders" quand j'utilises ce code avec une seul Listview sans
bouclage, &#231;a marche correctement.



Je suis bloqu&#233; et ne sait comment faire d'autant plus que je souhaite
&#233;tendre la m&#234;me methode pour rempir mes listview, pour le moment elle
n'est appliqu&#233; qu'aux ent&#234;tes de colonnes



   
 '*************************************

    '* Chargement des ent&#234;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

michelxld · Accepted Answer

Oouupps...

je voulais dire

With ListView & NumeroFeuil


par 


With Me.Controls("ListView" & NumeroFeuil)

bonne journ&#233;e
michel

michelxld · Answer

bonjour


je n'ai pas test&#233; la totalit&#233; de ta proc&#233;dure mais tu peux faire un essai en rempla&#231;ant la ligne


With ListView & NumeroFeuil


par 


With Me.Controls("ListView" & i)


bonne journ&#233;e
michel

cs_CanisLupus · Answer

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 · Answer

Mer&#231;i &#224; tous pour votre r&#233;activit&#233;e, je pensais pas avoir des
r&#233;ponse aussi vite, c'est la premi&#232;re fois que je passe une demande. je
teste tout &#231;a et j'vous dit ce qu'il en est .



@ +


 AitZagaz

aitzagaz · Answer

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&#234;tes de colonnes ainsi que les donn&#233;es de chaque
listview. De plus je travail en plein &#233;cran, je positionne &#233;gallement
toutes les listview de la m&#234;me mani&#232;re.



encore merci. Code dispo pour ceux que &#231;a interesse



 @ +

 AitZagaz

Boucler sur des Listview en vba excel

5 réponses

Discussions similaires