Appeler une Fonction

Y compris Power BI, Power Query et toute autre question en lien avec Excel
n
nooby74
Jeune membre
Jeune membre
Messages : 43
Inscrit le : 9 mars 2015
Version d'Excel : 2007

Message par nooby74 » 24 mars 2015, 14:42

Bonjour,

J'ai trouvé sur internet un code qui semble-t-il redimmensionne la hauteur de cellule fusionné.
Voici le code
'Ajuste automatiquement la hauteur de ligne
Function ligne_hauteur(ByVal lngRow As Long)
Dim strRange As String
Dim dblHeight As Double

Application.ScreenUpdating = False

'Range en cours de modification
strRange = "C" & lngRow & ":K" & lngRow

'On enlève la fusion et on centre sur plusieurs cellules
'pour récupérer la vraie hauteur de la ligne
With Range(strRange)
.MergeCells = False
.Locked = False
.HorizontalAlignment = xlCenterAcrossSelection
End With

'Hauteur réelle de la ligne
Rows(lngRow & ":" & lngRow).EntireRow.AutoFit
dblHeight = Rows(lngRow & ":" & lngRow).RowHeight

'On refusionne et on centre è gauche
With Range(strRange)
.MergeCells = True
.HorizontalAlignment = xlLeft
End With

'Ajustement de la hauteur réelle de la ligne
Rows(lngRow & ":" & lngRow).RowHeight = dblHeight

'Protection et refresh de l'écran
Application.ScreenUpdating = True
End Function
Mon problème est que je ne sais pas où le mettre et comment l'utiliser.
Si quelqu'un peut m'éclairer svp.


merci bien.
Avatar du membre
Excel-Malin
Membre habitué
Membre habitué
Messages : 115
Inscrit le : 29 janvier 2015
Version d'Excel : 2016 FR, 2013 EN
Contact :

Message par Excel-Malin » 24 mars 2015, 14:49

Tu mets le code de cette fonction dans un Module.

Ensuite, tu peux mettre tout simplement:
x = ligne_hauteur(12) 
(où 12 est le numéro de la ligne souhaitée = exemple)

à l'endroit de ton propre code (ton "Sub") où tu veux que le merge+changement de hauteur se passe.

Attention, il faudra peut-être modifier le code de la fonction à cet endroit selon tes besoins:
'Range en cours de modification
strRange = "C" & lngRow & ":K" & lngRow
Encore plus sur Excel et VBA: Excel-Malin.com
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message