Userform toujours visible

[Willoo]

Bonjour à tous et bonne fête de fin d'année à tous.
Voici mon problème:
j'aimerai qu'un userform1 reste en permanence visible dès l'ouverture du fichier et que le label2 et 3 soient égale à "N39" et "N40". voir fichier joint!
merci et bonne journée à tous.

 

[Pierrot93]

Re : Userform toujours visible

Bonjour Willoo, Jean-Marcel

essaye peut être ainsi, dans le module "thisworkbook" :

Private Sub Workbook_Open()
UserForm1.Show 0
End Sub

dans le module de l'usf :

Private Sub UserForm_Initialize()
With Sheets("2010")
    Label2.Caption = .Range("H39").Value
    Label3.Caption = .Range("H40").Value
End With
End Sub

dans le module de la feuille 2010 :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("H39:H40")) Is Nothing Then
    With UserForm1
        .Label2.Caption = Range("H39").Value
        .Label3.Caption = Range("H40").Value
    End With
End If
End Sub

bon après midi
@+

 

[Willoo]

Re : Userform toujours visible

Merci tous les deux.
cela fonctionne, mais j'aimerai si c'est possible que l'userform apparaisse toujours en bas (gauche ou droite) et que les valeurs ce mettent a jour automatiquement quand la valeur cible change.Car la la mise à jour se fait seulement a l'ouverture du fichier (se qui est déjà pas mal)
Merci pour votre aide

 

[Pierrot93]

Re : Userform toujours visible

Re,

attention, dans les codes que je t'ais donné, je contrôle les cellules H39 et H40, comme dans le fichier que tu nous as fourni et non celles de la colonnes N...

 

[kiki29]

Re : Userform toujours visible

Salut

'	UserForm En bas à droite
Private Sub UserForm_Activate()
    With Me 
      .Top = Application.Height - Me.Height
      .Left = Application.Width - Me.Width
    End With
End Sub

 

[Willoo]

Re : Userform toujours visible

Oui merci à toi Pierrot93
J'avais vu.
Merci

 

[Pierrot93]

Re : Userform toujours visible

Re

la mise à jour de tes labels se fait bien lorsque tu modifies les cellules en question alors...

 

[Willoo]

Re : Userform toujours visible

Grace a votre aide, voici se que j'ai réussi a faire.
Tout fonctionne, mais la mise à jour ne se fait pas automatiquement et je n'ai pas accès à ma feuille tant que l'userform n'est pas fermé.
J’ai du faire qque chose qu’il ne fallait pas.
Encore merci pour votre aide

 

[Willoo]

Re : Userform toujours visible

Je vient de relire vos message et j'avais oublier un 0 qque part
C'est bon tout fonctionne nickel sauf la mise a jour auto. Elle se faite lors de l'ouverture du fichier.
Merci a tous

 

[Willoo]

Re : Userform toujours visible

Est'il possible que l'userform soit un peux moins en bas et a droite ??

 

[Pierrot93]

Re : Userform toujours visible

Re

essaye peut être ainsi :

With Me
    .Top = (Application.Height - Me.Height) - 15
    .Left = (Application.Width - Me.Width) - 15
End With

tu peux bien sur jouer avec les "-15" pour modifier les distances...
@+

 

[Willoo]

Re : Userform toujours visible

Merci Pierrot93.
c'est tout a fait ce que je voulé.

 

[Willoo]

Re : Userform toujours visible

Désolé d'incité, mais est il possible que la mise a jour fonctionne en auto ?????

 

[Pierrot93]

Re : Userform toujours visible

Re,

c'est ce que fait cette partie du code donnée dans mon post de 13h52, à placer dans le module de la feuille concernée en adaptant la plage de cellule...

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("H39:H40")) Is Nothing Then
    With UserForm1
        .Label2.Caption = Range("H39").Value
        .Label3.Caption = Range("H40").Value
    End With
End If
End Sub

 

[Willoo]

Re : Userform toujours visible

non désolé mais chez moi cela ne fonctionne pas. voir fichier ci-joint