Renvoyer une valeur par clic?
Fermé
Tim68000
-
10 juin 2014 à 11:39
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 12 juin 2014 à 11:31
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 12 juin 2014 à 11:31
A voir également:
- Renvoyer une valeur par clic?
- Windows 11 clic droit afficher plus d'options par défaut - Guide
- Formule excel si contient texte alors valeur ✓ - Forum Excel
- Excel renvoyer la valeur d'une cellule en fonction d'une autre ✓ - Forum Excel
- Atout clic - Télécharger - Éducatifs
- Double clic excel renvoi cellule ✓ - Forum Excel
8 réponses
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 692
10 juin 2014 à 12:11
10 juin 2014 à 12:11
Bonjour,
Cette fonction n'est pas une fonction native d'excel mais tu peux très bien faire une macro pour la réaliser.
Si tu pouvais nous mettre un exemple de structure des données, sans éléments personnels, avec les résultats souhaités expliqués clairement, se serait plus facile de t'aider.
Pour communiquer ton classeur tu le télécharges sur https://www.cjoint.com/ et tu mets ici le lien obtenu.
Cette fonction n'est pas une fonction native d'excel mais tu peux très bien faire une macro pour la réaliser.
Si tu pouvais nous mettre un exemple de structure des données, sans éléments personnels, avec les résultats souhaités expliqués clairement, se serait plus facile de t'aider.
Pour communiquer ton classeur tu le télécharges sur https://www.cjoint.com/ et tu mets ici le lien obtenu.
Le site est bloqué par l'entreprise..
Je vais vous montrer une image, et sinon je le ferai depuis chez moi.
Je vais vous montrer une image, et sinon je le ferai depuis chez moi.
Tim68000
Messages postés
15
Date d'inscription
mercredi 14 mai 2014
Statut
Membre
Dernière intervention
12 juin 2014
10 juin 2014 à 15:05
10 juin 2014 à 15:05
En feuille 1 il n'y a rien, je veux juste y renvoyer la valeur du numéro de série de la feuille 2 sur lequel j'aurai cliqué
Voici la feuille 2 :
![](https://img-19.ccm2.net/I1zcMNus6HzmoMhgBJ0BPTGQZRg=/cc8816bf9eb44085b5e21e9ff6bb810a/ccm-ugc/7GuEIUGoWEe6Ta4cXJKoDI-apercuclic-s-.png)
On trouve une liste de numéro de série (>30.000 dans le vrai outil) et un outil de recherche géré par macro qui filtre la base de données.
J'aimerais donc qu'en cliquant sur le numéro de série de mon choix (donc dans la colonne B), soit renvoyé dans la feuille 1 en A1
Est-ce plus clair?
Je suis désolé, je ne peux pas du tout copier les informations de mon vrai programme.
Merci beaucoup !
Voici la feuille 2 :
![](https://img-19.ccm2.net/I1zcMNus6HzmoMhgBJ0BPTGQZRg=/cc8816bf9eb44085b5e21e9ff6bb810a/ccm-ugc/7GuEIUGoWEe6Ta4cXJKoDI-apercuclic-s-.png)
On trouve une liste de numéro de série (>30.000 dans le vrai outil) et un outil de recherche géré par macro qui filtre la base de données.
J'aimerais donc qu'en cliquant sur le numéro de série de mon choix (donc dans la colonne B), soit renvoyé dans la feuille 1 en A1
Est-ce plus clair?
Je suis désolé, je ne peux pas du tout copier les informations de mon vrai programme.
Merci beaucoup !
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 692
10 juin 2014 à 18:33
10 juin 2014 à 18:33
Bonjour,
Dans la feuille 2 tu mets cette macro et le renvoi devrait fonctionner :
Si le nom de ta feuille 1 est différent de "Feuil1" tu rectifies ;-)
Dans la feuille 2 tu mets cette macro et le renvoi devrait fonctionner :
Private Sub Worksheet_SelectionChange(ByVal sel As Range)
If Not Intersect(sel, [B:B]) Is Nothing Then
If IsNumeric(sel.Value) And sel.Value <> "" Then
Sheets("Feuil1").[A1].Value = sel.Value
End If
End If
End Sub
Si le nom de ta feuille 1 est différent de "Feuil1" tu rectifies ;-)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Tim68000
Messages postés
15
Date d'inscription
mercredi 14 mai 2014
Statut
Membre
Dernière intervention
12 juin 2014
11 juin 2014 à 08:56
11 juin 2014 à 08:56
Bonjour,
Merci pour l'aide !
Cependant ça ne marche pas... j'ai écrit ça dans la console de macro, mais rien ne se passe.
Cela est peut être du au fait que les numéros de série comprennent également des lettres et des caractères ("/" et "-"). (If numeric....)
Cela marche pour un simple clic sur la case en théorie? Merci !
Merci pour l'aide !
Cependant ça ne marche pas... j'ai écrit ça dans la console de macro, mais rien ne se passe.
Cela est peut être du au fait que les numéros de série comprennent également des lettres et des caractères ("/" et "-"). (If numeric....)
Cela marche pour un simple clic sur la case en théorie? Merci !
Tim68000
Messages postés
15
Date d'inscription
mercredi 14 mai 2014
Statut
Membre
Dernière intervention
12 juin 2014
11 juin 2014 à 16:47
11 juin 2014 à 16:47
Je me permets de vous relancer comme ce sera demain mon dernier jour de stage.
Cette option que je souhaite ajouter n'est pas indispensable mais serait très pratique pour les utilisateurs finaux du projet.
Merci beaucoup et bonne soirée
Cette option que je souhaite ajouter n'est pas indispensable mais serait très pratique pour les utilisateurs finaux du projet.
Merci beaucoup et bonne soirée
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 692
Modifié par gbinforme le 11/06/2014 à 21:11
Modifié par gbinforme le 11/06/2014 à 21:11
Bonjour,
Tu me mets un exemple numérique puis tu dis "les numéros de série comprennent également des lettres et des caractères ("/" et "-")", c'est effectivement incompatible !
Remplace :
Si tu veux revenir sur la feuill 1 tu rajoutes
avant les end if
Toujours zen
La perfection est atteinte, non pas lorsqu'il n'y a plus rien à ajouter, mais lorsqu'il n'y a plus rien à retirer. Antoine de Saint-Exupéry
Tu me mets un exemple numérique puis tu dis "les numéros de série comprennent également des lettres et des caractères ("/" et "-")", c'est effectivement incompatible !
Remplace :
If IsNumeric(sel.Value) And sel.Value <> "" Then
par
If sel.Value <> "" Then
Si tu veux revenir sur la feuill 1 tu rajoutes
Sheets("Feuil1").activate
avant les end if
Toujours zen
La perfection est atteinte, non pas lorsqu'il n'y a plus rien à ajouter, mais lorsqu'il n'y a plus rien à retirer. Antoine de Saint-Exupéry
Tim68000
Messages postés
15
Date d'inscription
mercredi 14 mai 2014
Statut
Membre
Dernière intervention
12 juin 2014
12 juin 2014 à 09:10
12 juin 2014 à 09:10
Merci !
Cela ne marche cependant pas encore.
Que veut dire la première instruction :
"If Not Intersect(sel, [B:B]) Is Nothing Then"
?
Merci encore
Timothé
Cela ne marche cependant pas encore.
Que veut dire la première instruction :
"If Not Intersect(sel, [B:B]) Is Nothing Then"
?
Merci encore
Timothé
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 692
12 juin 2014 à 11:31
12 juin 2014 à 11:31
Bonjour,
Cela ne marche cependant pas encore.
et pourtant si tu appliques correctement le code il doit fonctionner :
https://www.cjoint.com/?DFmlDnilcRf
Cela ne marche cependant pas encore.
et pourtant si tu appliques correctement le code il doit fonctionner :
https://www.cjoint.com/?DFmlDnilcRf