Probléme pour Mettre un tableau Excell dans un flexgridRésolu

Question

Bonjour &#224; tous,



Je fait appelle &#224; votre grand savoir pour m'aider &#224; r&#233;soudre un
probl&#233;me simple, voila, j'ai un petit programme en vba &#224; terminer mais
je suis bloqu&#233; car je n'arrive pas &#224; copier des donn&#233;es d'une feuille
excel dans une flexgrid.



En faite il me met erreur d'execution 424, objet requis et quand je clic sur debogage le programme est bloquer au niveau de 



.Clip = Replace(Clipboard.GetText, vbCrLf, vbCr)



Voici le code source :

je le lance &#224; partir d'un bouton sur une Userform qui contient le
flexgrid,j'ai essay&#233; de le mettre sur un module ou directement dans le
bouton est NADA



Public Sub Excel2Flexgrid(flexGrid As MSFlexGrid, ByVal fichier As String)

    Dim xlapp As Excel.Application

    Dim classeur As Excel.Workbook, feuille As Excel.Worksheet, Plage As Excel.Range



    Set xlapp = New Excel.Application

    xlapp.DisplayAlerts = False

    Set classeur = xlapp.Workbooks.Open(fichier)

    Set feuille = xlapp.ActiveSheet

    Set Plage = feuille.Range("A1").CurrentRegion







    With flexGrid

        .Cols = Plage.Columns.Count

        .Rows = Plage.Rows.Count

        .Col = 0

        .Row = 0

        .ColSel = .Cols - 1

        .RowSel = .Rows - 1

        Plage.Copy

        .Clip = Replace(Clipboard.GetText, vbCrLf, vbCr)

    End With



    Set Plage = Nothing

    Set feuille = Nothing

    classeur.Close False

    Set classeur = Nothing

xlapp.Quit

    Set xlapp = Nothing

End Sub



Qulqu'un aurrai une id&#233;e ?

cs_Geronimo62 · Accepted Answer

A priori, ça ne fonctionne pas en VBA donc la solution est de faire des tiotes boucle avec for ... For i = 1 To tablo.Rows For j = 1 To tablo.Cols tablo.Text = feuille.Rows.Cells(i, j).Value If tablo.Col <> tablo.Cols - 1 Then tablo.Col = tablo.Col + 1 End If Next j If tablo.Row <> tablo.Rows - 1 Then tablo.Row = tablo.Row + 1 j = 1 tablo.Col = 0 End If Next i

fg10 · Answer

Methode "simple" avec 2 boucles
for rang = 0  to nbrang
 for colonne=  0 to nbcolonne
   flexgrid.row= rang
   flexgrid.col=colonne
   flexgrid.cels= celluleExcel(rang,colonne)
 next colonne
next rang

 quelquechose comme ca

cs_Geronimo62 · Answer

Pas d'autre suggestion ?

Probléme pour Mettre un tableau Excell dans un flexgrid

3 réponses

Discussions similaires