Textbox et resize

Bonjour,

Un petit souci pour compléter une textbox avec des données multi-cellules affectées à une variable.

Sub AdFournisseur()
Dim Ad As Variant

With Sheets("feuil1")
    .TextBox1.Value = Clear 'efface le contenu textbox1
    Ad = .Range("j10:k15").Value 'place les coordonnées entreprise dans la variable
    .Range("A1").Resize(UBound(Ad, 1), UBound(Ad, 2)) = Ad 'redimensionne a1 et incrit les coordonnées
.TextBox1.Resize(UBound(Ad, 1), UBound(Ad, 2)) = Ad
End With
End Sub

La ligne surlignée est en erreur. Comment puis-je procéder pour inscrire les données dans la textbox1. Un peu comme je l'ai fait pour exemple dans la cellule A1.

Merci d'avance.

ddetp88

Bonjour,

as-tu essayé

.TextBox1 = join(Ad,vbnewline)

Bonjour h2so4,

Déjà merci de ta réponse.

Je viens de tester sur le fichier exemple joint mais j'ai une erreur 5.

Cordialement

Bonjour,

Sub AdFournisseur()
Dim Ligne As Integer, Col As Integer
Dim Texte As String
    With Sheets("feuil1")
        .TextBox1.Value = Clear 'efface le contenu textbox1
        For Ligne = 10 To 15
            For Col = 10 To 11
                Texte = Texte & .Cells(Ligne, Col)
            Next Col
            Texte = Texte & Chr(10)
        Next Ligne
        .TextBox1.Value = Left(Texte, Len(Texte) - 1)
    End With
End Sub

A+

Bonjour Frangy,

Merci beaucoup pour ta proposition.

Ce n'est pas la solution que j'attendais mais elle est efficace.

Je clôturerai le fil dans la soirée si personne d'autre n'a solution plus directe.

Cordialement

ddetp88