J'ai confectionn=E9 une Fonction qui me permet dans un m=EAme cellule
d'avoir 2 r=E9sultats.
L'un a dessus de l'autre grace au retour ligne chr(10).
Mais voila, je souhaiterais que la valeur du dessous apparaisse en
gras ou en couleur oubien m=EAme surlign=E9e.
Cela est-il possible ?
Si la r=E9ponse est oui, je complique un peu : dans la ligne du dessous,
il y a deux valeurs s=E9par=E9e par un simple espace. C'est la valeur
inf=E9rieure gauche que je souhaite d=E9tacher.
Je ne peux malheureusement pas vous reproduir ci-dessous les lignes de
code qui sont sur le pc de mon boulot.
Soyez remerci=E9 d'avance =E2mes charitables qui m'avez si bien guid=E9
jusqu'=E0 pr=E9sent.
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
LSteph
Bonjour, Voici une procèdure qui peut agir sur une chaine de caractères par exemple ici contenue dans la cellule active,(attention, n'agira pas sur une formule), aussi selon ce qu'il y avait dans ta fonction tu pourra sans doute adapter. Attention encore , une fonction ne traite pas la cellule, elle renvoie un résultat et là c'est le contraire la sub effectue un traitement des caractères style et couleur de la cellule.
Sub azaz() Dim myStart As Integer myStart = WorksheetFunction.Search(Chr(10), ActiveCell, 1) With ActiveCell.Characters.Font .FontStyle = "Normal" .ColorIndex = 1 End With With ActiveCell.Characters(Start:=myStart).Font .FontStyle = "Gras" .ColorIndex = 9 End With End Sub
Cordialement.
lSteph
Bonsoir à toutes et à tous,
Je vous expose mon problème :
J'ai confectionné une Fonction qui me permet dans un même cellule d'avoir 2 résultats. L'un a dessus de l'autre grace au retour ligne chr(10).
Mais voila, je souhaiterais que la valeur du dessous apparaisse en gras ou en couleur oubien même surlignée. Cela est-il possible ?
Si la réponse est oui, je complique un peu : dans la ligne du dessous, il y a deux valeurs séparée par un simple espace. C'est la valeur inférieure gauche que je souhaite détacher. Je ne peux malheureusement pas vous reproduir ci-dessous les lignes de code qui sont sur le pc de mon boulot.
Soyez remercié d'avance âmes charitables qui m'avez si bien guidé jusqu'à présent.
Blutch
Bonjour,
Voici une procèdure qui peut agir sur une chaine de caractères par
exemple ici contenue dans la cellule active,(attention, n'agira pas sur
une formule),
aussi selon ce qu'il y avait dans ta fonction tu pourra sans doute
adapter.
Attention encore , une fonction ne traite pas la cellule,
elle renvoie un résultat et là c'est le contraire la sub effectue un
traitement des caractères style et couleur de la cellule.
Sub azaz()
Dim myStart As Integer
myStart = WorksheetFunction.Search(Chr(10), ActiveCell, 1)
With ActiveCell.Characters.Font
.FontStyle = "Normal"
.ColorIndex = 1
End With
With ActiveCell.Characters(Start:=myStart).Font
.FontStyle = "Gras"
.ColorIndex = 9
End With
End Sub
Cordialement.
lSteph
Bonsoir à toutes et à tous,
Je vous expose mon problème :
J'ai confectionné une Fonction qui me permet dans un même cellule
d'avoir 2 résultats.
L'un a dessus de l'autre grace au retour ligne chr(10).
Mais voila, je souhaiterais que la valeur du dessous apparaisse en
gras ou en couleur oubien même surlignée.
Cela est-il possible ?
Si la réponse est oui, je complique un peu : dans la ligne du dessous,
il y a deux valeurs séparée par un simple espace. C'est la valeur
inférieure gauche que je souhaite détacher.
Je ne peux malheureusement pas vous reproduir ci-dessous les lignes de
code qui sont sur le pc de mon boulot.
Soyez remercié d'avance âmes charitables qui m'avez si bien guidé
jusqu'à présent.
Bonjour, Voici une procèdure qui peut agir sur une chaine de caractères par exemple ici contenue dans la cellule active,(attention, n'agira pas sur une formule), aussi selon ce qu'il y avait dans ta fonction tu pourra sans doute adapter. Attention encore , une fonction ne traite pas la cellule, elle renvoie un résultat et là c'est le contraire la sub effectue un traitement des caractères style et couleur de la cellule.
Sub azaz() Dim myStart As Integer myStart = WorksheetFunction.Search(Chr(10), ActiveCell, 1) With ActiveCell.Characters.Font .FontStyle = "Normal" .ColorIndex = 1 End With With ActiveCell.Characters(Start:=myStart).Font .FontStyle = "Gras" .ColorIndex = 9 End With End Sub
Cordialement.
lSteph
Bonsoir à toutes et à tous,
Je vous expose mon problème :
J'ai confectionné une Fonction qui me permet dans un même cellule d'avoir 2 résultats. L'un a dessus de l'autre grace au retour ligne chr(10).
Mais voila, je souhaiterais que la valeur du dessous apparaisse en gras ou en couleur oubien même surlignée. Cela est-il possible ?
Si la réponse est oui, je complique un peu : dans la ligne du dessous, il y a deux valeurs séparée par un simple espace. C'est la valeur inférieure gauche que je souhaite détacher. Je ne peux malheureusement pas vous reproduir ci-dessous les lignes de code qui sont sur le pc de mon boulot.
Soyez remercié d'avance âmes charitables qui m'avez si bien guidé jusqu'à présent.
