Hauteur de ligne variant selon la valeur d’une cellule
Lsa44
-
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
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 !
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 !
A voir également:
- Hauteur de ligne variant selon la valeur d’une cellule
- Aller à la ligne dans une cellule excel - Guide
- Partage de photos en ligne - Guide
- Excel couleur cellule selon valeur - Guide
- Mètre en ligne - Guide
- Formulaire en ligne de meta - Guide
1 réponse
Bonjour
macro à installer dans le module feuille concerné
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
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