pour basculer les textbox vers une feuille excel j utilise ce code
With Worksheets("Feuil2")
derLigne = .Range("A65536").End(xlUp).Row + 1
.Cells(derLigne, 2) = Me.TextBox2
End With
mon problème c'est que je voudrais garder la mise en forme du textbox
j'ai essayer ca mais ca ne marche pas :
Me.TetBox1.Copy Destination:=.Cells(derLigne, 1)
Bonjour Isabelle et merci Et pour garder la couleur d'ecriture du textbox, il faut faire comment? merci
isabelle
bonjour Dominique,
la propriéé par défault. de TextBox est "Value" il faut reprendre chaque propriétée et l'appliquer à la cellule soit tu utilise une boucle pour récupérer une à une ces propriétées et applique celle qui convient à la cellule soit tu indique une à une la propriétée que tu veut pour la couleur :
Bonjour Isabelle et merci Et pour garder la couleur d'ecriture du textbox, il faut faire comment? merci
bonjour Dominique,
la propriéé par défault. de TextBox est "Value"
il faut reprendre chaque propriétée et l'appliquer à la cellule
soit tu utilise une boucle pour récupérer une à une ces propriétées et
applique celle qui convient à la cellule
soit tu indique une à une la propriétée que tu veut
pour la couleur :
la propriéé par défault. de TextBox est "Value" il faut reprendre chaque propriétée et l'appliquer à la cellule soit tu utilise une boucle pour récupérer une à une ces propriétées et applique celle qui convient à la cellule soit tu indique une à une la propriétée que tu veut pour la couleur :