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 18342 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 2 novembre 2024 - 11 août 2016 à 17:50
Mike-31 Messages postés 18342 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 2 novembre 2024 - 11 août 2016 à 17:50
A voir également:
- Excel adapter taille cellule au texte
- Excel ajuster cellule au texte - Meilleures réponses
- Vba hauteur de ligne - Meilleures réponses
- Excel cellule couleur si condition texte - Guide
- Taille 32x32 correspondance ✓ - Forum Loisirs / Divertissements
- Excel ajustement auto taille de la cellule ✓ - Forum Excel
- Ajuster hauteur des cellules excel au texte ? ✓ - Forum Excel
- Comment réduire la taille d'un fichier - Guide
7 réponses
Mike-31
Messages postés
18342
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
2 novembre 2024
5 103
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