6 réponses
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
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
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...
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...
Mettre le classeur sans données confidentielles ici, ensuite coller le lien ainsi obtenu sur ce post
https://www.cjoint.com/
@+
https://www.cjoint.com/
@+
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Après plusieurs essais, j'abandonne... je suis que débutant dans les VBA
mais merci quand même pour ton aide
mais merci quand même pour ton aide
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
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
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...
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...
Tu supprimes le code du module de la feuille2 et tu mets ceci dans le module de la feuille3:
dans le module de ton UserForm LOTOVérif_écran tu changes et tu mets cela:
Voilà
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à
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
https://www.cjoint.com/c/JAirniFX3Eg
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.
:-/
Voici la méthode employée
https://forum.excel-pratique.com/viewtopic.php?t=1314
@+ Le Pivert