transferer valeur d'une variable dans un formulaire

Version imprimable

Bonjour,

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

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:

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:

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

26/02/2014, 12h17
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:

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:

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

Bonjour,

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

Code:

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:

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:

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

26/02/2014, 14h05
Phil'oche

+1, rdurupt...

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

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... ;)
26/02/2014, 14h09
Invité
Citation:

Envoyé par Phil'oche

+1, rdurupt...

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

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:

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

Bonjour,

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:

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:

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:

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

27/02/2014, 11h16
sebing

Merci pour vos réponses :king: je ne connaissai pas le tag (soit dit en passant je connais pas grand chose lol ).
Merci encore, je vous souhaite une bonne journée
Seb
27/02/2014, 16h19
sebing

Merci encore pour l'astuce donnée pour recupérer les valeurs:mrgreen:

Seb