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