Comment modifier rapidement la taille de la police en fonction de la valeur d’une cellule dans Excel ?
Modifier Taille de police en fonction de la valeur d’une autre colonne
Modifier Taille de police en fonction de la valeur de la cellule et de la longueur des caractères
Modifier Taille de police en fonction de la valeur d’une autre colonne
Pour ajuster la taille de la police en fonction de la valeur d’une autre colonne, voici un code VBA qui vous sera utile.
1. Accédez à la feuille dans laquelle vous souhaitez modifier la taille de police en fonction d’une autre colonne, puis appuyez sur Alt + F11 simultanément pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis collez le code VBA ci-dessous dans le Module. Voir la capture d’écran :
VBA : Modifier Taille de police en fonction de la valeur d’une autre colonne
Sub fontchange()
'UpdatebyExtendoffice20160614
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Select cells that you want to change font size:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If (xRg.Areas.Count > 1) Or (xRg.Columns.Count > 1) Then
MsgBox "Only can select one column", vbInformation, "Kutools for Excel"
Exit Sub
End If
Application.ScreenUpdating = False
For Each xCell In xRg
xCell.Font.Size = xCell.Offset(, 1).Value
Next
Application.ScreenUpdating = True
End Sub
3. Appuyez sur F5 : une boîte de dialogue s’ouvre. Sélectionnez les cellules dont vous souhaitez modifier la taille de police. Voir la capture d’écran :
4. Cliquez sur OK, et la taille de police des cellules de la colonne sélectionnée sera ajustée en fonction des valeurs de la colonne adjacente.
Modifier Taille de police en fonction de la valeur de la cellule et de la longueur des caractères
Si vous souhaitez ajuster la taille de la police en fonction de la valeur de la cellule ou de la longueur de son contenu — par exemple, lorsque la valeur est supérieure à 10 ou que le nombre de caractères dépasse 5 —, la taille de la police passe alors à 16 et la police devient Arial ; sinon, la taille reste à 11 et la police demeure Calibri, comme illustré dans la capture d’écran ci-dessous.
1. Appuyez sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis collez le code ci-dessous dans le script du Module. Voir la capture d’écran :
VBA : Modifier Taille de police en fonction de la valeur de la cellule ou de la longueur des caractères
Private Sub Worksheet_Calculate()
'UpdatebyExtendoffice20160614
Dim xCell As Range
For Each xCell In Range("G2:H9")
With xCell
If Len(.Text) > 5 Or Val(.Value) > 10 Then
.Font.Name = "Arial"
.Font.Size = 16
Else
.Font.Name = "Calibri"
.Font.Size = 11
End If
End With
Next
End Sub
3. Appuyez sur F5 pour exécuter le code ; les valeurs supérieures à 10 ou dont la longueur dépasse 5 caractères voient leur police passer à Arial et leur taille de police à 16.
Astuce : Dans le code ci-dessus, vous pouvez remplacer la plage G2:B9 par toute autre plage de votre choix.
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels