Ajustement automatique hauteur ligne formules excel
Fermé
antrans
Messages postés
4
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
11 août 2016
-
11 août 2016 à 16:26
Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 - 11 août 2016 à 17:50
Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 - 11 août 2016 à 17:50
A voir également:
- Excel adapter taille cellule au texte
- Excel ajuster cellule au texte - Meilleures réponses
- Adapter taille cellule au texte excel - Meilleures réponses
- Taille 32x32 correspondance ✓ - Forum Loisirs / Divertissements
- Excel cellule couleur si condition texte - Guide
- Excel si cellule contient texte alors 1 ✓ - Forum Excel
- Liste déroulante excel - Guide
- Excel si cellule contient texte alors ✓ - Forum Excel
7 réponses
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
Modifié par Mike-31 le 11/08/2016 à 17:17
Modifié par Mike-31 le 11/08/2016 à 17:17
Re,
autrement en VBA tu peux paramétrer ton code de façon définitive, si par exemple il s'agit de ta feuille nommée Feuil2 et tes données qui conditionnent la hauteur de ligne est colonne A
il suffit de faire un clic droit sur l'onglet de cette feuille/Visualiser le code et coller ce code
il suffit simplement d'adapter l'index colonne que j'ai mis en gras Range("A:A")
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
autrement en VBA tu peux paramétrer ton code de façon définitive, si par exemple il s'agit de ta feuille nommée Feuil2 et tes données qui conditionnent la hauteur de ligne est colonne A
il suffit de faire un clic droit sur l'onglet de cette feuille/Visualiser le code et coller ce code
Private Sub Worksheet_Activate()
On Error Resume Next
For Each cel In Range("A:A") 'conditionne une plage
If cel <> "" Then
Set m = cel.MergeArea
m.UnMerge
m.WrapText = True 'renvoie à la ligne
m.HorizontalAlignment = xlCenterAcrossSelection
m.Rows.AutoFit
m.Merge
m.HorizontalAlignment = xlGeneral 'facultatif bien sûr
End If
Next
End Sub
il suffit simplement d'adapter l'index colonne que j'ai mis en gras Range("A:A")
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
11 août 2016 à 17:35
Pourquoi tu tiens compte des fusions ?
ne suffit pas ?
eric
Modifié par Mike-31 le 11/08/2016 à 17:45
pour traiter tous les cas de figure qui pourrait se présenter en tenant compte du post 2 du demandeur
et prévoir le retour ligne s'il n'a pas été programmé
mais effectivement Rows.AutoFit suffit
cordialement