Bonjour à tous,
Je travaille sur un projet à mon travail et j'ai créé une fonction qui compte le nombre de cellules vides dans une plage de données. Le nombre de plages est facultatif alors j'ai mis un maximum de 22 arguments. Vous trouverez ci-après un extrait de ma fonction avec 2 arguments dont 1 facultatif, j'ai pas voulu mettre toute la fonction à 22 arguments.
Mon problème est que le logiciel ne reconnaît pas le deuxième argument comme étant facultatif bien que j'ai mis "optional" devant.
J'aimerais s'il vous plaît que vous m'aidiez à déclarer "valeur2" comme étant facultatif, de sorte que je modifie la globalité de mon code.
Merci d'avance.




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
18
19
20
21
22
23
24
25
26
27
Function Blankya(Valeur1 As Range, Optional Valeur2 As Variant = Empty)
 
 Dim c As Range
 
    Application.Volatile
 
    For Each c In Valeur1
 
        If c.MergeCells <> True And c.Value = "" Then
 
         Blankya = Blankya + 1
 
        End If
 
    Next c
 
     For Each c In Valeur2
 
        If c.MergeCells <> True And c.Value = "" Then
 
Blankya = Blankya + 1
 
        End If
 
    Next c
 
End Function