Résultats pour "mfc changer type police"

1'861 résultats pour cette recherche

Bonjour,

Je n'arrive pas à faire une MFC afin de changer la police d'écriture en fonction de la valeur d'une autre cellule.

Ci-joint 2 fichiers :

  • Une capture d'ecran de la fenetre de la MFC. Comme on peut le voir je ne peux pas selectionner la police que je souhaite attribuer aux cellules respectant la formule de la MFC
  • Un fichier "test"

Je souhaite appliquer la MFC sur les cellules de la colonne A si la colonne B affiche 12.

Merci d'avance

J.

capture

Bonjour tout le monde,

me revoila, toujours pour un coup de main à yannsolo, un problème qui dépasse mon entendement. Le besoin est le suivant:

Il faudrait que la couleur de la police en B1 se mette automatiquement rouge quand celle de A1 est rouge. Cela est-il possible par une formule de MEFC. Sinon, quel code faudrait-il en VBA pour arriver à ce résultat?

D'avance merci,

bien cordialement,

Elfi

Bonjour,

Afin d'uniformiser mon classeur Excel, je souhaiterais imposer un type de police : Arial (normal) taille 10 .

Et que cette police ne soit pas modifiable par la suite...

Comment faire svp ?

Cordialement

23outil-cri-v4.zip (13.08 Ko)

Bonjour,

Je ne travaille pas souvent dans google sheets et je veux créer une macro qui fera changer la couleur de police de ma cellule.

Exemple: quand je me positionne dans une cellule et qu'après je clique sur une image

(exemple un rond vert) la police de ma cellule devient verte.

J'ai essayé et c'est toujours la cellule en dessous qui devient verte

Avez-vous un script qui pourrait m'aider??

Bonjour,

Il me semble que je savais le faire dans une version précédente, mais là, sous Excel 2013, je ne trouve pas !

Dans un formulaire, j’ai parfois, dans certaines cellules, un texte trop long. J’aimerais trouver une solution pour que la police initiale s’adapte (en diminuant), sans que ni la hauteur ou largeur de la cellule ne soient modifiées, seulement la taille de la police et le retour à la ligne automatique me convenant.

J’ai bien entendu essayé les options suivantes, mais cela donne ceci :

Voir fichier "PrintScreen" annexé (suis pas certain d'avoir réussi l'annexe, désolé).

Quelqu’un aurait une idée ?

Merci par avance

Bonjour,

J'ai changé la Police et la Couleur d'un titre d'UserForm dans la boîte propriétés de l'UserForm mais les changements de ces propriétés sont inopérantes !!!

Pourtant, on arrive bien à changer le titre d'un UserForm dans ses propriétés ou avec un code

Existe-t-il un code simple pour changer ces paramètres ?

bonsoir

peu t'on changer la couleur de police d'un fichier exel

d'avance merci

Bonjour,

Je suis nouveau sur le forum et je m'excuse d'avance si ma question a déjà été posée ailleurs sur le forum.

Voici mon problème :

J'ai une cellule avec une formule qui affiche plusieurs réponses selon les conditions. J'aimerais qu'en fonction de la réponse, la taille de la police change sans utiliser de bouton. J'avais l'habitude de passer par la mise en forme conditionnelle, mais le champs de la taille est grisé...

Du coup, je me suis tournée vers le code VBA pour trouver une solution, mais étant novice en la matière je n'y arrive pas.

Est-ce que quelqu'un pourrait me fournir le code approprié s'il vous plait ?

j'imagine qu'il me faudrait quelque chose du genre ?

1) rechercher le texte souhaité

2) Si le texte = "le texte recherché" donc ca modifie la taille de la police.

Merci

Bonjour,

Je souhaite changer la couleur de la police d'une plage de cellule variable. Pour cela j'ai essayé plusieurs méthode de sélection de cette plage mais toutes, me renvoie un message d'erreur in fine.

