Peut-on figer la hauteur de toutes les lignes sur
une feuille pour que, quelque soit le nombre de
lignes (selon nombre de chr(10) ) d'une ".value"
entrée par VBA, cette hauteur reste invariable ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Benead
Salut Michel41,
Avant de lancer ton code, tu sélectionnes manuellement toutes les cellules puis Format/Lignes/Hauteur ; si toutes tes lignes ont la même hauteur tu valides le nombre, sinon tu rentres une valeur puis tu redimensionneras les lignes qui ont changées de hauteur.
Sinon par VBA en une seule fois :
Sub BoucleHauteur() Dim Ligne As Range, Lig As Long For Each Ligne In ActiveSheet.UsedRange.Rows Ligne.RowHeight = Ligne.RowHeight Next End Sub
Ou alors avant la ligne de code de mise à jour, tu inseres : Rows(Lig).RowHeight = Rows(Lig).RowHeight
Le fait de dire à Excel que la hauteur de la ligne est de x points, cela fige la hauteur et celle-ci ne peut plus être ajustée automatiquement.
A+ Benead XL97
Michel41 a écrit:
Bonsoir
Peut-on figer la hauteur de toutes les lignes sur une feuille pour que, quelque soit le nombre de lignes (selon nombre de chr(10) ) d'une ".value" entrée par VBA, cette hauteur reste invariable ?
Merci
Salut Michel41,
Avant de lancer ton code, tu sélectionnes manuellement toutes les cellules puis Format/Lignes/Hauteur ; si toutes tes
lignes ont la même hauteur tu valides le nombre, sinon tu rentres une valeur puis tu redimensionneras les lignes qui ont
changées de hauteur.
Sinon par VBA en une seule fois :
Sub BoucleHauteur()
Dim Ligne As Range, Lig As Long
For Each Ligne In ActiveSheet.UsedRange.Rows
Ligne.RowHeight = Ligne.RowHeight
Next
End Sub
Ou alors avant la ligne de code de mise à jour, tu inseres : Rows(Lig).RowHeight = Rows(Lig).RowHeight
Le fait de dire à Excel que la hauteur de la ligne est de x points, cela fige la hauteur et celle-ci ne peut plus être
ajustée automatiquement.
A+
Benead
XL97
Michel41 a écrit:
Bonsoir
Peut-on figer la hauteur de toutes les lignes sur
une feuille pour que, quelque soit le nombre de
lignes (selon nombre de chr(10) ) d'une ".value"
entrée par VBA, cette hauteur reste invariable ?
Avant de lancer ton code, tu sélectionnes manuellement toutes les cellules puis Format/Lignes/Hauteur ; si toutes tes lignes ont la même hauteur tu valides le nombre, sinon tu rentres une valeur puis tu redimensionneras les lignes qui ont changées de hauteur.
Sinon par VBA en une seule fois :
Sub BoucleHauteur() Dim Ligne As Range, Lig As Long For Each Ligne In ActiveSheet.UsedRange.Rows Ligne.RowHeight = Ligne.RowHeight Next End Sub
Ou alors avant la ligne de code de mise à jour, tu inseres : Rows(Lig).RowHeight = Rows(Lig).RowHeight
Le fait de dire à Excel que la hauteur de la ligne est de x points, cela fige la hauteur et celle-ci ne peut plus être ajustée automatiquement.
A+ Benead XL97
Michel41 a écrit:
Bonsoir
Peut-on figer la hauteur de toutes les lignes sur une feuille pour que, quelque soit le nombre de lignes (selon nombre de chr(10) ) d'une ".value" entrée par VBA, cette hauteur reste invariable ?
