Bonjour à tous,
J'ai une cellule qui contient un texte (fait en partie à partir de données
contenues dans divers autres cellules, mais qui ne contient plus de formules
par le biais d'un collage spécial/valeur).
Je voudrais mettre en gras certains mots de ce texte, devenu sans formule,
comme les nom et prénom, le nom de l'entreprise, ou le nom de la compagnie
d'assurance.
Avec la fonction InStr j'arrive bien à localiser les 1er et derniers
caractères de chaque groupe de mots à mettre en gras.
Mais comment le paramétrer en VBA ? Par exemple, comment mettre en gras, du
caractère 10 au caractère 20 de la cellule A1 par exemple ?
Je sèche !
Merci à tous
François
Bonjour à tous,
J'ai une cellule qui contient un texte (fait en partie à partir de données
contenues dans divers autres cellules, mais qui ne contient plus de formules
par le biais d'un collage spécial/valeur).
Je voudrais mettre en gras certains mots de ce texte, devenu sans formule,
comme les nom et prénom, le nom de l'entreprise, ou le nom de la compagnie
d'assurance.
Avec la fonction InStr j'arrive bien à localiser les 1er et derniers
caractères de chaque groupe de mots à mettre en gras.
Mais comment le paramétrer en VBA ? Par exemple, comment mettre en gras, du
caractère 10 au caractère 20 de la cellule A1 par exemple ?
Je sèche !
Merci à tous
François
Bonjour à tous,
J'ai une cellule qui contient un texte (fait en partie à partir de données
contenues dans divers autres cellules, mais qui ne contient plus de formules
par le biais d'un collage spécial/valeur).
Je voudrais mettre en gras certains mots de ce texte, devenu sans formule,
comme les nom et prénom, le nom de l'entreprise, ou le nom de la compagnie
d'assurance.
Avec la fonction InStr j'arrive bien à localiser les 1er et derniers
caractères de chaque groupe de mots à mettre en gras.
Mais comment le paramétrer en VBA ? Par exemple, comment mettre en gras, du
caractère 10 au caractère 20 de la cellule A1 par exemple ?
Je sèche !
Merci à tous
François
Bonsoir,
With ActiveCell.Characters(Start:, Length:).Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 12
End With
'lStephBonjour à tous,
J'ai une cellule qui contient un texte (fait en partie à partir de
données contenues dans divers autres cellules, mais qui ne contient plus
de formules par le biais d'un collage spécial/valeur).
Je voudrais mettre en gras certains mots de ce texte, devenu sans
formule, comme les nom et prénom, le nom de l'entreprise, ou le nom de la
compagnie d'assurance.
Avec la fonction InStr j'arrive bien à localiser les 1er et derniers
caractères de chaque groupe de mots à mettre en gras.
Mais comment le paramétrer en VBA ? Par exemple, comment mettre en gras,
du caractère 10 au caractère 20 de la cellule A1 par exemple ?
Je sèche !
Merci à tous
François
Bonsoir,
With ActiveCell.Characters(Start:, Length:).Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 12
End With
'lSteph
Bonjour à tous,
J'ai une cellule qui contient un texte (fait en partie à partir de
données contenues dans divers autres cellules, mais qui ne contient plus
de formules par le biais d'un collage spécial/valeur).
Je voudrais mettre en gras certains mots de ce texte, devenu sans
formule, comme les nom et prénom, le nom de l'entreprise, ou le nom de la
compagnie d'assurance.
Avec la fonction InStr j'arrive bien à localiser les 1er et derniers
caractères de chaque groupe de mots à mettre en gras.
Mais comment le paramétrer en VBA ? Par exemple, comment mettre en gras,
du caractère 10 au caractère 20 de la cellule A1 par exemple ?
Je sèche !
Merci à tous
François
Bonsoir,
With ActiveCell.Characters(Start:, Length:).Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 12
End With
'lStephBonjour à tous,
J'ai une cellule qui contient un texte (fait en partie à partir de
données contenues dans divers autres cellules, mais qui ne contient plus
de formules par le biais d'un collage spécial/valeur).
Je voudrais mettre en gras certains mots de ce texte, devenu sans
formule, comme les nom et prénom, le nom de l'entreprise, ou le nom de la
compagnie d'assurance.
Avec la fonction InStr j'arrive bien à localiser les 1er et derniers
caractères de chaque groupe de mots à mettre en gras.
Mais comment le paramétrer en VBA ? Par exemple, comment mettre en gras,
du caractère 10 au caractère 20 de la cellule A1 par exemple ?
Je sèche !
Merci à tous
François
Bonjour LSteph,
Merci pour ta réponse,
J'ai ainsi programmé, pour le texte de la cellule A7 qui suit :
"Nous soussigné COMPAGNIE.S.A., représenté par Jean DUPONT, certifions par
la présente que Monsieur Guillaume DURAND bénéficie, à titre obligatoire,
des garanties de prévoyance souscrites par la Société PEUGEOT auprès de AXA
sous le numéro de conventions 444 4444 depuis le 1 octobre 2007 et ce,
conformément aux dispositions des articles 83 du C.G.I. et L.120 du Code de
la Sécurité Sociale."
- le code que j'ai fait ne bloque pas, mais ne met rien en gras ! Je ne
comprends pas pourquoi ?
phrase = [A7] ' pour la mise en gras dans la cellule A7
total = Len(phrase)
For i = 1 To total ' recherche le nom du salarié
espace = InStr(phrase, "présente que") + 13
espaces = InStr(phrase, "a bénéficié") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = 1 To total ' recherche le nom de la Société
espace = InStr(phrase, "Société") + 8
espaces = InStr(phrase, " auprès") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = 1 To total ' recherche la date de garanties de Prévoyance
espace = InStr(phrase, "jusqu'au") + 9
espaces = InStr(phrase, ", des garanties") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = espaces To total ' recherche la date de garanties de Santé
espace = InStr(phrase, "jusqu'au") + 9
espaces = InStr(phrase, ", des garanties") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
"LSteph" a écrit dans le message de news:
%Bonsoir,
With ActiveCell.Characters(Start:, Length:).Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 12
End With
'lStephBonjour à tous,
J'ai une cellule qui contient un texte (fait en partie à partir de
données contenues dans divers autres cellules, mais qui ne contient plus
de formules par le biais d'un collage spécial/valeur).
Je voudrais mettre en gras certains mots de ce texte, devenu sans
formule, comme les nom et prénom, le nom de l'entreprise, ou le nom de la
compagnie d'assurance.
Avec la fonction InStr j'arrive bien à localiser les 1er et derniers
caractères de chaque groupe de mots à mettre en gras.
Mais comment le paramétrer en VBA ? Par exemple, comment mettre en gras,
du caractère 10 au caractère 20 de la cellule A1 par exemple ?
Je sèche !
Merci à tous
François
Bonjour LSteph,
Merci pour ta réponse,
J'ai ainsi programmé, pour le texte de la cellule A7 qui suit :
"Nous soussigné COMPAGNIE.S.A., représenté par Jean DUPONT, certifions par
la présente que Monsieur Guillaume DURAND bénéficie, à titre obligatoire,
des garanties de prévoyance souscrites par la Société PEUGEOT auprès de AXA
sous le numéro de conventions 444 4444 depuis le 1 octobre 2007 et ce,
conformément aux dispositions des articles 83 du C.G.I. et L.120 du Code de
la Sécurité Sociale."
- le code que j'ai fait ne bloque pas, mais ne met rien en gras ! Je ne
comprends pas pourquoi ?
phrase = [A7] ' pour la mise en gras dans la cellule A7
total = Len(phrase)
For i = 1 To total ' recherche le nom du salarié
espace = InStr(phrase, "présente que") + 13
espaces = InStr(phrase, "a bénéficié") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = 1 To total ' recherche le nom de la Société
espace = InStr(phrase, "Société") + 8
espaces = InStr(phrase, " auprès") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = 1 To total ' recherche la date de garanties de Prévoyance
espace = InStr(phrase, "jusqu'au") + 9
espaces = InStr(phrase, ", des garanties") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = espaces To total ' recherche la date de garanties de Santé
espace = InStr(phrase, "jusqu'au") + 9
espaces = InStr(phrase, ", des garanties") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
%23r8d0uHKIHA.5920@TK2MSFTNGP03.phx.gbl...
Bonsoir,
With ActiveCell.Characters(Start:, Length:).Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 12
End With
'lSteph
Bonjour à tous,
J'ai une cellule qui contient un texte (fait en partie à partir de
données contenues dans divers autres cellules, mais qui ne contient plus
de formules par le biais d'un collage spécial/valeur).
Je voudrais mettre en gras certains mots de ce texte, devenu sans
formule, comme les nom et prénom, le nom de l'entreprise, ou le nom de la
compagnie d'assurance.
Avec la fonction InStr j'arrive bien à localiser les 1er et derniers
caractères de chaque groupe de mots à mettre en gras.
Mais comment le paramétrer en VBA ? Par exemple, comment mettre en gras,
du caractère 10 au caractère 20 de la cellule A1 par exemple ?
Je sèche !
Merci à tous
François
Bonjour LSteph,
Merci pour ta réponse,
J'ai ainsi programmé, pour le texte de la cellule A7 qui suit :
"Nous soussigné COMPAGNIE.S.A., représenté par Jean DUPONT, certifions par
la présente que Monsieur Guillaume DURAND bénéficie, à titre obligatoire,
des garanties de prévoyance souscrites par la Société PEUGEOT auprès de AXA
sous le numéro de conventions 444 4444 depuis le 1 octobre 2007 et ce,
conformément aux dispositions des articles 83 du C.G.I. et L.120 du Code de
la Sécurité Sociale."
- le code que j'ai fait ne bloque pas, mais ne met rien en gras ! Je ne
comprends pas pourquoi ?
phrase = [A7] ' pour la mise en gras dans la cellule A7
total = Len(phrase)
For i = 1 To total ' recherche le nom du salarié
espace = InStr(phrase, "présente que") + 13
espaces = InStr(phrase, "a bénéficié") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = 1 To total ' recherche le nom de la Société
espace = InStr(phrase, "Société") + 8
espaces = InStr(phrase, " auprès") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = 1 To total ' recherche la date de garanties de Prévoyance
espace = InStr(phrase, "jusqu'au") + 9
espaces = InStr(phrase, ", des garanties") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = espaces To total ' recherche la date de garanties de Santé
espace = InStr(phrase, "jusqu'au") + 9
espaces = InStr(phrase, ", des garanties") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
"LSteph" a écrit dans le message de news:
%Bonsoir,
With ActiveCell.Characters(Start:, Length:).Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 12
End With
'lStephBonjour à tous,
J'ai une cellule qui contient un texte (fait en partie à partir de
données contenues dans divers autres cellules, mais qui ne contient plus
de formules par le biais d'un collage spécial/valeur).
Je voudrais mettre en gras certains mots de ce texte, devenu sans
formule, comme les nom et prénom, le nom de l'entreprise, ou le nom de la
compagnie d'assurance.
Avec la fonction InStr j'arrive bien à localiser les 1er et derniers
caractères de chaque groupe de mots à mettre en gras.
Mais comment le paramétrer en VBA ? Par exemple, comment mettre en gras,
du caractère 10 au caractère 20 de la cellule A1 par exemple ?
Je sèche !
Merci à tous
François
Re,
;-)
je n'ai pas approfondi mais t'as juste un grain de sable pour commencer:
Cells(7,1) devrait convenir mieux que Cells(1,7)
s'agissant d'A7 et non de G1
--
lStephBonjour LSteph,
Merci pour ta réponse,
J'ai ainsi programmé, pour le texte de la cellule A7 qui suit :
"Nous soussigné COMPAGNIE.S.A., représenté par Jean DUPONT, certifions
par la présente que Monsieur Guillaume DURAND bénéficie, à titre
obligatoire, des garanties de prévoyance souscrites par la Société
PEUGEOT auprès de AXA sous le numéro de conventions 444 4444 depuis le 1
octobre 2007 et ce, conformément aux dispositions des articles 83 du
C.G.I. et L.120 du Code de la Sécurité Sociale."
- le code que j'ai fait ne bloque pas, mais ne met rien en gras ! Je ne
comprends pas pourquoi ?
phrase = [A7] ' pour la mise en gras dans la cellule A7
total = Len(phrase)
For i = 1 To total ' recherche le nom du salarié
espace = InStr(phrase, "présente que") + 13
espaces = InStr(phrase, "a bénéficié") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = 1 To total ' recherche le nom de la Société
espace = InStr(phrase, "Société") + 8
espaces = InStr(phrase, " auprès") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = 1 To total ' recherche la date de garanties de Prévoyance
espace = InStr(phrase, "jusqu'au") + 9
espaces = InStr(phrase, ", des garanties") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = espaces To total ' recherche la date de garanties de Santé
espace = InStr(phrase, "jusqu'au") + 9
espaces = InStr(phrase, ", des garanties") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
"LSteph" a écrit dans le message de news:
%Bonsoir,
With ActiveCell.Characters(Start:, Length:).Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 12
End With
'lStephBonjour à tous,
J'ai une cellule qui contient un texte (fait en partie à partir de
données contenues dans divers autres cellules, mais qui ne contient
plus de formules par le biais d'un collage spécial/valeur).
Je voudrais mettre en gras certains mots de ce texte, devenu sans
formule, comme les nom et prénom, le nom de l'entreprise, ou le nom de
la compagnie d'assurance.
Avec la fonction InStr j'arrive bien à localiser les 1er et derniers
caractères de chaque groupe de mots à mettre en gras.
Mais comment le paramétrer en VBA ? Par exemple, comment mettre en
gras, du caractère 10 au caractère 20 de la cellule A1 par exemple ?
Je sèche !
Merci à tous
François
Re,
;-)
je n'ai pas approfondi mais t'as juste un grain de sable pour commencer:
Cells(7,1) devrait convenir mieux que Cells(1,7)
s'agissant d'A7 et non de G1
--
lSteph
Bonjour LSteph,
Merci pour ta réponse,
J'ai ainsi programmé, pour le texte de la cellule A7 qui suit :
"Nous soussigné COMPAGNIE.S.A., représenté par Jean DUPONT, certifions
par la présente que Monsieur Guillaume DURAND bénéficie, à titre
obligatoire, des garanties de prévoyance souscrites par la Société
PEUGEOT auprès de AXA sous le numéro de conventions 444 4444 depuis le 1
octobre 2007 et ce, conformément aux dispositions des articles 83 du
C.G.I. et L.120 du Code de la Sécurité Sociale."
- le code que j'ai fait ne bloque pas, mais ne met rien en gras ! Je ne
comprends pas pourquoi ?
phrase = [A7] ' pour la mise en gras dans la cellule A7
total = Len(phrase)
For i = 1 To total ' recherche le nom du salarié
espace = InStr(phrase, "présente que") + 13
espaces = InStr(phrase, "a bénéficié") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = 1 To total ' recherche le nom de la Société
espace = InStr(phrase, "Société") + 8
espaces = InStr(phrase, " auprès") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = 1 To total ' recherche la date de garanties de Prévoyance
espace = InStr(phrase, "jusqu'au") + 9
espaces = InStr(phrase, ", des garanties") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = espaces To total ' recherche la date de garanties de Santé
espace = InStr(phrase, "jusqu'au") + 9
espaces = InStr(phrase, ", des garanties") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
%23r8d0uHKIHA.5920@TK2MSFTNGP03.phx.gbl...
Bonsoir,
With ActiveCell.Characters(Start:, Length:).Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 12
End With
'lSteph
Bonjour à tous,
J'ai une cellule qui contient un texte (fait en partie à partir de
données contenues dans divers autres cellules, mais qui ne contient
plus de formules par le biais d'un collage spécial/valeur).
Je voudrais mettre en gras certains mots de ce texte, devenu sans
formule, comme les nom et prénom, le nom de l'entreprise, ou le nom de
la compagnie d'assurance.
Avec la fonction InStr j'arrive bien à localiser les 1er et derniers
caractères de chaque groupe de mots à mettre en gras.
Mais comment le paramétrer en VBA ? Par exemple, comment mettre en
gras, du caractère 10 au caractère 20 de la cellule A1 par exemple ?
Je sèche !
Merci à tous
François
Re,
;-)
je n'ai pas approfondi mais t'as juste un grain de sable pour commencer:
Cells(7,1) devrait convenir mieux que Cells(1,7)
s'agissant d'A7 et non de G1
--
lStephBonjour LSteph,
Merci pour ta réponse,
J'ai ainsi programmé, pour le texte de la cellule A7 qui suit :
"Nous soussigné COMPAGNIE.S.A., représenté par Jean DUPONT, certifions
par la présente que Monsieur Guillaume DURAND bénéficie, à titre
obligatoire, des garanties de prévoyance souscrites par la Société
PEUGEOT auprès de AXA sous le numéro de conventions 444 4444 depuis le 1
octobre 2007 et ce, conformément aux dispositions des articles 83 du
C.G.I. et L.120 du Code de la Sécurité Sociale."
- le code que j'ai fait ne bloque pas, mais ne met rien en gras ! Je ne
comprends pas pourquoi ?
phrase = [A7] ' pour la mise en gras dans la cellule A7
total = Len(phrase)
For i = 1 To total ' recherche le nom du salarié
espace = InStr(phrase, "présente que") + 13
espaces = InStr(phrase, "a bénéficié") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = 1 To total ' recherche le nom de la Société
espace = InStr(phrase, "Société") + 8
espaces = InStr(phrase, " auprès") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = 1 To total ' recherche la date de garanties de Prévoyance
espace = InStr(phrase, "jusqu'au") + 9
espaces = InStr(phrase, ", des garanties") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = espaces To total ' recherche la date de garanties de Santé
espace = InStr(phrase, "jusqu'au") + 9
espaces = InStr(phrase, ", des garanties") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
"LSteph" a écrit dans le message de news:
%Bonsoir,
With ActiveCell.Characters(Start:, Length:).Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 12
End With
'lStephBonjour à tous,
J'ai une cellule qui contient un texte (fait en partie à partir de
données contenues dans divers autres cellules, mais qui ne contient
plus de formules par le biais d'un collage spécial/valeur).
Je voudrais mettre en gras certains mots de ce texte, devenu sans
formule, comme les nom et prénom, le nom de l'entreprise, ou le nom de
la compagnie d'assurance.
Avec la fonction InStr j'arrive bien à localiser les 1er et derniers
caractères de chaque groupe de mots à mettre en gras.
Mais comment le paramétrer en VBA ? Par exemple, comment mettre en
gras, du caractère 10 au caractère 20 de la cellule A1 par exemple ?
Je sèche !
Merci à tous
François
Bonjour à tous,
J'ai une cellule qui contient un texte (fait en partie à partir de données
contenues dans divers autres cellules, mais qui ne contient plus de
formules par le biais d'un collage spécial/valeur).
Je voudrais mettre en gras certains mots de ce texte, devenu sans formule,
comme les nom et prénom, le nom de l'entreprise, ou le nom de la compagnie
d'assurance.
Avec la fonction InStr j'arrive bien à localiser les 1er et derniers
caractères de chaque groupe de mots à mettre en gras.
Mais comment le paramétrer en VBA ? Par exemple, comment mettre en gras,
du caractère 10 au caractère 20 de la cellule A1 par exemple ?
Je sèche !
Merci à tous
François
Bonjour à tous,
J'ai une cellule qui contient un texte (fait en partie à partir de données
contenues dans divers autres cellules, mais qui ne contient plus de
formules par le biais d'un collage spécial/valeur).
Je voudrais mettre en gras certains mots de ce texte, devenu sans formule,
comme les nom et prénom, le nom de l'entreprise, ou le nom de la compagnie
d'assurance.
Avec la fonction InStr j'arrive bien à localiser les 1er et derniers
caractères de chaque groupe de mots à mettre en gras.
Mais comment le paramétrer en VBA ? Par exemple, comment mettre en gras,
du caractère 10 au caractère 20 de la cellule A1 par exemple ?
Je sèche !
Merci à tous
François
Bonjour à tous,
J'ai une cellule qui contient un texte (fait en partie à partir de données
contenues dans divers autres cellules, mais qui ne contient plus de
formules par le biais d'un collage spécial/valeur).
Je voudrais mettre en gras certains mots de ce texte, devenu sans formule,
comme les nom et prénom, le nom de l'entreprise, ou le nom de la compagnie
d'assurance.
Avec la fonction InStr j'arrive bien à localiser les 1er et derniers
caractères de chaque groupe de mots à mettre en gras.
Mais comment le paramétrer en VBA ? Par exemple, comment mettre en gras,
du caractère 10 au caractère 20 de la cellule A1 par exemple ?
Je sèche !
Merci à tous
François
Bonjour LSteph,
Merci pour ta réponse,
J'ai ainsi programmé, pour le texte de la cellule A7 qui suit :
"Nous soussigné COMPAGNIE.S.A., représenté par Jean DUPONT, certifions par
la présente que Monsieur Guillaume DURAND bénéficie, à titre obligatoire,
des garanties de prévoyance souscrites par la Société PEUGEOT auprès de AXA
sous le numéro de conventions 444 4444 depuis le 1 octobre 2007 et ce,
conformément aux dispositions des articles 83 du C.G.I. et L.120 du Code de
la Sécurité Sociale."
- le code que j'ai fait ne bloque pas, mais ne met rien en gras ! Je ne
comprends pas pourquoi ?
phrase = [A7] ' pour la mise en gras dans la cellule A7
total = Len(phrase)
For i = 1 To total ' recherche le nom du salarié
espace = InStr(phrase, "présente que") + 13
espaces = InStr(phrase, "a bénéficié") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = 1 To total ' recherche le nom de la Société
espace = InStr(phrase, "Société") + 8
espaces = InStr(phrase, " auprès") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = 1 To total ' recherche la date de garanties de Prévoyance
espace = InStr(phrase, "jusqu'au") + 9
espaces = InStr(phrase, ", des garanties") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = espaces To total ' recherche la date de garanties de Santé
espace = InStr(phrase, "jusqu'au") + 9
espaces = InStr(phrase, ", des garanties") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
"LSteph" a écrit dans le message de news:
%Bonsoir,
With ActiveCell.Characters(Start:, Length:).Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 12
End With
'lStephBonjour à tous,
J'ai une cellule qui contient un texte (fait en partie à partir de
données contenues dans divers autres cellules, mais qui ne contient plus
de formules par le biais d'un collage spécial/valeur).
Je voudrais mettre en gras certains mots de ce texte, devenu sans
formule, comme les nom et prénom, le nom de l'entreprise, ou le nom de la
compagnie d'assurance.
Avec la fonction InStr j'arrive bien à localiser les 1er et derniers
caractères de chaque groupe de mots à mettre en gras.
Mais comment le paramétrer en VBA ? Par exemple, comment mettre en gras,
du caractère 10 au caractère 20 de la cellule A1 par exemple ?
Je sèche !
Merci à tous
François
Bonjour LSteph,
Merci pour ta réponse,
J'ai ainsi programmé, pour le texte de la cellule A7 qui suit :
"Nous soussigné COMPAGNIE.S.A., représenté par Jean DUPONT, certifions par
la présente que Monsieur Guillaume DURAND bénéficie, à titre obligatoire,
des garanties de prévoyance souscrites par la Société PEUGEOT auprès de AXA
sous le numéro de conventions 444 4444 depuis le 1 octobre 2007 et ce,
conformément aux dispositions des articles 83 du C.G.I. et L.120 du Code de
la Sécurité Sociale."
- le code que j'ai fait ne bloque pas, mais ne met rien en gras ! Je ne
comprends pas pourquoi ?
phrase = [A7] ' pour la mise en gras dans la cellule A7
total = Len(phrase)
For i = 1 To total ' recherche le nom du salarié
espace = InStr(phrase, "présente que") + 13
espaces = InStr(phrase, "a bénéficié") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = 1 To total ' recherche le nom de la Société
espace = InStr(phrase, "Société") + 8
espaces = InStr(phrase, " auprès") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = 1 To total ' recherche la date de garanties de Prévoyance
espace = InStr(phrase, "jusqu'au") + 9
espaces = InStr(phrase, ", des garanties") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = espaces To total ' recherche la date de garanties de Santé
espace = InStr(phrase, "jusqu'au") + 9
espaces = InStr(phrase, ", des garanties") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
%23r8d0uHKIHA.5920@TK2MSFTNGP03.phx.gbl...
Bonsoir,
With ActiveCell.Characters(Start:, Length:).Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 12
End With
'lSteph
Bonjour à tous,
J'ai une cellule qui contient un texte (fait en partie à partir de
données contenues dans divers autres cellules, mais qui ne contient plus
de formules par le biais d'un collage spécial/valeur).
Je voudrais mettre en gras certains mots de ce texte, devenu sans
formule, comme les nom et prénom, le nom de l'entreprise, ou le nom de la
compagnie d'assurance.
Avec la fonction InStr j'arrive bien à localiser les 1er et derniers
caractères de chaque groupe de mots à mettre en gras.
Mais comment le paramétrer en VBA ? Par exemple, comment mettre en gras,
du caractère 10 au caractère 20 de la cellule A1 par exemple ?
Je sèche !
Merci à tous
François
Bonjour LSteph,
Merci pour ta réponse,
J'ai ainsi programmé, pour le texte de la cellule A7 qui suit :
"Nous soussigné COMPAGNIE.S.A., représenté par Jean DUPONT, certifions par
la présente que Monsieur Guillaume DURAND bénéficie, à titre obligatoire,
des garanties de prévoyance souscrites par la Société PEUGEOT auprès de AXA
sous le numéro de conventions 444 4444 depuis le 1 octobre 2007 et ce,
conformément aux dispositions des articles 83 du C.G.I. et L.120 du Code de
la Sécurité Sociale."
- le code que j'ai fait ne bloque pas, mais ne met rien en gras ! Je ne
comprends pas pourquoi ?
phrase = [A7] ' pour la mise en gras dans la cellule A7
total = Len(phrase)
For i = 1 To total ' recherche le nom du salarié
espace = InStr(phrase, "présente que") + 13
espaces = InStr(phrase, "a bénéficié") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = 1 To total ' recherche le nom de la Société
espace = InStr(phrase, "Société") + 8
espaces = InStr(phrase, " auprès") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = 1 To total ' recherche la date de garanties de Prévoyance
espace = InStr(phrase, "jusqu'au") + 9
espaces = InStr(phrase, ", des garanties") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = espaces To total ' recherche la date de garanties de Santé
espace = InStr(phrase, "jusqu'au") + 9
espaces = InStr(phrase, ", des garanties") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
"LSteph" a écrit dans le message de news:
%Bonsoir,
With ActiveCell.Characters(Start:, Length:).Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 12
End With
'lStephBonjour à tous,
J'ai une cellule qui contient un texte (fait en partie à partir de
données contenues dans divers autres cellules, mais qui ne contient plus
de formules par le biais d'un collage spécial/valeur).
Je voudrais mettre en gras certains mots de ce texte, devenu sans
formule, comme les nom et prénom, le nom de l'entreprise, ou le nom de la
compagnie d'assurance.
Avec la fonction InStr j'arrive bien à localiser les 1er et derniers
caractères de chaque groupe de mots à mettre en gras.
Mais comment le paramétrer en VBA ? Par exemple, comment mettre en gras,
du caractère 10 au caractère 20 de la cellule A1 par exemple ?
Je sèche !
Merci à tous
François
Bonjour,
Explication plus bas de ce qui ne va pas.
Voici pour les deux premières occurences, tu corrigeras le reste (ou ton
texte)
''''''''''''''''
Sub aza()
Dim phrase As String, départ As Long, longueur As Long
With [A7]
.Font.FontStyle = "Normal"
phrase = .Value ' pour la mise en gras dans la cellule A7
départ = InStr(phrase, "présente que") + 13
longueur = InStr(phrase, "bénéficie") - 1
With .Characters(Start:=départ, Length:=longueur - départ).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
départ = InStr(phrase, "Société") + 8
longueur = InStr(phrase, "auprès") - 1
With .Characters(Start:=départ, Length:=longueur - départ).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
End With
End Sub
'''''''''''
'Pas besoin de For i..machin on a déjà le with et instr qui détermine la
'longueur
'our avoir la longueur il faut soustraire la valeur du point de départ
'Ton codecherche a bénéficié
'dans le texte c'est bénéficie
'si tu cherche " auprès" c'est différent de "auprès"
'avec ou sans espace le -1 s'applique ou pas.
'Ensuite jusqu'au , il n'y a pas cela dans ton texte!
'lStephBonjour LSteph,
Merci pour ta réponse,
J'ai ainsi programmé, pour le texte de la cellule A7 qui suit :
"Nous soussigné COMPAGNIE.S.A., représenté par Jean DUPONT, certifions
par la présente que Monsieur Guillaume DURAND bénéficie, à titre
obligatoire, des garanties de prévoyance souscrites par la Société
PEUGEOT auprès de AXA sous le numéro de conventions 444 4444 depuis le 1
octobre 2007 et ce, conformément aux dispositions des articles 83 du
C.G.I. et L.120 du Code de la Sécurité Sociale."
- le code que j'ai fait ne bloque pas, mais ne met rien en gras ! Je ne
comprends pas pourquoi ?
phrase = [A7] ' pour la mise en gras dans la cellule A7
total = Len(phrase)
For i = 1 To total ' recherche le nom du salarié
espace = InStr(phrase, "présente que") + 13
espaces = InStr(phrase, "a bénéficié") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = 1 To total ' recherche le nom de la Société
espace = InStr(phrase, "Société") + 8
espaces = InStr(phrase, " auprès") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = 1 To total ' recherche la date de garanties de Prévoyance
espace = InStr(phrase, "jusqu'au") + 9
espaces = InStr(phrase, ", des garanties") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = espaces To total ' recherche la date de garanties de Santé
espace = InStr(phrase, "jusqu'au") + 9
espaces = InStr(phrase, ", des garanties") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
"LSteph" a écrit dans le message de news:
%Bonsoir,
With ActiveCell.Characters(Start:, Length:).Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 12
End With
'lStephBonjour à tous,
J'ai une cellule qui contient un texte (fait en partie à partir de
données contenues dans divers autres cellules, mais qui ne contient
plus de formules par le biais d'un collage spécial/valeur).
Je voudrais mettre en gras certains mots de ce texte, devenu sans
formule, comme les nom et prénom, le nom de l'entreprise, ou le nom de
la compagnie d'assurance.
Avec la fonction InStr j'arrive bien à localiser les 1er et derniers
caractères de chaque groupe de mots à mettre en gras.
Mais comment le paramétrer en VBA ? Par exemple, comment mettre en
gras, du caractère 10 au caractère 20 de la cellule A1 par exemple ?
Je sèche !
Merci à tous
François
Bonjour,
Explication plus bas de ce qui ne va pas.
Voici pour les deux premières occurences, tu corrigeras le reste (ou ton
texte)
''''''''''''''''
Sub aza()
Dim phrase As String, départ As Long, longueur As Long
With [A7]
.Font.FontStyle = "Normal"
phrase = .Value ' pour la mise en gras dans la cellule A7
départ = InStr(phrase, "présente que") + 13
longueur = InStr(phrase, "bénéficie") - 1
With .Characters(Start:=départ, Length:=longueur - départ).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
départ = InStr(phrase, "Société") + 8
longueur = InStr(phrase, "auprès") - 1
With .Characters(Start:=départ, Length:=longueur - départ).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
End With
End Sub
'''''''''''
'Pas besoin de For i..machin on a déjà le with et instr qui détermine la
'longueur
'our avoir la longueur il faut soustraire la valeur du point de départ
'Ton codecherche a bénéficié
'dans le texte c'est bénéficie
'si tu cherche " auprès" c'est différent de "auprès"
'avec ou sans espace le -1 s'applique ou pas.
'Ensuite jusqu'au , il n'y a pas cela dans ton texte!
'lSteph
Bonjour LSteph,
Merci pour ta réponse,
J'ai ainsi programmé, pour le texte de la cellule A7 qui suit :
"Nous soussigné COMPAGNIE.S.A., représenté par Jean DUPONT, certifions
par la présente que Monsieur Guillaume DURAND bénéficie, à titre
obligatoire, des garanties de prévoyance souscrites par la Société
PEUGEOT auprès de AXA sous le numéro de conventions 444 4444 depuis le 1
octobre 2007 et ce, conformément aux dispositions des articles 83 du
C.G.I. et L.120 du Code de la Sécurité Sociale."
- le code que j'ai fait ne bloque pas, mais ne met rien en gras ! Je ne
comprends pas pourquoi ?
phrase = [A7] ' pour la mise en gras dans la cellule A7
total = Len(phrase)
For i = 1 To total ' recherche le nom du salarié
espace = InStr(phrase, "présente que") + 13
espaces = InStr(phrase, "a bénéficié") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = 1 To total ' recherche le nom de la Société
espace = InStr(phrase, "Société") + 8
espaces = InStr(phrase, " auprès") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = 1 To total ' recherche la date de garanties de Prévoyance
espace = InStr(phrase, "jusqu'au") + 9
espaces = InStr(phrase, ", des garanties") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = espaces To total ' recherche la date de garanties de Santé
espace = InStr(phrase, "jusqu'au") + 9
espaces = InStr(phrase, ", des garanties") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
%23r8d0uHKIHA.5920@TK2MSFTNGP03.phx.gbl...
Bonsoir,
With ActiveCell.Characters(Start:, Length:).Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 12
End With
'lSteph
Bonjour à tous,
J'ai une cellule qui contient un texte (fait en partie à partir de
données contenues dans divers autres cellules, mais qui ne contient
plus de formules par le biais d'un collage spécial/valeur).
Je voudrais mettre en gras certains mots de ce texte, devenu sans
formule, comme les nom et prénom, le nom de l'entreprise, ou le nom de
la compagnie d'assurance.
Avec la fonction InStr j'arrive bien à localiser les 1er et derniers
caractères de chaque groupe de mots à mettre en gras.
Mais comment le paramétrer en VBA ? Par exemple, comment mettre en
gras, du caractère 10 au caractère 20 de la cellule A1 par exemple ?
Je sèche !
Merci à tous
François
Bonjour,
Explication plus bas de ce qui ne va pas.
Voici pour les deux premières occurences, tu corrigeras le reste (ou ton
texte)
''''''''''''''''
Sub aza()
Dim phrase As String, départ As Long, longueur As Long
With [A7]
.Font.FontStyle = "Normal"
phrase = .Value ' pour la mise en gras dans la cellule A7
départ = InStr(phrase, "présente que") + 13
longueur = InStr(phrase, "bénéficie") - 1
With .Characters(Start:=départ, Length:=longueur - départ).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
départ = InStr(phrase, "Société") + 8
longueur = InStr(phrase, "auprès") - 1
With .Characters(Start:=départ, Length:=longueur - départ).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
End With
End Sub
'''''''''''
'Pas besoin de For i..machin on a déjà le with et instr qui détermine la
'longueur
'our avoir la longueur il faut soustraire la valeur du point de départ
'Ton codecherche a bénéficié
'dans le texte c'est bénéficie
'si tu cherche " auprès" c'est différent de "auprès"
'avec ou sans espace le -1 s'applique ou pas.
'Ensuite jusqu'au , il n'y a pas cela dans ton texte!
'lStephBonjour LSteph,
Merci pour ta réponse,
J'ai ainsi programmé, pour le texte de la cellule A7 qui suit :
"Nous soussigné COMPAGNIE.S.A., représenté par Jean DUPONT, certifions
par la présente que Monsieur Guillaume DURAND bénéficie, à titre
obligatoire, des garanties de prévoyance souscrites par la Société
PEUGEOT auprès de AXA sous le numéro de conventions 444 4444 depuis le 1
octobre 2007 et ce, conformément aux dispositions des articles 83 du
C.G.I. et L.120 du Code de la Sécurité Sociale."
- le code que j'ai fait ne bloque pas, mais ne met rien en gras ! Je ne
comprends pas pourquoi ?
phrase = [A7] ' pour la mise en gras dans la cellule A7
total = Len(phrase)
For i = 1 To total ' recherche le nom du salarié
espace = InStr(phrase, "présente que") + 13
espaces = InStr(phrase, "a bénéficié") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = 1 To total ' recherche le nom de la Société
espace = InStr(phrase, "Société") + 8
espaces = InStr(phrase, " auprès") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = 1 To total ' recherche la date de garanties de Prévoyance
espace = InStr(phrase, "jusqu'au") + 9
espaces = InStr(phrase, ", des garanties") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
For i = espaces To total ' recherche la date de garanties de Santé
espace = InStr(phrase, "jusqu'au") + 9
espaces = InStr(phrase, ", des garanties") - 1
With Cells(1, 7).Characters(Start:=espace, Length:=espaces).Font
.Name = "Book Antique"
.FontStyle = "Gras"
.Size = 11
End With
Next i
"LSteph" a écrit dans le message de news:
%Bonsoir,
With ActiveCell.Characters(Start:, Length:).Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 12
End With
'lStephBonjour à tous,
J'ai une cellule qui contient un texte (fait en partie à partir de
données contenues dans divers autres cellules, mais qui ne contient
plus de formules par le biais d'un collage spécial/valeur).
Je voudrais mettre en gras certains mots de ce texte, devenu sans
formule, comme les nom et prénom, le nom de l'entreprise, ou le nom de
la compagnie d'assurance.
Avec la fonction InStr j'arrive bien à localiser les 1er et derniers
caractères de chaque groupe de mots à mettre en gras.
Mais comment le paramétrer en VBA ? Par exemple, comment mettre en
gras, du caractère 10 au caractère 20 de la cellule A1 par exemple ?
Je sèche !
Merci à tous
François