Hauteur de ligne variant selon la valeur d’une cellule

Fermé
Lsa44 - 14 nov. 2017 à 20:31
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 15 nov. 2017 à 08:46
Bonjour,

J’aurais besoin d’un coup de main, je ne suis pas complètement à l aise avec les codes van et macros Excel (formation à venir) et j’aurais besoin de mettre en place une manip sur une feuille Excel.
Pour faire simple, j’integre des chiffres dans la colonne A, ligne par ligne (admettons de la ligne 2 à 10) : 0,2, 0,5, 1, ... jusqu’à 4,25 (admettons aussi)
Je souhaiterais que la hauteur de mes lignes varie selon la valeur contenue dans A2, A3, etc...
Plus clairement, si A2 = 0,2 alors hauteur de ligne 2 = 6, si A2= 0,5 ...
et même chose pour la ligne 3 selon A3etc ...

Merci à vous amis experts !

1 réponse

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié le 15 nov. 2017 à 08:52
Bonjour

macro à installer dans le module feuille concerné
Option Explicit
'-----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("A")) Is Nothing Then
If IsNumeric(Target) And Target > 0 Then
Rows(Target.Row).RowHeight = Target * 20
End If
End If
End Sub


Pour installer:
faire un copier du code ci-dessus
faire un clic droit sur l'onglet de la page- visualiser le code
coller le code

la macro se déclenche lorsque tu valides ta saisie (a toi de choisir la hauteur actuellement je multiplie la valeur par 20 pour la hauteur)

 Michel
0