Discussion :

[Mic13710]

Bonjour,

Je me lance actuellement dans les Userbox et je sèche lamentablement sur le remplissage d'un Textbox à partir du contenu d'une cellule.

La cellule que je veux copier contient du texte dans lequel est inclus des caractères spéciaux issus des polices Wingdings.

L'instruction classique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.TextBoxDetail = Range(ma cellule)

me renvoi bien le texte mais les caractères spéciaux sont remplacés par les caractères de la police du Textbox.
J'ai essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Range(ma cellule).Text).Copy Destination:=Me.TextBoxDetail

mais cette méthode me renvoi l'erreur "La méthode copy de la classe range a échoué."

J'ai essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range(ma cellule).Copy
Me.TextBoxDetail.Paste

Qui me donne le même résultat que la méthode classique.

La question est donc : comment faire pour copier le contenu exact d'une cellule dans un Textbox ?
Et comme je vais devoir aussi remplir des cellules à partir d'une textbox, comment faire pour insérer des caractères de polices différentes dans une Textbox et copier son contenu à l'identique dans une cellule ?

Merci d'avance pour votre aide.

Michel

[Theze]

Bonjour,

Il te faut paramétrer la fonte de ton TexBox par exemple sur "Initialize" de ta Form :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub UserForm_Initialize()
 
    TextBoxDetail.Font.Name = "Wingdings"
 
End Sub

Hervé.

[patricktoulon]

bonsoir une question comme ca

ou ce trouve tes textbox

ou ce trouve la macro

si la macro se trouve dans le userform
'copie a l'identique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
with  sheets(nom du sheets) range(tacellule)
.value=me.textboxdetail
.font.name=me.textboxdetail.font.name
.font.color=me.textboxdetail.forecolor
.font.bold=me.textboxdetail.font.bold
ect.....
end with

si la macro se trouve dans un module standard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
with  sheets(nom du sheets) range(tacellule)
.value=nom_de_l_userform.textboxdetail
.font.name=nom_de_l_userform.textboxdetail.font.name
.font.color=nom_de_l_userform.textboxdetail.forecolor
.font.bold=nom_de_l_userform.textboxdetail.font.bold
ect.....
end with

au plaisir

[Mic13710]

Merci Hervé et patricktoulon pour vos réponses, mais ce n'est pas ce que je recherche. Si je change la police du textbox, tout le texte s'affiche dans cette police.

Or, mon texte comporte des caractères spéciaux qui ont été insérés au milieu d'un texte normal.

Je cherche à reproduire à l'identique le contenu de la cellule dans un textbox qui fait partie d'un userform.

Dans une instruction vba classique, le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Range(ma cellule à copier).Text).Copy Destination:=Range(ma cellule de destination)

colle le contenu exact de la cellule copiée avec ses mises en forme, ses fonts, ses cadres etc ....

C'est ce type de code, du moins son résultat, que je cherche à reproduire dans ma Textbox

[patricktoulon]

donc si ca te conviens pas ce que l'on a donné

ca veut dire qu'il y a plusieur font.name dans une seule cellule(plusieurs reglages différents dans une meme cellule)

et bien ca arrette de te casser la tete c'est impossible dans un textbox

dans un textbos quand tu regle le fontname le font size ect... c'est tout le textbox qui prend le reglage pas qu'une partie

en bref c'est impossible

au plaisir

[Mic13710]

Merci patricktoulon.
Dommage. Je vais donc chercher une autre méthode pour faire ce que je souhaite.

[patricktoulon]

j'en ai une toute faite pour toi

regarde dans les contributions un de mes derniers sujets les boutons fun dans mon userform

dedans il y a la methode pour copier des worts arts dans le userform

je suis en train de travailler sur la question justement un peu de patience

au plaisir