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

[luca.donati]

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 :

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
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.

[mercatog]

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 :

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
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

[luca.donati]

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 :

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

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?

[mercatog]

Pour boucler sur TextBox2..TextBox6

Code :

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

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

[luca.donati]

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 :

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

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

?

[mercatog]

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 :

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

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.

[luca.donati]

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!