Dans une cellule j'ai la formule suivante:
="La présente facture,arretee a la somme de
"&ConvNumberLetter(P36;1;0)&"est certifiee sincere et veritable." ou
ConvNumberLetter me donne une valeur en lettre (et en euros;-).
Est-il possible de mettre en gras ce resultat de formule, donc
uniquement le nombre en lettres et pas le reste de la phrase?
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
Il n'y a pas moyen d'appliquer la propriété "Gras" à une police de caractère dans une cellule en utilisant des fonctions.
Je t'ai fait un petit exemple en VBA
'--------------------------------- Sub Test()
Dim Texte As String, Phrase As String Dim NbChar As Integer, X As Integer Texte = ConvNumberLetter(P36, 1, 0) NbChar = Len(Texte) Phrase = "La présente facture,arretee a la somme de " _ & Texte & " est certifiee " & _ "sincere et veritable." X = InStr(1, Phrase, Texte, vbTextCompare)
With Range("A1") .Value = Phrase .Characters(X, NbChar).Font.Bold = True End With
End Sub '---------------------------------
Et tu peux utiliser l'événement du module feuille pour cette tâche dépendamment de ton application.
'---------------------- Private Sub Worksheet_Change(ByVal Target As Range)
End Sub '----------------------
"Pierre.M" a écrit dans le message de news: 456b0ec3$0$27382$ Bonsoir tout le monde,
Petite question d'ordre esthetique:
Dans une cellule j'ai la formule suivante: ="La présente facture,arretee a la somme de "&ConvNumberLetter(P36;1;0)&"est certifiee sincere et veritable." ou ConvNumberLetter me donne une valeur en lettre (et en euros;-).
Est-il possible de mettre en gras ce resultat de formule, donc uniquement le nombre en lettres et pas le reste de la phrase?
Merci pour vos idees.
Pierre
Il n'y a pas moyen d'appliquer la propriété "Gras" à une
police de caractère dans une cellule en utilisant des fonctions.
Je t'ai fait un petit exemple en VBA
'---------------------------------
Sub Test()
Dim Texte As String, Phrase As String
Dim NbChar As Integer, X As Integer
Texte = ConvNumberLetter(P36, 1, 0)
NbChar = Len(Texte)
Phrase = "La présente facture,arretee a la somme de " _
& Texte & " est certifiee " & _
"sincere et veritable."
X = InStr(1, Phrase, Texte, vbTextCompare)
With Range("A1")
.Value = Phrase
.Characters(X, NbChar).Font.Bold = True
End With
End Sub
'---------------------------------
Et tu peux utiliser l'événement du module feuille pour cette tâche
dépendamment de ton application.
'----------------------
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
'----------------------
"Pierre.M" <prenom.mulot@wanadoo.fr> a écrit dans le message de news:
456b0ec3$0$27382$ba4acef3@news.orange.fr...
Bonsoir tout le monde,
Petite question d'ordre esthetique:
Dans une cellule j'ai la formule suivante:
="La présente facture,arretee a la somme de
"&ConvNumberLetter(P36;1;0)&"est certifiee sincere et veritable." ou
ConvNumberLetter me donne une valeur en lettre (et en euros;-).
Est-il possible de mettre en gras ce resultat de formule, donc
uniquement le nombre en lettres et pas le reste de la phrase?
Il n'y a pas moyen d'appliquer la propriété "Gras" à une police de caractère dans une cellule en utilisant des fonctions.
Je t'ai fait un petit exemple en VBA
'--------------------------------- Sub Test()
Dim Texte As String, Phrase As String Dim NbChar As Integer, X As Integer Texte = ConvNumberLetter(P36, 1, 0) NbChar = Len(Texte) Phrase = "La présente facture,arretee a la somme de " _ & Texte & " est certifiee " & _ "sincere et veritable." X = InStr(1, Phrase, Texte, vbTextCompare)
With Range("A1") .Value = Phrase .Characters(X, NbChar).Font.Bold = True End With
End Sub '---------------------------------
Et tu peux utiliser l'événement du module feuille pour cette tâche dépendamment de ton application.
'---------------------- Private Sub Worksheet_Change(ByVal Target As Range)
End Sub '----------------------
"Pierre.M" a écrit dans le message de news: 456b0ec3$0$27382$ Bonsoir tout le monde,
Petite question d'ordre esthetique:
Dans une cellule j'ai la formule suivante: ="La présente facture,arretee a la somme de "&ConvNumberLetter(P36;1;0)&"est certifiee sincere et veritable." ou ConvNumberLetter me donne une valeur en lettre (et en euros;-).
Est-il possible de mettre en gras ce resultat de formule, donc uniquement le nombre en lettres et pas le reste de la phrase?
Merci pour vos idees.
Pierre
Pierre.M
C'est bien ce que je pensais (apres toutes mes recherches infructueuses). Merci en tous cas pour ta solution de rechange que j'aurais sans doute mis un moment a elaborer...;-) Je m'en vais l'appliquer immediatement. Merci encore et excellente (Oh!) soiree a toi.
Pierre
On 2006-11-27 18:15:36 +0100, "MichDenis" said:
Il n'y a pas moyen d'appliquer la propriété "Gras" à une police de caractère dans une cellule en utilisant des fonctions.
Je t'ai fait un petit exemple en VBA
'--------------------------------- Sub Test()
Dim Texte As String, Phrase As String Dim NbChar As Integer, X As Integer Texte = ConvNumberLetter(P36, 1, 0) NbChar = Len(Texte) Phrase = "La présente facture,arretee a la somme de " _ & Texte & " est certifiee " & _ "sincere et veritable." X = InStr(1, Phrase, Texte, vbTextCompare)
With Range("A1") .Value = Phrase .Characters(X, NbChar).Font.Bold = True End With
End Sub '---------------------------------
Et tu peux utiliser l'événement du module feuille pour cette tâche dépendamment de ton application.
'---------------------- Private Sub Worksheet_Change(ByVal Target As Range)
End Sub '----------------------
"Pierre.M" a écrit dans le message de news: 456b0ec3$0$27382$ Bonsoir tout le monde,
Petite question d'ordre esthetique:
Dans une cellule j'ai la formule suivante: ="La présente facture,arretee a la somme de "&ConvNumberLetter(P36;1;0)&"est certifiee sincere et veritable." ou ConvNumberLetter me donne une valeur en lettre (et en euros;-).
Est-il possible de mettre en gras ce resultat de formule, donc uniquement le nombre en lettres et pas le reste de la phrase?
Merci pour vos idees.
Pierre
C'est bien ce que je pensais (apres toutes mes recherches infructueuses).
Merci en tous cas pour ta solution de rechange que j'aurais sans doute
mis un moment a elaborer...;-)
Je m'en vais l'appliquer immediatement.
Merci encore et excellente (Oh!) soiree a toi.
Pierre
On 2006-11-27 18:15:36 +0100, "MichDenis" <michdenis@hotmail.com> said:
Il n'y a pas moyen d'appliquer la propriété "Gras" à une
police de caractère dans une cellule en utilisant des fonctions.
Je t'ai fait un petit exemple en VBA
'---------------------------------
Sub Test()
Dim Texte As String, Phrase As String
Dim NbChar As Integer, X As Integer
Texte = ConvNumberLetter(P36, 1, 0)
NbChar = Len(Texte)
Phrase = "La présente facture,arretee a la somme de " _
& Texte & " est certifiee " & _
"sincere et veritable."
X = InStr(1, Phrase, Texte, vbTextCompare)
With Range("A1")
.Value = Phrase
.Characters(X, NbChar).Font.Bold = True
End With
End Sub
'---------------------------------
Et tu peux utiliser l'événement du module feuille pour cette tâche
dépendamment de ton application.
'----------------------
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
'----------------------
"Pierre.M" <prenom.mulot@wanadoo.fr> a écrit dans le message de news:
456b0ec3$0$27382$ba4acef3@news.orange.fr...
Bonsoir tout le monde,
Petite question d'ordre esthetique:
Dans une cellule j'ai la formule suivante:
="La présente facture,arretee a la somme de
"&ConvNumberLetter(P36;1;0)&"est certifiee sincere et veritable." ou
ConvNumberLetter me donne une valeur en lettre (et en euros;-).
Est-il possible de mettre en gras ce resultat de formule, donc
uniquement le nombre en lettres et pas le reste de la phrase?
C'est bien ce que je pensais (apres toutes mes recherches infructueuses). Merci en tous cas pour ta solution de rechange que j'aurais sans doute mis un moment a elaborer...;-) Je m'en vais l'appliquer immediatement. Merci encore et excellente (Oh!) soiree a toi.
Pierre
On 2006-11-27 18:15:36 +0100, "MichDenis" said:
Il n'y a pas moyen d'appliquer la propriété "Gras" à une police de caractère dans une cellule en utilisant des fonctions.
Je t'ai fait un petit exemple en VBA
'--------------------------------- Sub Test()
Dim Texte As String, Phrase As String Dim NbChar As Integer, X As Integer Texte = ConvNumberLetter(P36, 1, 0) NbChar = Len(Texte) Phrase = "La présente facture,arretee a la somme de " _ & Texte & " est certifiee " & _ "sincere et veritable." X = InStr(1, Phrase, Texte, vbTextCompare)
With Range("A1") .Value = Phrase .Characters(X, NbChar).Font.Bold = True End With
End Sub '---------------------------------
Et tu peux utiliser l'événement du module feuille pour cette tâche dépendamment de ton application.
'---------------------- Private Sub Worksheet_Change(ByVal Target As Range)
End Sub '----------------------
"Pierre.M" a écrit dans le message de news: 456b0ec3$0$27382$ Bonsoir tout le monde,
Petite question d'ordre esthetique:
Dans une cellule j'ai la formule suivante: ="La présente facture,arretee a la somme de "&ConvNumberLetter(P36;1;0)&"est certifiee sincere et veritable." ou ConvNumberLetter me donne une valeur en lettre (et en euros;-).
Est-il possible de mettre en gras ce resultat de formule, donc uniquement le nombre en lettres et pas le reste de la phrase?
Merci pour vos idees.
Pierre
MichDenis
Dans la procédure soumise, tu auras compris que tu dois adapter cette ligne de code :
Texte = ConvNumberLetter(P36, 1, 0)
elle pourrait devenir : With worksheets("Feuil2") Texte = ConvNumberLetter(.range("P36"), 1, 0) End With
"Pierre.M" a écrit dans le message de news: 456b222a$0$25934$ C'est bien ce que je pensais (apres toutes mes recherches infructueuses). Merci en tous cas pour ta solution de rechange que j'aurais sans doute mis un moment a elaborer...;-) Je m'en vais l'appliquer immediatement. Merci encore et excellente (Oh!) soiree a toi.
Pierre
On 2006-11-27 18:15:36 +0100, "MichDenis" said:
Il n'y a pas moyen d'appliquer la propriété "Gras" à une police de caractère dans une cellule en utilisant des fonctions.
Je t'ai fait un petit exemple en VBA
'--------------------------------- Sub Test()
Dim Texte As String, Phrase As String Dim NbChar As Integer, X As Integer Texte = ConvNumberLetter(P36, 1, 0) NbChar = Len(Texte) Phrase = "La présente facture,arretee a la somme de " _ & Texte & " est certifiee " & _ "sincere et veritable." X = InStr(1, Phrase, Texte, vbTextCompare)
With Range("A1") .Value = Phrase .Characters(X, NbChar).Font.Bold = True End With
End Sub '---------------------------------
Et tu peux utiliser l'événement du module feuille pour cette tâche dépendamment de ton application.
'---------------------- Private Sub Worksheet_Change(ByVal Target As Range)
End Sub '----------------------
"Pierre.M" a écrit dans le message de news: 456b0ec3$0$27382$ Bonsoir tout le monde,
Petite question d'ordre esthetique:
Dans une cellule j'ai la formule suivante: ="La présente facture,arretee a la somme de "&ConvNumberLetter(P36;1;0)&"est certifiee sincere et veritable." ou ConvNumberLetter me donne une valeur en lettre (et en euros;-).
Est-il possible de mettre en gras ce resultat de formule, donc uniquement le nombre en lettres et pas le reste de la phrase?
Merci pour vos idees.
Pierre
Dans la procédure soumise,
tu auras compris que tu dois adapter cette ligne de code :
Texte = ConvNumberLetter(P36, 1, 0)
elle pourrait devenir :
With worksheets("Feuil2")
Texte = ConvNumberLetter(.range("P36"), 1, 0)
End With
"Pierre.M" <prenom.mulot@wanadoo.fr> a écrit dans le message de news:
456b222a$0$25934$ba4acef3@news.orange.fr...
C'est bien ce que je pensais (apres toutes mes recherches infructueuses).
Merci en tous cas pour ta solution de rechange que j'aurais sans doute
mis un moment a elaborer...;-)
Je m'en vais l'appliquer immediatement.
Merci encore et excellente (Oh!) soiree a toi.
Pierre
On 2006-11-27 18:15:36 +0100, "MichDenis" <michdenis@hotmail.com> said:
Il n'y a pas moyen d'appliquer la propriété "Gras" à une
police de caractère dans une cellule en utilisant des fonctions.
Je t'ai fait un petit exemple en VBA
'---------------------------------
Sub Test()
Dim Texte As String, Phrase As String
Dim NbChar As Integer, X As Integer
Texte = ConvNumberLetter(P36, 1, 0)
NbChar = Len(Texte)
Phrase = "La présente facture,arretee a la somme de " _
& Texte & " est certifiee " & _
"sincere et veritable."
X = InStr(1, Phrase, Texte, vbTextCompare)
With Range("A1")
.Value = Phrase
.Characters(X, NbChar).Font.Bold = True
End With
End Sub
'---------------------------------
Et tu peux utiliser l'événement du module feuille pour cette tâche
dépendamment de ton application.
'----------------------
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
'----------------------
"Pierre.M" <prenom.mulot@wanadoo.fr> a écrit dans le message de news:
456b0ec3$0$27382$ba4acef3@news.orange.fr...
Bonsoir tout le monde,
Petite question d'ordre esthetique:
Dans une cellule j'ai la formule suivante:
="La présente facture,arretee a la somme de
"&ConvNumberLetter(P36;1;0)&"est certifiee sincere et veritable." ou
ConvNumberLetter me donne une valeur en lettre (et en euros;-).
Est-il possible de mettre en gras ce resultat de formule, donc
uniquement le nombre en lettres et pas le reste de la phrase?
Dans la procédure soumise, tu auras compris que tu dois adapter cette ligne de code :
Texte = ConvNumberLetter(P36, 1, 0)
elle pourrait devenir : With worksheets("Feuil2") Texte = ConvNumberLetter(.range("P36"), 1, 0) End With
"Pierre.M" a écrit dans le message de news: 456b222a$0$25934$ C'est bien ce que je pensais (apres toutes mes recherches infructueuses). Merci en tous cas pour ta solution de rechange que j'aurais sans doute mis un moment a elaborer...;-) Je m'en vais l'appliquer immediatement. Merci encore et excellente (Oh!) soiree a toi.
Pierre
On 2006-11-27 18:15:36 +0100, "MichDenis" said:
Il n'y a pas moyen d'appliquer la propriété "Gras" à une police de caractère dans une cellule en utilisant des fonctions.
Je t'ai fait un petit exemple en VBA
'--------------------------------- Sub Test()
Dim Texte As String, Phrase As String Dim NbChar As Integer, X As Integer Texte = ConvNumberLetter(P36, 1, 0) NbChar = Len(Texte) Phrase = "La présente facture,arretee a la somme de " _ & Texte & " est certifiee " & _ "sincere et veritable." X = InStr(1, Phrase, Texte, vbTextCompare)
With Range("A1") .Value = Phrase .Characters(X, NbChar).Font.Bold = True End With
End Sub '---------------------------------
Et tu peux utiliser l'événement du module feuille pour cette tâche dépendamment de ton application.
'---------------------- Private Sub Worksheet_Change(ByVal Target As Range)
End Sub '----------------------
"Pierre.M" a écrit dans le message de news: 456b0ec3$0$27382$ Bonsoir tout le monde,
Petite question d'ordre esthetique:
Dans une cellule j'ai la formule suivante: ="La présente facture,arretee a la somme de "&ConvNumberLetter(P36;1;0)&"est certifiee sincere et veritable." ou ConvNumberLetter me donne une valeur en lettre (et en euros;-).
Est-il possible de mettre en gras ce resultat de formule, donc uniquement le nombre en lettres et pas le reste de la phrase?
Merci pour vos idees.
Pierre
Pierre.M
Merci pour cette précision, je l'ai fait.
Pierre
On 2006-11-27 18:43:24 +0100, "MichDenis" said:
Dans la procédure soumise, tu auras compris que tu dois adapter cette ligne de code :
Texte = ConvNumberLetter(P36, 1, 0)
elle pourrait devenir : With worksheets("Feuil2") Texte = ConvNumberLetter(.range("P36"), 1, 0) End With
Merci pour cette précision, je l'ai fait.
Pierre
On 2006-11-27 18:43:24 +0100, "MichDenis" <michdenis@hotmail.com> said:
Dans la procédure soumise,
tu auras compris que tu dois adapter cette ligne de code :
Texte = ConvNumberLetter(P36, 1, 0)
elle pourrait devenir :
With worksheets("Feuil2")
Texte = ConvNumberLetter(.range("P36"), 1, 0)
End With
