Changer la taille et passage en gras un partie de cellule
Bonjour à tous,
J'ai un fichier excel ou il y a des encadrements de type titre
est il possible après un mot dans une cellule de modifier l'apparence de la suite
j'ai une cellule ou il y a pagination 1 sur X
Le but est que pagination soit en 8 et non gras alors que le 1 sur X soit en 11 et gras
idem pour la cellule ou il y a Référence TPM_AR_XXXX
référence en 8 non gras et a partir de TPM en 11 et gras
Je joint un fichier
Merci d'avance pour vos retours
Bien cordialement,
Bonjour,
Plutôt que de fusionner les cellules des colonnes O, P & Q, pourquoi ne pas utiliser O pour la mention en taille 8 ? Les deux cellules cellules voisines afficheraient les valeurs en gras et taille 11
donc c'est pour cela que je cherche un code vba pour modifier cela
Re-bonjour,
donc c'est pour cela que je cherche un code vba pour modifier cela
C'est sans doute aussi pour ça qu'un fichier doit être représentatif de la situation. Si tu l'avais fait et que tu avais précisé que tu envisageais de passer par du VBA, je ne serais vraisemblablement même pas intervenu :
- qu'est-ce qui va déclencher l'exécution du code ?
- tes mentions seront toujours dans la même colonne ?
- après le texte "Référence", il y a deux espaces ... mais 3 après "Pagination"
- apparemment, il y aussi un cas où la mention est "Annule"
Bref, trop d'inconnues et d'impondérables pour un vendredi
Le bout de code suivant fait ce que tu demandes, pour une cellule préalablement sélectionnée (et à partir du 12e caractère) ... fais-en ce que tu peux !
Sub changerPolice()
With ActiveCell.Characters(12, 20).Font
.Bold = True
.Size = 11
End With
End SubJe te remercie pour le bout de code
Je m'excuse de la présentation de mon soucis
J'ai réussi a trouver une solution
.Range("L" & CEL.Row).Characters(InStr(1, Range("L" & CEL.Row).Value, "Référence"), Len("Référence")).Font.Bold = False
.Range("L" & CEL.Row).Characters(InStr(1, Range("L" & CEL.Row).Value, "Référence"), Len("Référence")).Font.Size = 8
Bien cordialement
edit mon coller n'a pas fonctionné du premier coup ;)