VBA-Excel Changer la police

Résolu

Taille

safami65 Messages postés 14 Date d'inscription Statut Membre Dernière intervention -
safami65 Messages postés 14 Date d'inscription Statut Membre Dernière intervention - 21 oct. 2013 à 08:28

Bonjour,

Voici mon problème :

Par macro VBA, j'écrit du texte dans une cellule en inserant un retour à la ligne.

par exemple :

Nom
Prénom

Excele me met du calibri taille 11 par deffaut.

Peux ton gérer la police du "nom et du prénom" séparément par macro ?

(j'espère être claire ^^)

Répondre (21) Posez votre question

Répondre (21)

A voir également:

Vba police
Police bref ✓ - Forum Bureautique
Changer police facebook - Guide
Police aptos - Accueil - Bureautique
Police ricard - Forum Graphisme
Police instagram - Guide

21 réponses

Réponse 1 / 21

Meilleure réponse

La meilleure réponse est la réponse qui a été validée par nos équipes.

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

Changement police, taille, couleur texte dans la meme cellule:

exemple:

Sub test()
    With Worksheets("feuil1").Range("B1")
        'texte cellule
        .Value = "New Title"
        'Caracteres 1 longueur 4: New_
        With .Characters(Start:=1, Length:=4).Font
            .Name = "Calibri"
            .FontStyle = "Normal"
            .Size = 11
        End With
        'Caracteres 5 longueur 5: Title
        With .Characters(Start:=5, Length:=5).Font
            .Name = "arial black"
            .FontStyle = "Gras italique"
            .Size = 28
            .Color = -16776961
        End With
    End With
End Sub

Réponse 2 / 21

melanie1324 Messages postés 1504 Date d'inscription Statut Membre Dernière intervention 155

Comme l'a dit f894009, tout dépend comment tu renseignes le nom et le prénom.

mais voici comment on fait sur deux lignes :

cells(1,1).select
ActiveCell.FormulaR1C1 = "DUPONT" & Chr(10) & "Martin"
With ActiveCell.Characters(Start:=1, Length:=6).Font
.Name = "Algerian"
.FontStyle = "Normal"
.Size = 14
End With
With ActiveCell.Characters(Start:=7, Length:=1).Font
.Name = "Calibri"
.FontStyle = "Normal"
.Size = 11
End With

Dans With ActiveCell.Characters : start est le premier caractère sur lequel tu veux appliquer la mise en forme et length : le dernier caractère.

Maintenant si ton nom et ton prénom est dans une variable, tu peux écrire comme ca :

nom = "DUPONT"
Prenom = "Martin"

cells(1,1) = nom & chr(10) & "Martin"

nbnom = len(nom)
nbprénom = len(cells(1,1))

With ActiveCell.Characters(Start:=1, Length:=nbnom).Font
.Name = "Algerian"
.FontStyle = "Normal"
.Size = 14
End With
With ActiveCell.Characters(Start:=nbnom+1, Length:=nbprénom).Font
.Name = "Calibri"
.FontStyle = "Normal"
.Size = 11
End With

Réponse 3 / 21

melanie1324 Messages postés 1504 Date d'inscription Statut Membre Dernière intervention 155

bonjour,

tu peux tout à fait gérer la police via macro.

Mais je te propose deux solutions :

1ère :
tu configures tes cellules manuellement. Tu sélectionnes tes cellules et tu mets la police que tu veux.

Dans ton code, tu écris simplement :
cells(1,1).value = textbox.value
Normalement, ca ne touche pas à police/

2ème :
si tu veux gérer la police par macro
cells(1,1).select
With Selection.Font
.Name = "Algerian" 'la police = Algerian, si tu veux Calibri, remplace Algerian apr Calibri
.Size = 16 'Taille de la police, si tu veux 16, tu mest 16, si tu veux, 12, tu remplaces 16 par 12

End With

Réponse 4 / 21

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Re,

C'est un exemple pour montrez qu'il est possible de faire.

mais si je change le texte il faut que je re bidouille ma macro à chaque fois Il faudrait expliquer comment vous ecrivez nom et prenom par macro !!!!!

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 21

melanie1324 Messages postés 1504 Date d'inscription Statut Membre Dernière intervention 155

Bonjour,

Je vais te mettre des commentaires et ce sera plus simple.
Je vais prendre l'hypothèse que le nom est dans la textbox1 et le prénom dans la textbox2.

Et que tu écris le nom et le prénom dans la cellule A1.

nom = textbox1.value
Prenom = textbox2.value

cells(1,1) = textbox1.value & chr(10) & textbox2.value

nbnom = len(textbox1.value) 'nbnom = nombre de caractères contenus dans le nom
nbnomprenom = len(len(textbox1.value+textbox2.value+1) 'nbnomprenom = nombre de caractères contenus dans le nom et le prénom +1

With ActiveCell.Characters(Start:=1, Length:=nbnom).Font 'dans la cellule A1, du caractère 1 (Start=1) au caractère égal nbom (autrement dit jusqu'au dernier caractère du nom), on applique le format ci-dessous
.Name = "Algerian"
.FontStyle = "Normal"
.Size = 14
End With

With ActiveCell.Characters(Start:=nbnom+2, Length:=nbnomprenom).Font 'dans la cellule A1 du caractère nbnom+2 ( autrement dit au premier caractère du prénom) jusqu'au caractère nbnomprenom (autrement dit jusqu'au dernier cacractère du prénom), on applique le format ci-dessous
.Name = "Calibri"
.FontStyle = "Normal"
.Size = 11
End With

Comprends tu ou il reste encore des zones d'ombres?

Réponse 6 / 21

melanie1324 Messages postés 1504 Date d'inscription Statut Membre Dernière intervention 155

Bonjour,

Il s'agissait d'un exemple. Le principal est que tu comprennes et que tu puisses l'adapter à ton besoin.

Pourquoi nbnom+2?

je reprends mon exemple :
nom = "DURAND"
prénom = "MARTIN"

cells(1,1) = nom & chr(10) & prénom

nbnom = len(nom) 'nom = 6
nbprenom = len(prenom) 'prenom =6
nbnomprenom = len(nom)+len(prenom) 'nom+prénom = 12
nbcellule = len(cells(1,1) ' 13

donc si tu veux commencer le format à partir du prénom :
si tu mets start = nbnom 'soit start = 6
==> c'est la position du dernier caractère du nom
si tu mets start = nbnom+1 'soit start = 7
==> c'est la position du blanc
si tu mets start = nbnom+2 'soit start = 8
==> c'est la position du premier caractère du prénom (ce qui t'intéresse)

Réponse 7 / 21

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

Bonjour,

Sheets("Feuil1").CommandButton1.Visible = False

Adapter nom feuille et nom bouton.
A+

safami65 Messages postés 14 Date d'inscription Statut Membre Dernière intervention

Super !!
J'étais pas loin, j'avais marqué Worksheet ^^

Sais tu afficher un bouton au démarage du document excel ?

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

Dans le module ThisWorkBook la procédure Open tu met la même commande mais avec true.

Private Sub Workbook_Open()
    Sheets("Feuil1").CommandButton1.Visible = True
End Sub

safami65 Messages postés 14 Date d'inscription Statut Membre Dernière intervention

Nickel.
Merci beaucoup.

Réponse 8 / 21

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

Tant qu'ont y est...autre solution

Sub SepareTexte()
Dim e As Integer
    'Pour le test
    ActiveSheet.Cells(2, 2).Value = "Dupond" & Chr(10) & "Julien"
    
    With ActiveSheet
        e = InStr(.Cells(2, 2), Chr(10))
        With .Cells(2, 2).Characters(1, e).Font
            .Name = "Algerian"
            .ColorIndex = 3
            .FontStyle = "italic"
            .Size = 14
        End With
        With .Cells(2, 2).Characters(e).Font
            .Name = "Algerian"
            .FontStyle = "Bold"
            .ColorIndex = 5
            .Size = 14
        End With
    End With
End Sub

A+

Réponse 9 / 21

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

Quelque soit les longueurs des noms et prénoms, la fonction Istr() te renvoi l'emplacement de Chr(10) et de ce fait la variable 'e' donne la fin du nom et le début du prénom.

Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .

Réponse 10 / 21

safami65 Messages postés 14 Date d'inscription Statut Membre Dernière intervention

melanie1324,

Je fais un RAZ de ma feuille à chaque foi donc ta solution 1 est morte ^^

ton 2nd code marche bien, merci.
Cependant il ne resoud pas mon problème.

J'essaye d'etre plus claire.
Dans une cellule, je renseigne le nom et le prénom d'une personne.
Je sépare les 2 par un retour à la ligne. Ce qui donne par exemple :

DUPON
Jean

Ce que je souhaite, c'est gérer la police de "DUPON" et de "Jean" indépendamment l'une de l'autre.

Ton code permet de modifier la totalité de la cellule et non une ligne particulière dans cette cellules.

f894009,
ton code permet de gerer une police d'un texte connu, mais si je change le texte il faut que je re bidouille ma macro à chaque fois. à moins que j'ai mal interprété ton code.

En tt cas je vous remercie pour vos réponce si rapide. Mais le problème n'est pas résolu.

Réponse 11 / 21

safami65 Messages postés 14 Date d'inscription Statut Membre Dernière intervention

Je me doutais que je n'avais pas été claire ^^.
Je suis désolé.

En fait j'ai créé une UserForme avec des textebox à renseigner (Nom/Prénom/etc ...)
La personne clique sur un bouton et ça permet de recopier ces informations dans différentes feuilles excelle.

Chaque année le tableau doit être refait (d'où le raz).
Les informations changent donc.
C'est pourquoi dans ma macro je ne peux pas mettre "DUPON" et "Martin".

Melanie1324,

ton 2nd m'intéresse bcp.
Et il solutionne mon problème. Merci bcp.

Cependant je ne comprends pas tout.

Peux-tu m'expliquer ceci :

nbnom = len(nom)
nbprénom = len(cells(1,1))

De plus, est-ce que je peux remplacer len(cells(1,1) par len(prenom) ?

Et enfin sur cette ligne :
With ActiveCell.Characters(Start:=nbnom+1, Length:=nbprénom).Font

je présume que nbnom+1 permet d'aller à la ligne suivante. peut on le remplacer par nbprénom ?

Encore merci pour vos réponses si rapides.
Et encore désolé si je n'ai pas été très claire ^^.

Réponse 12 / 21

safami65 Messages postés 14 Date d'inscription Statut Membre Dernière intervention

la ligne :
nbnomprenom = len(len(textbox1.value+textbox2.value+1)
ne fonctione pas.

Je l'ai remplacé par : nbprenom = Len(nom) + Len(prenom) + 1
ce qui revien au même ^^

oui c'est très clair. juste une dernière question.

dans la ligne :
With ActiveCell.Characters(Start:=nbnom+2, Length:=nbnomprenom)

pourquoi mets-tu +2 ?

Réponse 13 / 21

safami65 Messages postés 14 Date d'inscription Statut Membre Dernière intervention

HHHHHHHHAAAAAAAAA !!!

Ok.

Et bien merci beacoup pour toutes ces explications.

J'en profite pour te poser une autre question avant de clore le sujet (si ça te gène pas ^^).

Sais tu cacher un bouton qui se trouve dans une feuille de calcule en cliquant sur un bouton de ta UserForm ???

melanie1324 Messages postés 1504 Date d'inscription Statut Membre Dernière intervention 155

Non, ca je ne sais pas faire. Désolée.

safami65 Messages postés 14 Date d'inscription Statut Membre Dernière intervention

Ok.
Pas grave.
Et bien en tout cas, je te remercie pour ton aide et tes explications.
Bonne fin de journée.

Réponse 14 / 21

safami65 Messages postés 14 Date d'inscription Statut Membre Dernière intervention

tu peux m'expliquer ?
Car là .... moi y a n'as pas tout comprendre.

voici ce que je ne comprend pas :
e = InStr(.Cells(2, 2), Chr(10))
With .Cells(2, 2).Characters(1, e).Font

je ne vois pas à quoi sert la variable "e" ici.

Réponse 15 / 21

safami65 Messages postés 14 Date d'inscription Statut Membre Dernière intervention

oki. Merci pour ton explication.

encore une question.
Tu connais la différence entre chr(10) et vbLf ?

Réponse 16 / 21

safami65 Messages postés 14 Date d'inscription Statut Membre Dernière intervention

Autre question.

Avec ma UserForm j'écris dans différentes feuilles de mon classeur.

Comment peut-on faire pour ne pas à avoir à marquer : Sheets("Feuil1")
à chaque fois que l'on veut donner une instruction ?

Réponse 17 / 21

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

Tu connais la différence entre chr(10) et vbLf ?
vbLf est une constante de VBA qui contient la valeur chr(10)

Tu peu remplacer Sheets("Feuil1") par ActiveSheet, mais il faudra bien à un moment donner que tu dise sûr quel feuille tu veux agir.

Réponse 18 / 21

safami65 Messages postés 14 Date d'inscription Statut Membre Dernière intervention

Oki ^^.
Merci.

Comment utilise tu ActiveSheet ?? Je n'arrive pas à activer la feuille sur la quelle je souhaite écrire.

J'ai une autre question (et oui encore ^^).
Par example tu renseigne le nom "Dupon" dans une textebox de ta UserForm.

Est il possible de marquer "DUPON" dans la feuille1, "Dupon" dans la feuille2 et "dupon" dans la feuille 3 ?

Réponse 19 / 21

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

Dernière réponse sur ce topic, si tu en a encore ouvre en un nouveau.
Un nouveau UserForm avec
2 TextBox ; TextBox1 et TextBox2
1 bouton nommer Valider
Copier le code,

Private Sub Valider_Click()
Dim e As Integer, L As Integer, S As String, Fe
    'Adapter le nom des feuilles
    Fe = Array("Feuil1", "Feuil2", "Feuil3")
    
    S = TextBox1.Text & Chr(10) & TextBox2.Text
    For L = 0 To UBound(Fe)
        With Sheets(Fe(L))
            .Cells(2, 2).Value = S
            e = InStr(S, Chr(10))
            With .Cells(2, 2).Characters(1, e).Font
                .Name = "Algerian"
                .ColorIndex = 3
                .FontStyle = "italic"
                .Size = 14
            End With
            With .Cells(2, 2).Characters(e).Font
                .Name = "Algerian"
                .FontStyle = "Bold"
                .ColorIndex = 5
                .Size = 14
            End With
        End With
    Next L
End Sub

Remplir Text1 et Text2
ensuite cliquer sur le bouton
Tu dis..
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .

Réponse 20 / 21

safami65 Messages postés 14 Date d'inscription Statut Membre Dernière intervention

Ma dernière question sera :

A quoi te sert le L ??
Et que veux dire : For L = 0 To UBound(Fe)
surtout le : UBound(Fe)

MERCI !!!!!!!!!!!!!!!!!!!!!!!!
Merci beaucoup pour toutes tes réponses.
C'est très utile.
Je te remerci (oui une 3ème fois). Mais tu m'as énormément aidé.

Répondre Posez votre question

Votre réponse

Discussions similaires

Réduire la taille d'un PDF sous Mac

Akou15 -
Skypper -

6 réponses

reduire une photo en fond d'ecran

romlou -
RaceGame -

5 réponses

Parajumpers

Math59 -
JMPCOMPUTER -

27 réponses

Dimensions L x l x H : comment lire ces infos ?

Miss-Curieuse -
valou -

8 réponses

quel est le jeu le plus grand de toute l'histoire du mmorpg?

orgafox -
Utilisateur anonyme -

14 réponses

4,3 pouce fait conbien en cm?

armesun971 -
Eragon13310 -

2 réponses

Devenez membre en quelques clics

Connectez-vous simplement avec ceux qui partagent vos intérêts
Suivez vos discussions facilement et obtenez plus de réponses
Mettez en avant votre expertise et aidez les autres membres
Profitez de nombreuses fonctionnalités supplémentaires en vous inscrivant

S'inscrire