Mise a jour automatique d'un label d'un userform

Bonjour le forum,

J'ai un userform avec un multipage dans la page 2, j'ai un label

Je voudrais afficher le total de la feuille 1 en F2 dans le label

La feuille de calcul se compose de la Colonne A et B

La colonne C calcule la différence entre A et B (formule, =ABS(A2-B2))

Le total de la colonne C se calcule en F2

J'aimerais lorsque que je rajoute une ligne de calcul le label se mets a jour automatiquement

Je recherche toute la journée hier

Je viens vers vous pour une aide possible

Cordialement

Bonjour Pelerin65, le forum,

Essaies ainsi:

Private Sub UserForm_Initialize()
 Dim valeur
  valeur = Sheets("Feuil1").Range("F2").Text
   Me.Label1.Caption = valeur
End Sub

Cordialement,

Bonjour xorsankukai

ton code s affiche bien dans le label

mais lorsque je rajoute une ligne , il s actualise pas dans le label

je suis obligé de fermer userform et de l'ouvrir pour l actualisation du label

Re,

Dans ce cas, il faut fermer puis rouvrir l'USF à chaque saisie...?

Mets à jour ta formule en F2, la somme se limite à la ligne 4.

Cordialement,

'Unload UserForm1: UserForm1.Show
   If UserForm1.Visible Then
    Unload UserForm1
    UserForm1.Show (0)

Re,

Non ,c'est un oubli de ma part, j'ai oublié de l'effacer.

Unload UserForm1 '===> ferme l'usf
UserForm1.Show   '===> ouvre l'usf

serait-il possible que l'interaction de mise à jour de l'userform se situe seulement sur la colonne B

'si la cible se situe dans la plage B2:B8
  If Not Intersect(Target, Range("B2:B8")) Is Nothing Then
   'si l'usf est déjà ouvert (sinon on ne fait rien)
   If UserForm1.Visible Then
    Unload UserForm1 'on le ferme
    UserForm1.Show   'on l'ouvre à nouveau pour mettre à jour le label
   End If
 End If

Cordialement,