argument de Sub

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:

---

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

---

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:

---

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:

---

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

---

Effectivement, ça marche... à peu près.
En effet, avec cette solution je peux passer ou non l'argument. Sauf que tout d'un coup j'ai plein de problèmes avec les types des variables que je n'avais pas avant.
Exemple:

Code:

---

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 28 29 30 31 32 33 34 35

Private Sub CommandButton2_Click() Dim Rig As Integer Rig = ActiveCell.Row If CtrlRigCfBox(Rig) > 0 Then risp = MsgBox("Dati NON salvati ! - Proseguire ?", vbYesNo) If risp = vbYes Then Exit Sub End If End If Avanti (1) End Sub     Function CtrlRigCfBox(Optional Rig As Integer) 'indica quanti dati nelle textbox sono diversi da quelli nelle celle CtrlRigCfBox = 0 If Rig = "" Then Rig = ActiveCell.Row End If If Cells(Rig, 2) <> TextBox2 Then CtrlRigCfBox = CtrlRigCfBox + 1 End If If Cells(Rig, 3) <> TextBox3 Then CtrlRigCfBox = CtrlRigCfBox + 1 End If If Cells(Rig, 4) <> TextBox4 Then CtrlRigCfBox = CtrlRigCfBox + 1 End If If Cells(Rig, 5) <> TextBox5 Then CtrlRigCfBox = CtrlRigCfBox + 1 End If If Cells(Rig, 6) <> TextBox6 Then CtrlRigCfBox = CtrlRigCfBox + 1 End If End Function

---

Et bien, le CommendButton2, avant de lancer la Sub "Avanti", doit lancer un code qui contrôle si quelques données de l'InputBox sont différents de ceux contenus dans la ligne. Mais maintenant que j'ai rendu l'argument Rig facultatif, celui-ci souffre systématiquement d'une incompatibilité de type au premier appel dans la Function CtrlRigCfBox, aussi bien quand la fonction est appelée AVEC l'argument que quand elle est appelée SANS.
Pourquoi donc?
L'Aide d'Excel donne des explications assez obscures... au moins à mes yeux de profane!
Merci pour toute suggestion.

Rien n'est obscure
Pour le paramètre optional

• Soit tu le déclare en variant
• Soit tu le type avec une valeur par défaut.

Relis mon post 1 et l'aide vba

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Private Sub CommandButton2_Click() Dim Rig As Integer, Risp As Integer   Rig = ActiveCell.Row If CtrlRigCfBox(Rig) > 0 Then Risp = MsgBox("Dati NON salvati ! - Proseguire ?", vbYesNo) If Risp = vbYes Then Exit Sub End If Call Avanti(1) End Sub   'indica quanti dati nelle textbox sono diversi da quelli nelle celle Function CtrlRigCfBox(Optional Lig As Integer = 0) Dim Compteur As Integer   If Lig = 0 Then Lig = ActiveCell.Row If Cells(Lig, 2) <> TextBox2 Then Compteur = Compteur + 1 If Cells(Lig, 3) <> TextBox3 Then Compteur = Compteur + 1 If Cells(Lig, 4) <> TextBox4 Then Compteur = Compteur + 1 If Cells(Lig, 5) <> TextBox4 Then Compteur = Compteur + 1 If Cells(Lig, 6) <> TextBox5 Then Compteur = Compteur + 1 'Tes TextBox sont sur la feuille ou dans un userform? On peux faire ceci par boucle CtrlRigCfBox = Compteur End Function

---

Merci pour tes éclairages; j'ai relu... mais je vais aussi relire, parce que tout n'est pas vraiment clair.
En attendant, mes TextBox sont dans une Userform et les boucles m'intéressent beaucoup.
Est-ce que tu saurais me dire comment enchaîner:
- un nom d'objet tel qu'une textbox & un index (par ex. "i")
- un nom de variable (et quels types s'y prêtent) & un index.
Parce que si on arrive à faire une chose pareille, ça veut dire qu'on peut aussi se faire un code bon pour un grand nombre de UserForm, il suffira de dire d'abord quelque chose comme...

Code:

---

i = MesObjets.Count

---

Et pour les variables ça va être des boucles aussi, ce qui permet de faire d'un seul coup exactement autant de variables que nécessaire! (Je pense à une tout autre application.)
Qu'en penses-tu?

Pour boucler sur TextBox2..TextBox6

Code:

---

1 2 3 4 5 6 7 8 9 10

Function CtrlRigCfBox(Optional Lig As Integer = 0) Dim Compteur As Integer Dim i As Byte   If Lig = 0 Then Lig = ActiveCell.Row For i = 2 To 6 If Cells(Lig, i) <> Me.Controls("TextBox" & i) Then Compteur = Compteur + 1 Next i CtrlRigCfBox = Compteur End Function

---

Citation:

---

Me.Controls("TextBox" & i)

---

Génial!
Si je comprends bien, Me est la UserForm, Controls fait référence génériquement aux contrôles qui sont dedans, puis c'est spécifié dans la parenthèse...
Ça ressemble un peu à la syntaxe de la formule "INDIRECT" dans les cellules: guillemets pour la "citation" directe d'un nom ou d'un objet, sans guillemets pour les variables qui véhiculent un élément.

Et par contre, comment tu fais pour les variables?
Comme c'est hors sujet de cette discussion, si tu penses que c'est trop long à traiter j'en ferai un nouveau post.
Merci encore!

P.S.: Excuse-moi, question complémentaire pour le TextBox. Quelle syntaxe pour les compter? Ça irait, par exemple,

Code:

---

Me.Controls("TextBox" & *).Count

---

?

Non, pour le comptage des textbox, ça n'irait pas ;) (tu pouvais tester, non?)
Pour compter, il faudrait boucler sur tous les controles de ton usf
Par exemple

Code:

---

1 2 3 4 5 6 7

Dim Ktrl As Control Dim c As Integer   For Each Ktrl In Me.Controls If TypeOf Ktrl Is MSForms.TextBox Then c = c + 1 Next Ktrl MsgBox c

---

Pour la question des variables, je n'ai pas bien compris la question, si tu peux détailler.

Par contre tu peux utiliser les variables tableau.

Si je n'ai pas testé c'est tout bonnement parce que je me doutais bien que ma solution était simpliste et je n'aurais pas su interpréter l'échec, donc autant demander. En plus, je ne peux pas utiliser Excel sur cet ordinateur, dans l'immédiat.
Quant aux variables, je ferai un nouveau post demain, parce que ça n'a vraiment rien à voir avec les UserForm et ça mérite une discussion à part.
Je te remercie pour toute ta disponibilité, je vais maintenant mettre tous ces bouts de code dans mon module et j'essaierai de revenir ici avec le code intégral pour ceux qui sont intéressés.
A bientôt!