Discussion :

[cheveux bleus]

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

[Philippe PONS]

Salut,

Je viens de tester ta fonction.
Sur mon poste, le paramètre facultatif est très bien reconnu.

Attention: la règle, c'est que tous les paramètres qui suivent un paramètre facultatif doivent être aussi facultatifs.

Cordialement,

[cheveux bleus]

Tu as essayé de sélectionner une seule plage plutôt que deux et ça ne t'a pas affiché "erreur de compilation 449 : argument non facultatif" ???

[vinc_bilb]

Bonjour,

Quelques suggestions:

1. Sur la forme: mettre votre code entre balise, ça facilite la lecture
2. Sur la question: passer par la fonction IsMissing, ie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not(IsMissing(Valeur2 )) Then ....

3. Sur le fond:
- je ne vois pas l'utilité de passer des Range en Variant juste pour pouvoir tester si ils sont passés en arguments .... Il vaudrait mieux je pense:
o Extraire directement les cellulles vides du Range specifié en le retournant par la fonction (quoi que ....) en passant par le specialCells
o Ou mieux travailler directement sur le SpecialCells qui permet en une passe de le sortir

Exemple à peine dégrossi:

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
Function GetBlanlCells(SrcRng As Range) As Range
 
'On sort si le SrcRng n'est pas spécifié
    If SrcRng Is Nothing Then
        End
        Else:
            Set GetBlanlCells = SrcRng.SpecialCells(xlCellTypeBlanks)
            Debug.Print GetBlanlCells.AddressLocal
    End If
End Function
 
Sub Titi()
    Dim BlkRng As Range
    Set BlkRng = GetBlanlCells(Range("A10").CurrentRegion)
End Sub

[Philippe PONS]

Ah! oui, j'ai pas tout lu!!!

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
 
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
    If TypeOf Valeur2 Is Range Then
        For Each c In Valeur2
            If c.MergeCells <> True And c.Value = "" Then
                Blankya = Blankya + 1
            End If
        Next c
    End If
 
End Function

[cheveux bleus]

Ah! oui, j'ai pas tout lu!!!

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
 
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
    If TypeOf Valeur2 Is Range Then
        For Each c In Valeur2
            If c.MergeCells <> True And c.Value = "" Then
                Blankya = Blankya + 1
            End If
        Next c
    End If
 
End Function

Merci beaucoup, j'ai testé ta modification et voilà tout marche.
J'aimerais savoir s'il te plaît quel est le principe de "If TypeOf"

[cheveux bleus]

Merci à toi aussi @Vinc_bilb, juste que je n'ai pas compris ton code.
J'aimerais bien que tu m'expliques ta procédure

[vinc_bilb]

Rebonjour,

Avec des commentaires rajoutés

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Function GetBlanlCells(SrcRng As Range) As Range
' On retourne la liste des cellules vides d'un range passé en paramètre (Attention, il faudrait rajouter le traitement d'erreur)
 
'On sort si le SrcRng n'est pas spécifié
    If SrcRng Is Nothing Then
        End
' Autrement, on sauve toutes les cellules vides du range d'entrée (SrcRng) dans le range retourné (GetBlanlCells = function, spécifié comme un range dans la déclaration), en passant par le specialcells
        Else:
            Set GetBlanlCells = SrcRng.SpecialCells(xlCellTypeBlanks)
            Debug.Print GetBlanlCells.AddressLocal
    End If
End Function

[Philippe PONS]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If TypeOf Valeur2 Is Range Then

te permet de vérifier que Valeur2 est bien de type Range.
Du coups, si c'est le cas, les méthodes de la classe Range, comme MergeCells, sont valides pour être appelées sur Valeur2(puisque c'est un objet de type Range)

HTH