Copier textbox en gardant la mise en forme

Le
DOMINIQUE
Bonjour,
pouvez vous m'aider sur ce probleme?

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)

merci pour votre aide
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #21231391
bonjour Dominique,

par exemple:

.Cells(derLigne, 2) =Format( Me.TextBox2 , "0.00$")
ou
.Cells(derLigne, 2) =Format( Me.TextBox2 , "yyyy-mm-dd")

isabelle

Le 2010-02-19 10:15, DOMINIQUE a écrit :
.Cells(derLigne, 2) = Me.TextBox2


Dominique
Le #21231641
Le 19/02/2010 17:16, isabelle a écrit :
bonjour Dominique,

par exemple:

.Cells(derLigne, 2) =Format( Me.TextBox2 , "0.00$")
ou
.Cells(derLigne, 2) =Format( Me.TextBox2 , "yyyy-mm-dd")

isabelle

Le 2010-02-19 10:15, DOMINIQUE a écrit :
.Cells(derLigne, 2) = Me.TextBox2





Bonjour Isabelle et merci
Et pour garder la couleur d'ecriture du textbox, il faut faire comment?
merci
Daniel.C
Le #21231741
Bonjour.
(non testé) :
.Cells(derLigne, 2).font.color = Me.TextBox2.foreColor
Daniel

Le 19/02/2010 17:16, isabelle a écrit :
bonjour Dominique,

par exemple:

.Cells(derLigne, 2) =Format( Me.TextBox2 , "0.00$")
ou
.Cells(derLigne, 2) =Format( Me.TextBox2 , "yyyy-mm-dd")

isabelle

Le 2010-02-19 10:15, DOMINIQUE a écrit :
.Cells(derLigne, 2) = Me.TextBox2





Bonjour Isabelle et merci
Et pour garder la couleur d'ecriture du textbox, il faut faire comment?
merci


isabelle
Le #21231871
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 :

.Cells(derLigne, 2).Font.Color = TextBox1.ForeColor

isabelle

Le 2010-02-19 11:49, Dominique a écrit :
Le 19/02/2010 17:16, isabelle a écrit :
bonjour Dominique,

par exemple:

.Cells(derLigne, 2) =Format( Me.TextBox2 , "0.00$")
ou
.Cells(derLigne, 2) =Format( Me.TextBox2 , "yyyy-mm-dd")

isabelle

Le 2010-02-19 10:15, DOMINIQUE a écrit :
.Cells(derLigne, 2) = Me.TextBox2





Bonjour Isabelle et merci
Et pour garder la couleur d'ecriture du textbox, il faut faire comment?
merci


Dominique
Le #21231861
Le 19/02/2010 18:11, Daniel.C a écrit :
.Cells(derLigne, 2).font.color = Me.TextBox2.foreColo


Merci Daniel mais

.Cells(derLigne, 2).Font.Color = Me.TextBox2.ForeColor

ne marche pas, il ne copie pas mais ca ne plante pas
Publicité
Poster une réponse
Anonyme