Bonjour,
Je débute avec les macros et j'ai créé une série de fonction. La fonction ci-dessous me permet de connaitre la hauteur d'une ligne donnée dans un classeur donné. La fonction fonctionne parfaitement, mais j'ai un certain nombre de fonction de ce type et pour toutes, je recopie le
x =...
feuille = ....
N' y a-t-il pas moyen de mettre cela dans une autre macro qui serait appelée pour chaque fonction?
En espérant avoir été clair (premier message sur le forum) et en vous remerciant grandement pour votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 function hauteurCor(numero) 'renvoie la hauteur d'une ligne donnée 'il faut donner le numéro de la ligne... 1 2 ou 48 Application.Volatile x = Application.Caller.Parent.Name classeur = Range(x & "!D1") feuille = WorksheetFunction.Max(Range("A20:A" & Application.Caller.Row)) hauteurCor = Workbooks(classeur).Worksheets(feuille).Rows((numero)).RowHeight End Function
Partager