Discussion :

[alex.a]

Bonjour a tous,

Voilà, J'ai créé un formulaire qui vient rechercher des valeurs d'un fichier excel.
J'aimerais savoir comment faire pour qu'une modification de donnée dans la feuille entraine la mise a jour automatique dans mon formulaire, sans passé par un bouton mise a jour.

je renseigne mes zones de textes de la façon suivante:
FL correspond a la feuille et FenetreFMESUser a mon formulaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set FL = Workbooks("FMES-" & NomProjet & ".xls").Worksheets("FMES Equipement")
 FenetreFMESUser.LblLambdaTot.Value = (FL.Range("D" & i).Value)

Merci a tous pour votre aide

[tonton fred]

Bonjour,
Tu peux reaffecter les valeur a ton formulaire lors de l'evenement Change ou afterupdate de ta feuille (lis l'aide pour voir les differences et choisir le mieux pour toi).

[alex.a]

Merci tonton fred

Mais l'évènement _Change() ou AfterUpdate() ne se fait-il pas du formulaire vers la feuille, moi je voudrais le faire de la feuille vers le formulaire

J'ai appliqué des _Change() a certaine TextBox pour pouvoir faire les mise a jour du formulaire vers la feuille mais pour faire l'inverse . Mes valeurs s'affectent sur le formulaire à l'initialisation, et je voudrais pouvoir faire des modifications dans ma feuille et quelles soient prises en compte sans de nouveau initialiser le formulaire.

Une sorte de lien mais entre, une feuilles et un formulaire.

[tonton fred]

Change et Calculate existent aussi pour les feuilles (pas afterupdate, je me suis trompe) Mais j'ai pense a un truc: est ce qu'il est possible de modifier la feuille avec le formulaire ouvert ?

Si oui dans le sheet tu met quelque chose comme:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Calculate() 'dans la sheet 
Userform1.TextBox1=...
End Sub

Si non alors il faut changer l'initialisation du form:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub UserForm_Initialize() 'dans l'userform
TextBox1=...
End Sub

[alex.a]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

est ce qu'il est possible de modifier la feuille avec le formulaire ouvert

Bah je suppose que oui mais ca n'est pas ce que je recherche

Si non alors il faut changer l'initialisation du form:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Code :
Private Sub UserForm_Initialize() 'dans l'userform
TextBox1=...
End Sub

tu veux dire que j'affecte a TextBox1= la valeur de la feuille a l'initialisation du formulaire?

si c'est ça, c'est que je fais déja. Mais lorsque j'ai mon formulaire d'ouvert et que je change une donnée de ma feuillle, mon formulaire ne s'actualise pas.

je vais voir ça je te tiens au courant
merci tonton fred

[ouskel'n'or]

Regarde là, il y a un fichier joint qui fait ça. Tu peux le charger, il ne mord pas Il te restera à adapter.

[patbou]

bonjour
j ai essayé ceci et ca marche (ds mon contexte)
tout d abord in faut ouvrir le userform en non modal

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
UserForm1.Show 0
'ensuite a l evenement change de la feuille que tu veux
 
Private Sub Worksheet_Change(ByVal Target As Range)
UserForm1.TextBox1.Value = Worksheets(1).Cells(1, 1).Value
End Sub