Initilalisation user

[BRUNO62]

Bonsoir,

A l'ouverture du fichier j'ouvre user1
Private Sub Workbook_Open()
Userform1.Show vbModeless
End Sub

A partir de la feuil2 en B3 Je récupére la valeur dans la Textbox1
Private Sub UserForm_Initialize()
Userform1.TextBox1.Value = Sheets("Feuil2").Range("B3").Value
End Sub

"B3" est amené à changer régulièrement.
Par contre, quand la valeur b3 change la textbox1 n'est pas modifiée instantanément.

Pour que la valeur change, il faut fermer l'application et la ré-ouvrir.
Avez vous une idée ?
Merci
A+

 

[roro69]

Re : Initilalisation user

Bonsoir
a voir dans la procédure de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
'Désactive l'évènement
Application.EnableEvents = False
UserForm1.TextBox1.Value = Feuil2.Range("B3").Value

'Réactive l'évènement
Application.EnableEvents = True
End Sub

A++

 

[dra72]

Re : Initilalisation user

Bonsoir,

Dans Private Sub Worksheet_Change(ByVal Target As Range)

insérer

 If Target.Address = "$B$3" Then
  UserForm1.TextBox1.Text = Sheets("Feuil2").Range("B3")
End If

Bonne soirée

 

[BRUNO62]

Re : Initilalisation user

Bonsoir roro69 et dra72,
Merci pour vos réponses apportées mais à l'ouverture USER la valeur b3 n'est pas réprise dans la textbox1
A+

 

[roro69]

Re : Initilalisation user

RE
est ce que dans la procédure d'initialize de ton userform tu as bien garder la ligne comme ceci?

Private Sub UserForm_Initialize()
Userform1.TextBox1.Value = Sheets("Feuil2").Range("B3").Value
End Sub

A++

 

[BRUNO62]

Re : Initilalisation user

roro69,

RE, oui
A+

 

[BRUNO62]

Re : Initilalisation user

Bonsoir,
RE
Pour arriver au résultat voulu, pour que la valeur b3 soit pris en compte dans textbox1
Private Sub CommandButton1_Click()
Unload Userform1
Userform1.Show vbModeless
End Sub
C'est ok, mais !!!!!
A+

 

[Pierrot93]

Re : Initilalisation user

Bonjour,

bizarre fonctionne chez moi avec l'événement "change"... A voir comment est modifiée la cellule, si elle contient une formule, peut être utiliser l'événement "calculate" de la feuille :

Option Explicit
Private Sub Worksheet_Calculate()
UserForm1.TextBox1.Text = Range("B3")
End Sub

sinon peut être mettre un petit fichier en pièce jointe représentant uniquement le problème posé...

bonne journée
@+

 

[BRUNO62]

Re : Initilalisation user

Bonsoir Pierrot93,

Bien joué, c'est ok.
Encore merci à toi, à roro69 et dra72,
Bonne soirée.
A+