Ajuster automatiquement la hauteur
Fermé
Thierry104
-
12 janv. 2011 à 11:27
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 - 13 janv. 2011 à 11:47
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 - 13 janv. 2011 à 11:47
A voir également:
- Ajuster automatiquement la hauteur
- Automatiquement - Guide
- Dans le diaporama à télécharger, les diapositives s'enchaînent automatiquement. que peut-on dire de la diapositive crayon ? - Forum Powerpoint
- Le document à télécharger comporte 19 pages. en numérotant automatiquement chaque page de ce document, on constate que sa numérotation ne commence pas à 1. quel nom d’animal apparaît sur la page avec le numéro 30 ? - Forum Bureautique
- Hauteur de ligne excel en cm - Forum Excel
- Problème de crayon ✓ - Forum Blender
5 réponses
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 076
Modifié par Mike-31 le 12/01/2011 à 18:34
Modifié par Mike-31 le 12/01/2011 à 18:34
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
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 076
12 janv. 2011 à 14:35
12 janv. 2011 à 14:35
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
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 076
13 janv. 2011 à 11:47
13 janv. 2011 à 11:47
Re,
Teste si ce code
Sub AjusteEnHauteur()
For Each cel In [A1:L100]
If cel <> "" Then
Set m = cel.MergeArea
m.UnMerge
m.WrapText = True
m.HorizontalAlignment = xlCenterAcrossSelection
m.Rows.AutoFit
m.Merge
End If
Next
End Sub
Teste si ce code
Sub AjusteEnHauteur()
For Each cel In [A1:L100]
If cel <> "" Then
Set m = cel.MergeArea
m.UnMerge
m.WrapText = True
m.HorizontalAlignment = xlCenterAcrossSelection
m.Rows.AutoFit
m.Merge
End If
Next
End Sub