Appeler une Fonction

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.

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
Rechercher des sujets similaires à "appeler fonction"