Discussion :

[luca.donati]

Bonjour à tous.
Dans le code suivant, je souhaiterais que la variable "Rig" soit valorisée uniquement si la Sub est appelée SANS argument.
Sauf que je n'arrive pas à trouver comment faire comprendre à VBA que je veux que l'argument soit FACULTATIF !
Il me dit tout le temps qu'il est obligatoire...
Quelqu'un saurait me suggérer une solution?
Merci !

Code :

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

1
2
3
4
5
6
7
Sub Caricariga(Rig)
If Rig Is Nothing Then
    Rig = ActiveCell.Row
End If
TextBox1 = Cells(Rig, 1)
'(etc etc)
End Sub

[mercatog]

Je n'ai pas compris ton exemple mais regarde du côté de Optional

1. Ci-joint exemple simple avec IsMissing (la variable doit être variant)

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
Sub MaSub(Optional k As Variant)
Dim t As Integer
 
If IsMissing(k) Then
    t = 100
Else
    t = k
End If
Range("A1") = t
End Sub
 
'Teste les 2 cas
Sub test()
 
Call MaSub
'Call masub(12)
End Sub

2. Un autre exemple avec une valeur par défaut

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub MaSub(Optional k As Integer = 100)
Dim t As Integer
 
t = k
Range("A1") = t
End Sub
 
'Teste les 2 cas
Sub test()
 
Call MaSub
'Call MaSub(12)
End Sub