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 18178 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 30 janvier 2023 - 11 août 2016 à 17:50
Mike-31 Messages postés 18178 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 30 janvier 2023 - 11 août 2016 à 17:50
A voir également:
- Excel ajustement automatique hauteur ligne cellule fusionnée
- Ajuster taille cellule excel automatiquement - Meilleures réponses
- Excel adapter taille cellule au texte - Meilleures réponses
- Liste déroulante excel - Guide
- Formule excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
- Figer une ligne excel - Guide
7 réponses
Mike-31
Messages postés
18178
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
30 janvier 2023
5 033
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