Ajuster automatiquement la hauteur
Thierry104
-
Mike-31 Messages postés 19572 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 19572 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'ai un petit problème pour lequel j'ai besoin de vous.
J'aimerai que la hauteur des cellules fusionnées UNIQUEMENT de A42 à L100. Le code ci-dessus marche mais pour toutes les cellules et non pour celles qui sont fusionnées uniquement et cela crée un confli lorsqu'une cellule non fusionnées contient du texte.
Pourriez-vous m'aider svp
Sub AjusteEnHauteur()
For Each cel In ActiveSheet.Range("A42:L100")
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
J'ai un petit problème pour lequel j'ai besoin de vous.
J'aimerai que la hauteur des cellules fusionnées UNIQUEMENT de A42 à L100. Le code ci-dessus marche mais pour toutes les cellules et non pour celles qui sont fusionnées uniquement et cela crée un confli lorsqu'une cellule non fusionnées contient du texte.
Pourriez-vous m'aider svp
Sub AjusteEnHauteur()
For Each cel In ActiveSheet.Range("A42:L100")
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
A voir également:
- Ajuster automatiquement la hauteur
- Comment ajuster la date sur whatsapp - Forum Mail
- Automatiquement - Guide
- Excel ajuster cellule au texte automatiquement ✓ - Forum Excel
- Sauvegarder conversation snap automatiquement ✓ - Forum iPhone
- Dans le diaporama à télécharger, les diapositives s’enchaînent automatiquement. combien de temps la diapositive crayon met-elle à s’afficher ? combien de temps reste-t-elle affichée à l’écran ? ✓ - Forum Powerpoint
5 réponses
Salut,
Rapidement, regarde si c'est ce que tu cherches et on revoit le code
Sub AjusteCellulesFusionnees()
Dim cell As Range
Dim Maplage As Range
Set Maplage = Range("A42:l100")
With ActiveSheet
For Each cell In Maplage
If cell.MergeCells = True Then
cell.MergeArea.Rows.AutoFit
End If
Next cell
End With
End Sub
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Rapidement, regarde si c'est ce que tu cherches et on revoit le code
Sub AjusteCellulesFusionnees()
Dim cell As Range
Dim Maplage As Range
Set Maplage = Range("A42:l100")
With ActiveSheet
For Each cell In Maplage
If cell.MergeCells = True Then
cell.MergeArea.Rows.AutoFit
End If
Next cell
End With
End Sub
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Salut Mike merci bcp pour ta réponse si rapide.
Malheureusement cela ne marche pas, aucune erreur mais la hauteur des cellules fusionnées ne s'ajuste pas.
Dis moi si je peux faire quelque chose pour te faciliter la tache.
Merci encore
Thierry
Malheureusement cela ne marche pas, aucune erreur mais la hauteur des cellules fusionnées ne s'ajuste pas.
Dis moi si je peux faire quelque chose pour te faciliter la tache.
Merci encore
Thierry
Re,
Je viens de retester le code, qui sans problème ajuste la hauteur ligne sans problème par rapport à la taille police.
Aurais tu des retours lignes dans ta cellule (Alt+Entrée) ou un retour ligne automatique qui dans ce cas peut poser problème et necessite un code plus complexe
Je viens de retester le code, qui sans problème ajuste la hauteur ligne sans problème par rapport à la taille police.
Aurais tu des retours lignes dans ta cellule (Alt+Entrée) ou un retour ligne automatique qui dans ce cas peut poser problème et necessite un code plus complexe
Hey,
J'ai effectivement des retour de ligne dans plusieurs cellules et sont malheureusement inévitables.
J'ai effectivement des retour de ligne dans plusieurs cellules et sont malheureusement inévitables.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
