J'ai un TXT qui est alimenté par des optionbuttoms (l'utilisateur ne saisie
pas directement dans ce TXT).
Je voudrais pouvoir envoyer l'info, correspondant à l'OPT choisi, dans un
format spécial: souligné, gras et taille 12.
Je pensais pouvoir faire comme sur une feuille excel, ouvrir la boite
"format cellule" puis "police", comme cela dans la rédaction de mon code
j'aurais mis "TITRE"(cf exemple ci-dessous) déjà dans le bon format mais
visiblement non.....
If opt1=true then TXT1="TITRE" (en souligné, gras, taille 12)
if opt1=false then TXT1= "pas de commentaire" (pas souligné, pas gras,
taille 8)
De plus, une fois que le format a été aplliqué dans ce TXT, lors du
transfère du contenu de ce TXT sur ma feuille EXCEL, puis-je récupérer ce
même format?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Pierre,
Pas testé... mais ça devrait ressembler à ceci :
If opt1=true then With TXT1 .text ="TITRE" .font.bold = true .font.size = 12 .font.name = "Arial" End with Else With TXT1 .text ="" .font.bold úlse .font.size = 8 .font.name = "Arial" End with
Pour transférer le contenu du textbox vers une cellule, tu dois affecter la cellule selon le format de la cellule.
With worksheets("Feuil1") .range("A1") = txt1.text .range("A1").font.bold = txt1.font.bold .range("A1").font.size = txt1.font.size .range("A1").font.name = txt1.font.name End With
Salutations! "pierre" a écrit dans le message de news: Bonjour,
J'ai un TXT qui est alimenté par des optionbuttoms (l'utilisateur ne saisie pas directement dans ce TXT). Je voudrais pouvoir envoyer l'info, correspondant à l'OPT choisi, dans un format spécial: souligné, gras et taille 12. Je pensais pouvoir faire comme sur une feuille excel, ouvrir la boite "format cellule" puis "police", comme cela dans la rédaction de mon code j'aurais mis "TITRE"(cf exemple ci-dessous) déjà dans le bon format mais visiblement non.....
If opt1=true then TXT1="TITRE" (en souligné, gras, taille 12) if opt1úlse then TXT1= "pas de commentaire" (pas souligné, pas gras, taille 8)
De plus, une fois que le format a été aplliqué dans ce TXT, lors du transfère du contenu de ce TXT sur ma feuille EXCEL, puis-je récupérer ce même format?
Merci de votre aide Pierre
Bonjour Pierre,
Pas testé... mais ça devrait ressembler à ceci :
If opt1=true then
With TXT1
.text ="TITRE"
.font.bold = true
.font.size = 12
.font.name = "Arial"
End with
Else
With TXT1
.text =""
.font.bold úlse
.font.size = 8
.font.name = "Arial"
End with
Pour transférer le contenu du textbox vers une cellule,
tu dois affecter la cellule selon le format de la cellule.
With worksheets("Feuil1")
.range("A1") = txt1.text
.range("A1").font.bold = txt1.font.bold
.range("A1").font.size = txt1.font.size
.range("A1").font.name = txt1.font.name
End With
Salutations!
"pierre" <pierre@free.fr> a écrit dans le message de news: enbXZQcRGHA.5808@TK2MSFTNGP12.phx.gbl...
Bonjour,
J'ai un TXT qui est alimenté par des optionbuttoms (l'utilisateur ne saisie
pas directement dans ce TXT).
Je voudrais pouvoir envoyer l'info, correspondant à l'OPT choisi, dans un
format spécial: souligné, gras et taille 12.
Je pensais pouvoir faire comme sur une feuille excel, ouvrir la boite
"format cellule" puis "police", comme cela dans la rédaction de mon code
j'aurais mis "TITRE"(cf exemple ci-dessous) déjà dans le bon format mais
visiblement non.....
If opt1=true then TXT1="TITRE" (en souligné, gras, taille 12)
if opt1úlse then TXT1= "pas de commentaire" (pas souligné, pas gras,
taille 8)
De plus, une fois que le format a été aplliqué dans ce TXT, lors du
transfère du contenu de ce TXT sur ma feuille EXCEL, puis-je récupérer ce
même format?
If opt1=true then With TXT1 .text ="TITRE" .font.bold = true .font.size = 12 .font.name = "Arial" End with Else With TXT1 .text ="" .font.bold úlse .font.size = 8 .font.name = "Arial" End with
Pour transférer le contenu du textbox vers une cellule, tu dois affecter la cellule selon le format de la cellule.
With worksheets("Feuil1") .range("A1") = txt1.text .range("A1").font.bold = txt1.font.bold .range("A1").font.size = txt1.font.size .range("A1").font.name = txt1.font.name End With
Salutations! "pierre" a écrit dans le message de news: Bonjour,
J'ai un TXT qui est alimenté par des optionbuttoms (l'utilisateur ne saisie pas directement dans ce TXT). Je voudrais pouvoir envoyer l'info, correspondant à l'OPT choisi, dans un format spécial: souligné, gras et taille 12. Je pensais pouvoir faire comme sur une feuille excel, ouvrir la boite "format cellule" puis "police", comme cela dans la rédaction de mon code j'aurais mis "TITRE"(cf exemple ci-dessous) déjà dans le bon format mais visiblement non.....
If opt1=true then TXT1="TITRE" (en souligné, gras, taille 12) if opt1úlse then TXT1= "pas de commentaire" (pas souligné, pas gras, taille 8)
De plus, une fois que le format a été aplliqué dans ce TXT, lors du transfère du contenu de ce TXT sur ma feuille EXCEL, puis-je récupérer ce même format?
