Comment ajuster automatiquement la taille d'une forme en fonction de la valeur d'une cellule spécifiée dans Excel ?
Si vous souhaitez ajuster automatiquement la taille d'une forme en fonction de la valeur d'une cellule spécifiée, cet article peut vous aider.
Ajustement automatique de la taille d'une forme basé sur la valeur d'une cellule spécifiée avec un code VBA
Le code VBA suivant peut vous aider à modifier la taille d'une forme spécifique en fonction de la valeur d'une cellule spécifiée dans la feuille de calcul actuelle. Veuillez procéder comme suit.
1. Faites un clic droit sur l'onglet de la feuille contenant la forme dont vous devez ajuster la taille, puis cliquez sur Affichage Code dans le menu contextuel.
2. Dans la fenêtre Microsoft Visual Basic for Applications, copiez et collez le code VBA suivant dans la fenêtre Code.
Code VBA : Ajustement automatique de la taille d'une forme basé sur la valeur d'une cellule spécifiée dans Excel
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Row = 2 And Target.Column = 1 Then
Call SizeCircle("Oval 2", Val(Target.Value))
End If
End Sub
Sub SizeCircle(Name As String, Diameter)
Dim xCenterX As Single
Dim xCenterY As Single
Dim xCircle As Shape
Dim xDiameter As Single
On Error GoTo ExitSub
xDiameter = Diameter
If xDiameter > 10 Then xDiameter = 10
If xDiameter < 1 Then xDiameter = 1
Set xCircle = ActiveSheet.Shapes(Name)
With xCircle
xCenterX = .Left + (.Width / 2)
xCenterY = .Top + (.Height / 2)
.Width = Application.CentimetersToPoints(xDiameter)
.Height = Application.CentimetersToPoints(xDiameter)
.Left = xCenterX - (.Width / 2)
.Top = xCenterY - (.Height / 2)
End With
ExitSub:
End SubRemarque : Dans le code, « Oval 2 » est le nom de la forme dont vous modifierez la taille. Et Ligne = 2, Colonne = 1 signifie que la taille de la forme « Oval 2 » sera modifiée en fonction de la valeur dans A2. Veuillez les changer selon vos besoins.
Pour redimensionner automatiquement plusieurs formes en fonction de différentes valeurs de cellules, veuillez appliquer le code VBA ci-dessous.
Code VBA : Redimensionnement automatique de plusieurs formes basé sur différentes valeurs de cellules spécifiées dans Excel
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xAddress As String
On Error Resume Next
If Target.CountLarge = 1 Then
xAddress = Target.Address(0, 0)
If xAddress = "A1" Then
Call SizeCircle("Oval 1", Val(Target.Value))
ElseIf xAddress = "A2" Then
Call SizeCircle("Smiley Face 3", Val(Target.Value))
ElseIf xAddress = "A3" Then
Call SizeCircle("Heart 2", Val(Target.Value))
End If
End If
End Sub
Sub SizeCircle(Name As String, Diameter)
Dim xCenterX As Single
Dim xCenterY As Single
Dim xCircle As Shape
Dim xDiameter As Single
On Error GoTo ExitSub
xDiameter = Diameter
If xDiameter > 10 Then xDiameter = 10
If xDiameter < 1 Then xDiameter = 1
Set xCircle = ActiveSheet.Shapes(Name)
With xCircle
xCenterX = .Left + (.Width / 2)
xCenterY = .Top + (.Height / 2)
.Width = Application.CentimetersToPoints(xDiameter)
.Height = Application.CentimetersToPoints(xDiameter)
.Left = xCenterX - (.Width / 2)
.Top = xCenterY - (.Height / 2)
End With
ExitSub:
End SubRemarques :
3. Appuyez simultanément sur Alt + Q pour fermer la fenêtre Microsoft Visual Basic for Applications.
Désormais, lorsque vous modifiez la valeur dans la cellule A2, la taille de la forme Oval 2 changera automatiquement. Voir capture d'écran :
Ou modifiez les valeurs dans les cellules A1, A2 et A3 pour redimensionner automatiquement les formes correspondantes « Oval 1 », « Smiley Face 3 » et « Heart 3 ». Voir capture d'écran :
Remarque : La taille de la forme ne changera plus lorsque la valeur de la cellule sera supérieure à 10.
Lister et exporter toutes les formes dans le classeur Excel actuel :
L'utilitaire Exporter des graphiques de Kutools for Excel vous aide à lister rapidement toutes les formes dans le classeur actuel, et vous pouvez les exporter tous vers un dossier spécifique en une seule fois, comme le montre la capture d'écran ci-dessous. Téléchargez et essayez-le maintenant ! (30-day free trail)
Articles connexes :
- Comment ajouter une info-bulle au survol de la souris à une forme spécifique dans Excel ?
- Comment remplir une forme avec une couleur d'arrière-plan transparente dans Excel ?
- Comment masquer ou afficher une forme spécifique en fonction de la valeur d'une cellule spécifiée dans Excel ?
Meilleurs outils de productivité pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement 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 chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels