Comment rapidement changer la taille de police en fonction de la valeur d'une cellule dans Excel ?

Changer la taille de police en fonction de la valeur d'une autre colonne
Changer la taille de police en fonction de la valeur de la cellule et de la longueur des caractères
Changer la taille de police en fonction de la valeur d'une autre colonne
Pour changer la taille de police en fonction de la valeur d'une autre colonne, voici un code VBA qui peut vous aider.
1. Allez dans la feuille où vous souhaitez changer la taille de police en fonction d'une autre colonne, puis appuyez simultanément sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
2. Cliquez sur Insertion > Module, puis collez le code VBA ci-dessous dans le Module. Voir capture d'écran :
VBA : Changer la 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 apparaîtra, sélectionnez les cellules dont vous souhaitez changer la taille de police. Voir capture d'écran :
4. Cliquez sur OKet ensuite, les cellules de la colonne sélectionnée auront leur taille de police ajustée en fonction des valeurs de la colonne adjacente.
Changer la taille de police en fonction de la valeur de la cellule et de la longueur des caractères
Si vous souhaitez changer la taille de police en fonction de la valeur de la cellule elle-même ou de la longueur des caractères, par exemple, lorsque la valeur de la cellule est supérieure à 10, ou que la longueur des caractères est supérieure à 5, alors la taille de police passe à 16 et la police change en Arial, sinon, la taille de police est de 11 et la police est Calibri, comme le montre la capture d'écran ci-dessous.
1. Appuyez sur Alt + F11 pour activer la fenêtre Microsoft Visual Basic for Applications.
2. Cliquez sur Insertion > Module, puis collez le code ci-dessous dans le script du Module. Voir capture d'écran :
VBA : Changer la 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 la touche F5 pour exécuter le code, et les valeurs qui sont supérieures à 10 ou dont la longueur des caractères est supérieure à 5 verront leur police changée en Arial et leur taille de police passera à 16.
Astuce : Dans le code ci-dessus, vous pouvez changer la plage G2:B9 en une autre plage selon vos besoins.
Meilleurs outils de productivité pour Office
Boostez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité sans précédent. Kutools pour Excel propose plus de300 fonctionnalités avancées pour augmenter la 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 facilite grandement votre travail
- Activez la modification 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é de50 %, et réduit des centaines de clics de souris pour vous chaque jour !