La plage donc je souhaite modifier la couleur est à partir de la Cellule(25,4) jusqu'à la Cellule(50,Dercol).

Voici le code utilisé :

Private Sub ToggleButton1_Click()

Application.ScreenUpdating = True

DernCol = Cells(22, Cells.Columns.Count).End(xlToLeft).Column
a = OLEObjects("ToggleButton1").Object.Value

'on teste si la sélection de la colonne A est vide
If Sheets("USL").Cells(25, 1).Value = "" And _
Sheets("USL").Cells(26, 1).Value = "" And _
'je vous épargne la mutitude de lignes de codes, que je tenterai de réduire ultérieurement (autre objectif)
Sheets("USL").Cells(48, 1).Value = "" And _
Sheets("USL").Cells(49, 1).Value = "" Then
'si rien n'est coché on empeche le changement d'état du bouton et l'on colorie l'ensemble de la plage en noir
    ToggleButton1 = False
    'ThisWorkbook.Sheets("USL").Range("D25:" & Dercol & "50").Font.Color = vbBlack
    ThisWorkbook.Sheets("USL").Range(Cells(25, 4), Cells(50, dercol)).Font.Color = vbBlack
End if

Application.ScreenUpdating = False

End Sub

Pouvez-vous m'aider pour ce problème de coloriage de sélection varaible ?

Merci d'avance pour votre aide,

batoine

Bonsoir

Je rencontre un petit soucis ( le problème a pourtant l'air simple ) , je souhaiterai changer la taille de la police d’écriture dans une zone de texte intégrée à une feuille de calcul , en allant dans "format de la zone de texte" , je fais passer la taille de ma police de 14 à 20 par exemple , mais j'ai constaté qu'il etait impossible de garder ces modifications , et que la police est automatiquement remise par défaut sur 14 , la case (police normale) n’étant pas cochée...

Auriez vous une idée sur ce qui peut empecher ces modifications , meme en les enregistrant

Merci

Bonjour à tous,

Je souhaiterais écrire une VBA pour modifier la couleur de la police de certaines cellules lorsque ma feuille est protégée par le mot de passe.

Je joins un fichier exemple pour simplifier la question et la réponse.

Merci de m'aider

Bien cordialement,

Patrick

Voilà,

Pourtant un truc simple, mais difficile pour un débutant

En fait le code semble ok, ou peut-être juste modifier un truc.

Ce que je cherche à faire, c'est changer la couleur de la police dans une zone texte, selon la valeur d'une autre cellule sur une autre feuille.

La zone texte se trouve sur la feuille "source" et le chiffre sur la feuille chiffre.

Le code semble ok

Quel est mon souci

C'est que pour que la macro s’exécute, il faut que je fasse exécuter la macro.

Ensuite, il semblerait que la macro select la zone texte, ce qui fait pas trop discret.

Donc, voici mon code qui se trouve sur une feuille dans la partie VBA dans un module

Sub Changercouleur()

'
' Changercouleur Macro

Dim cellule
cellule = Sheets("chiffre").Range("E6")

If cellule < 1 Then

    ActiveSheet.Shapes.Range(Array("TextBox 1")).Select

    With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent2
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0
        .Transparency = 0
        .Solid
    End With

Else

    ActiveSheet.Shapes.Range(Array("TextBox 1")).Select

    With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorText1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0.150000006
        .Transparency = 0
        .Solid

    End With
  End If

Et voici le fichier tout simple de la macro qui permet de tester

https://www.cjoint.com/c/ELlei5GQ7BA

Merci

Bonjour ,

je suis entrain de faire un fichier pour la deb j'ai une grande liste d'article mais le problème que l’écriture dans la liste elle trop petite et si je zoom je vois pas tout le tableau , j'ai déjà chercher mais j'ai pas trouver de solution sauf si je fait des des liste déroulante avec la barre d'outils a contrôle , le souci que je peux pas par ce que je vais faire des milliers de liste déroulantes ,si vous avez une proposition ou une solution n’hésitez pas et merci d'avance vous trouvez ci-joint mon fichier

222deb-juillet.xlsm (156.22 Ko)

Bonjour à tous,

Comment faire pour que dans le mail qui est automatisé via la macro (bouton), faire que la cellule C21 (onglet Mail), apparaisse non pas en police de caractère "calibri" mais "wingdings" ??

Merci

25excel-forum.xlsm (59.49 Ko)

bonsoir,

je cherche comment changer la couleur de la police de caractère d une liste de mot précis dans un tableau

je voudrais créer 2 boutons

1er bouton

je voudrais que la police des mots PARIS, LONDRE, MARSEILLE passe en blanc dans un tableau Range("D2:BJ32").Select

2eme bouton

je voudrais que la police des mots PARIS, LONDRE, MARSEILLE passe en noir dans le meme tableau("D2:BJ32").

merci de vos reponses

Bonjour,

Comme indiqué dans le titre je souhaiterai savoir s'il est possible de changer la police d'une liste déroulante créée à partir d'une liste de validation (et si oui je suis bien évidement preneur de la démarche à appliquer).

Plus spécifiquement, j'ai le code suivant (je ne pense pas qu'un fichier joint soit nécessaire mais si besoin est, j'en ajouterai un)...

Public Sub Display_List(ByVal List As Range)
    With ActiveCell.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=" & List.Address
         SendKeys "%{UP}"
        .Delete
    End With
End Sub

... que j'intègre à l'event BeforeRightClick d'une Workshheet et qui m'affiche la liste déroulante correspondant à mon argument "List" or les valeurs de mon range List sont dans la police Wingdings 2 mais la liste de validation ainsi créée ressort dans la police standard (ça doit être du Arial).

Bref, est-il possible d'afficher les valeurs de la liste déroulante en Wingdings 2 ??

Par avance, je vous remercie pour votre aide.

Cordialement,

Darzou

Bonjour, encore moi ^^

Je souhaiterais changer la taille de Police des choix proposés par une liste déroulante sans avoir à jouer du ZOOM.

Ma liste est créée de la manière suivante :

Donnée => validation des données => validation des données => onglet "option" autoriser "liste" => en source je sélectionne une liste de nom préalable remplis sur un onglet DATA différent.

Vu que j'ai beaucoup d'information sur ma feuille, je dé-zoom assez fortement mais du coup quand je dois sélectionner un choix dans ma liste déroulante je me retrouve avec une écriture minuscule et c'est légèrement embêtant pour rester poli lol.

Merci d'avance.

Bonjour,

Je suis nouveau sur le forum et asser novice.

Sur une carte de France j'ai un groupe de N° de Département et un groupe de Préfectures qui se masquent ou se rend visible à l'aide de checkBox.

J'aimerais savoir s'il était possible que lorsque je clique sur une région ou un département les noms des villes et les N° de code postal changent de couleur de la police et deviennent blanc.

Mon code qui agit sur CheckBox est:

'  CheckBox Département et Préfecture
Private Sub CheckBox_Num_Dept_Click()
   CheckBox_Num_Dept.Caption = IIf(CheckBox_Num_Dept, "Avec  N° de Département", "Sans  N° de Département")

    If CheckBox_Num_Dept.Value = -1 Then ActiveSheet.Shapes("Groupe_Num_Dept").Visible = True
    If CheckBox_Num_Dept.Value = 0 Then ActiveSheet.Shapes("Groupe_Num_Dept").Visible = False

End Sub
Private Sub CheckBox_Prefectures_Click()
  CheckBox_Prefectures.Caption = IIf(CheckBox_Prefectures, "Avec les Préfectures", "Sans les Préfectures")

    If CheckBox_Prefectures.Value = -1 Then ActiveSheet.Shapes("Groupe_Prefectures").Visible = True
    If CheckBox_Prefectures.Value = 0 Then ActiveSheet.Shapes("Groupe_Prefectures").Visible = False

End Sub

' Code qui agit lorsque je clique dans un département 
Sub hihihi()
 Dim n As Integer
 [C2] = Right$(Mid(Application.Caller, InStr(Application.Caller, "-") + 1), 2)
' ôter toutes les couleurs
For n = 1 To ActiveSheet.Shapes.Count - 3
ActiveSheet.Shapes(n).Fill.ForeColor.SchemeColor = 9
Next n
' ci-dessous on colorie tous les dépt concernés en bleu
Select Case [C2]
Case 8, 10, 51, 52  '(champagne-ardennes)
ActiveSheet.Shapes("FR-08").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-10").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-51").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-52").Fill.ForeColor.SchemeColor = 4

