Discussion :

[sebing]

Bonjour,

J'ai un gros soucis avec les variables, plus je lis les tutos et plus je me noies

Voila lorsque je cdouble clique sur une cellule, je récupere le numéro de ligne puis j'ouvre un formulaire d'identification, puis un autre formulaire s'ouvre.
C'est dans ce deuxieme formulaire que je souhaite me servir de la valeur de la ligne récupérée, mais je ne sais pas comment récupérer cette valeur.
Pouvez vous me venir en aide SVP?

Je vous en remercie par avance
Seb

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'verifie si c'est la colonne 16,17 ou 18 qui est activée
    If Target.Column > 15 And Target.Column < 19 Then
 
        'recupere le numéro de ligne de la cellule activée
 
           Cancel = True
            numlig = Target.Row
 
        'demande le mot de passe en ouvrant le formulaire
                    UsfMDPDmr.Show
    End If
End Sub

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
Private Sub UserForm_Initialize()
'remet le champs MDP a 0 et met le focus sur lui
    TxtMdpDMR.Value = ""
    TxtMdpDMR.SetFocus
 
 
End Sub
 
Private Sub CmdAnnuler_Click()
    TxtMdpDMR.Value = ""
    Unload Me
    End Sub
 
Private Sub CmdOK_Click()
'on verifie si le mot de passe entrée est le bon
 
    If TxtMdpDMR.Text = "toto" Then
    'on ouvre le formulaire de saisie et on ferme celui-ci
        usfdmr.Show
        Unload UsfMDPDmr
    Else
        MsgBox ("mauvais mot de passe")
    End If
 
End Sub

[Phil'oche]

Question moultes fois posée, me semble-t-il...

Dans les déclarations de n'importe quel formulaire UserFormX, tu déclares :

Code :

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

Public MaValeurEchange as (cequetuveux : String, Variant, Single)

Et n'importe où dans le code (sur les WorkSheets ou sur les autres UserForm), tu as le droit de faire appel :

Code :

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

UserFormX.MaValeurEchange = (cequejeveuxluipasser)

Il ne te reste plus, dans ton UserFormX, qu'à récupérer la valeur de ta variable (à son chargement ou activation par exemple)!

[Invité]

Chaque contrôle d'un UserForm dispose d'une propriété TAG:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'verifie si c'est la colonne 16,17 ou 18 qui est activée
    If Target.Column > 15 And Target.Column < 19 Then
 
        'recupere le numéro de ligne de la cellule activée
 
           Cancel = True
            numlig = Target.Row
 
        'demande le mot de passe en ouvrant le formulaire
                    UsfMDPDmr.Tag= Target.Row
                    UsfMDPDmr.Show
    End If
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CmdOK_Click()
'on verifie si le mot de passe entrée est le bon
 
    If TxtMdpDMR.Text = "toto" Then
    'on ouvre le formulaire de saisie et on ferme celui-ci
         usfdmr.Tag=Me.Tag
        usfdmr.Show
        Unload Me
    Else
        MsgBox ("mauvais mot de passe")
    End If
 
End Sub

Code Exemple dans usfdmr :

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

1
2
3
Private Sub UserForm_Activate()
MsgBox ActiveSheet.Cells(Me.Tag, 1)
End Subb

[Phil'oche]

+1, rdurupt...

Y'a des jours, on se fait des noeuds au cerveau pour rien

Mais ma suggestion reste valable si on doit passer au UserForm plusieurs valeurs, en particulier de types différents, sans être obligé de faire ensuite un Split(.Tag,";") par exemple...

[Invité]

+1, rdurupt...

Y'a des jours, on se fait des noeuds au cerveau pour rien

Mais ma suggestion reste valable si on doit passer au UserForm plusieurs valeurs, en particulier de types différents, sans être obligé de faire ensuite un Split(.Tag,";") par exemple...

Perso je préfère un sub

Code :

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

1
2
3
4
5
Public Charger(Var1 as string,Var2 as integer)
MaVar1Local= var1
MaVar2Local= var2
me.show
end sub

[Invité]

On dit que la nuit porte conseil, celle ci ma suggéré de préconiser de façon exceptionnel l'emploi d'ActiveCell. en effet, le double click sur une cellule entraîne une avalanche de formulaires!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'verifie si c'est la colonne 16,17 ou 18 qui est activée
    If Target.Column > 15 And Target.Column < 19 Then
 
        'recupere le numéro de ligne de la cellule activée
 
           Cancel = True
            numlig = Target.Row
 
        'demande le mot de passe en ouvrant le formulaire
                    UsfMDPDmr.Show
    End If
End Sub

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
Private Sub UserForm_Initialize()
'remet le champs MDP a 0 et met le focus sur lui
    TxtMdpDMR.Value = ""
    TxtMdpDMR.SetFocus
 
 
End Sub
 
Private Sub CmdAnnuler_Click()
    TxtMdpDMR.Value = ""
    Unload Me
    End Sub
 
Private Sub CmdOK_Click()
'on verifie si le mot de passe entrée est le bon
 
    If TxtMdpDMR.Text = "toto" Then
    'on ouvre le formulaire de saisie et on ferme celui-ci
        usfdmr.Show
        Unload UsfMDPDmr
    Else
        MsgBox ("mauvais mot de passe")
    End If
 
End Sub

Code Exemple dans usfdmr :

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

1
2
3
4
5
Private Sub UserForm_Initialize()
    Me.Tag = ActiveCell.Row
    Me.TextBox1 = ActiveSheet.Cells(Me.Tag, 1)
    Me.TextBox2 = ActiveSheet.Cells(Me.Tag, 2)
End Sub