Afficher feuille ou plage de cellule dans un userform

Bonjour a tous,

Jai sur une feuille un tableau avec un contenu et mise en forme (couleur de remplissage etc). Je suis novice en vba et un peu perdu a ce niveau la. Je souhaiterai afficher ce tableau dans un userform avec mose en forme etc et que cet affichage soit mis a jour a chaque fois que j'ouvre le userform. Je ladapterai après pour des données confidentielles. Merci beaucoup pour votre aide

Bonjour,

Une piste avec un Spreadsheet ici nommé "Spreadsheet1" (clic droit sur la boite à outils --> Contrôles supplémentaires..." et chercher "Microsoft Office Spreadsheet x.x" où x.x est la ou les versions disponibles. Le code ci-dessous défini la plage sur toute la feuille, borne là si tu ne veux récupérer qu'un partie et surtout, adapte à tes besoins :

Private Sub UserForm_Initialize()

    Dim Plage As Range
    Dim Cel As Range

    Set Plage = DefPlage(ActiveSheet)

    'Spreadsheet1.Range(Plage).Value = Plage.Value
    For Each Cel In Plage

        With Spreadsheet1.Cells(Cel.Row, Cel.Column)

            With .Font

                .Name = Cel.Font.Name
                .Size = Cel.Font.Size
                .Color = Cel.Font.Color
                .Bold = Cel.Font.Bold
                .Italic = Cel.Font.Italic
                .Underline = Cel.Font.Underline

            End With

            .Value = Cel.Value
            .Interior.Color = Cel.Interior.Color

        End With

    Next Cel

End Sub

Function DefPlage(Fe As Worksheet) As Range

    With Fe

        Set DefPlage = .Range(.Cells(1, 1), .Cells( _
                       .Cells.Find("*", .Cells(1, 1), -4123, , 1, 2).Row, _
                       .Cells.Find("*", .Cells(1, 1), -4123, , 2, 2).Column))

    End With

End Function

Bonjour,

Merci d'avoir répondu. J'ai excel 2010 mais dans les controles supplementaire je n'ai pas spreadsheet. J'ai vu ailleur qu'il fallais OWC11.dll, est ce vrai ? si oui ou peut on l'avoir. Le code a l'air de fonctionner mais un message d'erreur m'indique qu'un objet n'est pas dispo sur ma machine.

J'ai joint en pj un exemple de donnée que j'ai

Bonjour,

J'ai vu ailleur qu'il fallais OWC11.dll, est ce vrai ?

Je ne sais pas, j'ai 2003 au boulot et 2007 chez moi et dans les deux cas, j'ai des Spreadsheets dans les contrôles supplémentaires. Ouvre un nouveau post pour connaitre la marche à suivre pour l'installer.