Case 54, 55, 57, 88   '(lorraine)
ActiveSheet.Shapes("FR-54").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-55").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-57").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-88").Fill.ForeColor.SchemeColor = 4

Case 2, 60, 80   '(picardie)
ActiveSheet.Shapes("FR-02").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-60").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-80").Fill.ForeColor.SchemeColor = 4

Case 59, 62  '(nord-pas-de-calais)
ActiveSheet.Shapes("FR-59").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-62").Fill.ForeColor.SchemeColor = 4

Case 75, 92, 93, 94, 77, 78, 91, 95, 175, 192, 193, 194 '(ile de france)
ActiveSheet.Shapes("FR-75").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-92").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-93").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-94").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-77").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-78").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-91").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-95").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-175").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-192").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-193").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-194").Fill.ForeColor.SchemeColor = 4

Case "2A", "2B"  '(Corse)
ActiveSheet.Shapes("FR-2A").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-2B").Fill.ForeColor.SchemeColor = 4

End Select

On Error Resume Next
' et on colorie le dépt cliqué en vert

If [C2] = "2A" Then ActiveSheet.Shapes("FR-2A").Fill.ForeColor.SchemeColor = 3
If [C2] = "2B" Then ActiveSheet.Shapes("FR-2B").Fill.ForeColor.SchemeColor = 3
choix = Format(CStr([C2]), "00")
ActiveSheet.Shapes("FR-" & choix).Fill.ForeColor.SchemeColor = 3

Select Case [C2] ' dépt en ile de france
Case 75 '(ile de france)
ActiveSheet.Shapes("FR-175").Fill.ForeColor.SchemeColor = 3
Case 92 '(ile de france)
ActiveSheet.Shapes("FR-192").Fill.ForeColor.SchemeColor = 3
Case 93 '(ile de france)
ActiveSheet.Shapes("FR-193").Fill.ForeColor.SchemeColor = 3
Case 94 '(ile de france)
ActiveSheet.Shapes("FR-194").Fill.ForeColor.SchemeColor = 3

End Select
End Sub

Je vous remercie de votre Aide

Cordialement

Max

Bonsoir,

Voila le topo, j'ai un fichier ou à une ligne donnée un double clic en G, cela colore cette cellule en vert mais aussi affiche la date en I. Je souhaite qu'en plus de cela, la couleur de la police en B deviennent noire.

Merci par avance.

PS : n'oubliez pas d'activer les macros.

152couleurdepolice.zip (11.10 Ko)

Bonjour à tous,

je passe par un exemple:

si A1 est vide, je voudrais que la couleur police de B1 ne change pas.

Si A1 est non vide, B1 devrait passer en Rouge.

C'est court, mais je crois être précis.

Un grand merci d'avance, A+, Michel.

Recherches récentes

verouillefiltre tcdliste deroulantelisterecherche repertoire entierrecherche dossiercouleurinterdire acces feuilles classeuruboundpartager classeur macro vbacherche textedimgestion immobilisationssource tcdsuivi immobilisationscreer superieur organigrammerecherche comboboxouvrir doc word via vbaremplir signet word via vbacompiler tableaux