VBA-Excel Changer la police Résolu/Fermé

Question

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 ^^)

f894009 · Accepted Answer

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 WithEnd Sub

melanie1324 · Answer

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

safami65 · Answer

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.

f894009 · Answer

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 !!!!!

melanie1324 · Answer

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

safami65 · Answer

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 ^^.

melanie1324 · Answer

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?

safami65 · Answer

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 ?

melanie1324 · Answer

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)

safami65 · Answer

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 ???

lermite222 · Answer

Bonjour,
Sheets("Feuil1").CommandButton1.Visible = False
 Adapter nom feuille et nom bouton.
A+

lermite222 · Answer

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 WithEnd Sub
 A+

safami65 · Answer

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.

lermite222 · Answer

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 .

safami65 · Answer

oki. Merci pour ton explication.

encore une question.
Tu connais la différence entre chr(10) et vbLf ?

safami65 · Answer

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 ?

lermite222 · Answer

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.

safami65 · Answer

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 ?

lermite222 · Answer

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 LEnd 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 .

safami65 · Answer

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é.

lermite222 · Answer

Ma dernière question sera :  
J'espère... :-)
1°) tu pose beaucoup trop de questions que tu peu trouver seul.
Par exemple Ubound.. tu double clic sur le mot pour le mettre en surbrillance et tu tape F1. L'aide t'explique ce que c'est et comment l'employer.
2°) le "L" énumère les variables qui sont dans le tableau Fe, feuil1, feuil2...etc.

VBA-Excel Changer la police

21 réponses

Discussions similaires