Actualiser un userform [Fermé]

Question

Actualiser un userform [Fermé]

Signaler

sebyyy - 2 janv. 2020 à 15:16
cs_Le Pivert

Messages postés: 7210
Date d'inscription: jeudi 13 septembre 2007
Statut: Contributeur
Dernière intervention: 18 janvier 2021

- 8 janv. 2020 à 19:51

Bonjour,

Je suis débutant dans les VBA et je suis en train de créer un petit programme.

J'ai créé un UserForm avec des Labels et j'aimerais qu'il se mette à jours automatiquement sans que j'aille besoin de cliquer dessus.

Donc, quand je modifie une cellule dans la feuille Excel, je veux qu'il change en même temps sur l'userform. Car j'utilise la feuille Excel et l'userform en même temps.

j'ai actuellement le code suivant :

Private Sub dernum_Click()
dernum.Caption = ActiveSheet.Range("A1").Value
End Sub

Est-ce que quelqu'un à une solution pour moi ?

Merci d'avance

Afficher la suite

A voir également:

Actualiser un userform
Actualiser des champs textbox d'un userform depuis une listbox ✓ - Forum - VB / VBA
Actualiser Textbox de mon UserForm ✓ - Forum - VB / VBA
[VBA] Userform - Label ne s'actualise pas ✓ - Forum - VB / VBA
Problème actualisation pôle emploi ✓ - Forum - Internet / Réseaux sociaux
Facebook une erreur est survenue. essayez d'actualiser cette page ✓ - Forum - Facebook

6 réponses

Posez votre question

cs_Le Pivert · Answer 1 · 2020-01-02T15:54:14+0100

Réponse 1 / 6

cs_Le Pivert

Messages postés: 7210
Date d'inscription: jeudi 13 septembre 2007
Statut: Contributeur
Dernière intervention: 18 janvier 2021

601
2 janv. 2020 à 15:54

Bonjour,

Pour faire cela il faut mettre ton UserForm comme indiqué ici:

https://silkyroad.developpez.com/VBA/UserForm/#LIII-A-2

Ensuite tu vas dans le module de la feuille concernée avec ce code:

a adapter

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
UserForm1.Label1.Caption = Target.Value
End If
End Sub

Signaler

sebyyy
2 janv. 2020 à 18:42

Merci pour ton message

Malheureusement, je n'arrive pas à le faire fonctionner... je sais pas si je le mets dans le bon espace VBA ou si je fais faux dans la fonction...

Quand j'insère ton code, mon UserForm s'ouvre, je peux travailler sur ma feuille Excel mais aucune modification ne se fait.

:-/

Signaler

cs_Le Pivert

Messages postés: 7210
Date d'inscription: jeudi 13 septembre 2007
Statut: Contributeur
Dernière intervention: 18 janvier 2021

601 > sebyyy
2 janv. 2020 à 18:47

Tu fais Alt F11 sur la feuille concernée. Cela ouvre l'éditeur. C'est là qu'il faut mettre le code

Voici la méthode employée

https://forum.excel-pratique.com/viewtopic.php?t=1314

@+ Le Pivert

sebyyy · Answer 2 · 2020-01-02T19:06:26+0100

Réponse 2 / 6

sebyyy
2 janv. 2020 à 19:06

Est-ce que tu crois que tu peux m'aider si je te transmets mon fichier Excel ?
Car là je sais bientôt plus ou j'en suis... je n'y arrive pas... enfin j'arrive à mettre le code à la bonne place mais rien ne se passe...

Signaler

cs_Le Pivert

Messages postés: 7210
Date d'inscription: jeudi 13 septembre 2007
Statut: Contributeur
Dernière intervention: 18 janvier 2021

601
2 janv. 2020 à 19:19

Mettre le classeur sans données confidentielles ici, ensuite coller le lien ainsi obtenu sur ce post

https://www.cjoint.com/

@+

sebyyy · Answer 3 · 2020-01-02T19:26:13+0100

Réponse 3 / 6

sebyyy
2 janv. 2020 à 19:26

https://www.cjoint.com/c/JAcszgI68Rg

voici le lien

Merci

Signaler

cs_Le Pivert

Messages postés: 7210
Date d'inscription: jeudi 13 septembre 2007
Statut: Contributeur
Dernière intervention: 18 janvier 2021

601
2 janv. 2020 à 20:08

voilà

https://www.cjoint.com/c/JActhUE525Q

@+

sebyyy · Answer 4 · 2020-01-02T20:31:41+0100

Réponse 4 / 6

sebyyy
2 janv. 2020 à 20:31

Merci pour le fichier

Mais je comprends toujours pas pourquoi, il s'actualise pas tout seul... Chaque fois que je modifie, je dois retourner sur la cellule concernée pour faire la modification.

tu crois que c'est possible ?

Merci

Signaler

cs_Le Pivert

Messages postés: 7210
Date d'inscription: jeudi 13 septembre 2007
Statut: Contributeur
Dernière intervention: 18 janvier 2021

601
2 janv. 2020 à 20:42

