Garder en mémoire les Déclarations pour utiliser un USF

[Guigui]

Bonjour,

Voici mon souci
je souhaite que quand dans une cellule précise, le chiffre 93 est taper, un USF s'ouvre.

je m'en sort trés bien pour la detection :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig
lig = Target.Row
If Not Application.Intersect(Target, Range("H1:H2500")) Is Nothing Then
If Target = "" Then Exit Sub
If Target = "93" Then
MsgBox ("93 trouvé")
Target.Select
GESTIONTTM.Show
End If
End if

maintenant, je voudrais initialiser le caption d'un label dans le USF, en utilisant le "lig" déclaré auparavant ... mais voila le bug ..

je sais qu'il existe un moyen de declarer des choses sur plusieurs module ou feuille mais je ne sais pas quelle syntaxe utilisé...

Merci d'avance pour votre aide.
Guillaume

 

[phlaurent55]

Re : Garder en mémoire les Déclarations pour utiliser un USF

Bonjour guigui,

ton fichier en retour,

à+
Philippe

 

[Robert]

Re : Garder en mémoire les Déclarations pour utiliser un USF

Bonsoir Guigui, bonsoir le forum,
Remplace, dans le code d'initialisation de l'UserForm :

lig = Target.Row

par :

lig = ActiveCell.Row

Édition :

Bonsoir Philippe on s'est croisés

 

[camarchepas]

Re : Garder en mémoire les Déclarations pour utiliser un USF

Bonsoir ,
il suffit de déclarer une variable de portée publique dans un module standard , et hop le tour est joué.

 

[kjin]

Re : Garder en mémoire les Déclarations pour utiliser un USF

Bonsoir,

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig
lig = Target.Row
If Not Application.Intersect(Target, Range("H1:H2500")) Is Nothing Then
If Target = ""  or target.count > 1 Then Exit Sub
If Target = "93" Then
With GESTIONTTM
      .Label1 = lig
      .Show
end with
End If
End if
end sub

A+
kjin

 

[Guigui]

Re : Garder en mémoire les Déclarations pour utiliser un USF

Bonsoir,

Merci à tous,
Chacun à une solution

Je vais exploiter tout ca et reviens vers vous en cas de souci ...

Merci encore.
Pour info j'ai retenu la solution de Robert Cela me permet avec plus de facilité d'initialiser mon USF comme bon me semble.

 

[Bebere]

Re : Garder en mémoire les Déclarations pour utiliser un USF

bonjour
pour faire bon poids bonne mesure encore une
à bientôt