Chaque fois que je modifie, je dois retourner sur la cellule concernée pour faire la modification.

c'est normal il faut qu'il y ai une sélection pour chaque changement

au post 3 je t'ai donné un lien. Lis le!

sebyyy · Answer 5 · 2020-01-02T21:52:40+0100

Réponse 5 / 6

sebyyy
2 janv. 2020 à 21:52

Après plusieurs essais, j'abandonne... je suis que débutant dans les VBA
mais merci quand même pour ton aide

sebyyy · Answer 6 · 2020-01-03T18:49:58+0100

Réponse 6 / 6

sebyyy
3 janv. 2020 à 18:49

Salut cs_Le Pivert,

Mon histoire me travaille... est-ce que je pourrais te demander une dernière fois de me mettre mon fichier comme demandé ? Quand j'ai une idée en tête j'ai du mal à la lâcher... Merci pour ta réponse

Afficher les 7 commentaires

Signaler

sebyyy

Messages postés: 9
Date d'inscription: dimanche 28 août 2016
Statut: Membre
Dernière intervention: 14 octobre 2020

> cs_Le Pivert

Messages postés: 7210
Date d'inscription: jeudi 13 septembre 2007
Statut: Contributeur
Dernière intervention: 18 janvier 2021

7 janv. 2020 à 17:18

Oui en quelque sorte... sauf que ma cellule "A1" est une RECHERCHEV donc je ne vais pas inscrire dans cette cellule.

C'est à partir de la "feuille3" en insérant un numéro dans la colonne "B" que ma cellule "A1" de ma "feuille2" va changer.

En fait, je sais pas si c'est faisable... c'est peut-être impossible, je sais pas...

Signaler

cs_Le Pivert

Messages postés: 7210
Date d'inscription: jeudi 13 septembre 2007
Statut: Contributeur
Dernière intervention: 18 janvier 2021

601 > sebyyy

Messages postés: 9
Date d'inscription: dimanche 28 août 2016
Statut: Membre
Dernière intervention: 14 octobre 2020

8 janv. 2020 à 09:00

Tu supprimes le code du module de la feuille2 et tu mets ceci dans le module de la feuille3:

Option Explicit
'L'evenement se déclenche au changement de sélection
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then
If Target.Value = "" Then Exit Sub
Sheets("Feuil2").Range("A1").Value = Target.Value
Sheets("Feuil2").Select
LOTOVérif_écran.Show
End If
End Sub

dans le module de ton UserForm LOTOVérif_écran tu changes et tu mets cela:

Option Explicit
Private Sub UserForm_Activate()
dernum.Caption = Range("A1").Value 'adapter la cellule
End Sub

Voilà

Signaler

sebyyy

Messages postés: 9
Date d'inscription: dimanche 28 août 2016
Statut: Membre
Dernière intervention: 14 octobre 2020

> cs_Le Pivert

Messages postés: 7210
Date d'inscription: jeudi 13 septembre 2007
Statut: Contributeur
Dernière intervention: 18 janvier 2021

8 janv. 2020 à 18:15

Merci pour les codes mais maintenant quand je fais ma sélection de numéros, mon USF ne s'actualise pas... donc mon label "dernum" ne change pas le numéro demandé...

https://www.cjoint.com/c/JAirniFX3Eg

Signaler

cs_Le Pivert

Messages postés: 7210
Date d'inscription: jeudi 13 septembre 2007
Statut: Contributeur
Dernière intervention: 18 janvier 2021

601 > sebyyy

Messages postés: 9
Date d'inscription: dimanche 28 août 2016
Statut: Membre
Dernière intervention: 14 octobre 2020

8 janv. 2020 à 18:58

Voilà

https://www.cjoint.com/c/JAir52LUaFQ

@+

Signaler

sebyyy

Messages postés: 9
Date d'inscription: dimanche 28 août 2016
Statut: Membre
Dernière intervention: 14 octobre 2020

> cs_Le Pivert

Messages postés: 7210
Date d'inscription: jeudi 13 septembre 2007
Statut: Contributeur
Dernière intervention: 18 janvier 2021

8 janv. 2020 à 19:16

Je comprends pas mais ça fonctionne pas... :-(
Parce que, quand j'inscris mon numéro dans ma colonne (Feuille3 / de B1 à B90) je suis obligé de retourner dans la feuille2 pour faire un double clic pour qu'il change mon Label "dernum".

Signaler

cs_Le Pivert

Messages postés: 7210
Date d'inscription: jeudi 13 septembre 2007
Statut: Contributeur
Dernière intervention: 18 janvier 2021

601 > sebyyy

Messages postés: 9
Date d'inscription: dimanche 28 août 2016
Statut: Membre
Dernière intervention: 14 octobre 2020

8 janv. 2020 à 19:51

Cela fonctionne en cliquant sur un numéro de la colonne B de la feuille3.

Si tu ajoutes un numéro il faut ensuite cliquer dessus. c'est une spécificité d'Excel il faut l'accepter.

Je crois que l'on a fait le tour!

@+ le Pivert

Actualiser un userform [Fermé]

6 réponses

Votre réponse

Newsletter