Macro qui affiche un nom lorsqu'on tape un numéro dans une case

[krol50]

Bonjour,

J'ai un tableau Excel avec des nombres et des noms à côté.
Je voudrai à partir d'un autre onglet Excel pouvoir choisir le nombre et le nom s'affiche automatiquement OU choisir le nom et le nombre s'affiche automatiquement.

J'ai le début de la macro (enfin la 1ère ligne) :

Private Sub Worksheet_Change(ByVal Target As Range)

Par contre, je bloque après.

Quelqu'un peut m'aider ? Merci.

 

[Épaf]

Re : Macro qui affiche un nom lorsqu'on tape un numéro dans une case

Bonjour krol,

Je voudrai à partir d'un autre onglet Excel pouvoir choisir le nombre et le nom s'affiche automatiquement OU choisir le nom et le nombre s'affiche automatiquement.

De mon point de vue, ce serait plutôt la sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Ensuite tout dépend de l'organisation de tes données mais tu peux lancer une recherche sur la feuille contenant tes données.
Un clic dans une cellule te permet de récupérer son contenu
Une recherche de ce contenu dans la feuille concernée te permet de trouver la cellule du nom ou de la valeur.
Si c'est une valeur, tu as le nom dans la cellule voisine et inversement
Pour savoir si la sélection est une valeur, utilise if isnumeric(target) then
Et si ce n'est pas un numérique, c'est le nom qui a été sélectionné.
Pour la recherche, utilise find -> F1 😉

 

[Guiv]

Re : Macro qui affiche un nom lorsqu'on tape un numéro dans une case

Bonjour krol50, Epaf,
Un petit essai (sans gestion des erreurs)
Cordialement,
Guiv

 

[Épaf]

Re : Macro qui affiche un nom lorsqu'on tape un numéro dans une case

Hello Guiv,
Juste pour dire, dans ton exemple la macro ne se lance qu'en quittant la cellule 😉 C'est pourquoi que... -> SelectionChange 🙄

pouvoir choisir le nombre et le nom s'affiche automatiquement OU choisir le nom et ... cetera

Bon appétit

 

[mutzik]

Re : Macro qui affiche un nom lorsqu'on tape un numéro dans une case

bonjour,

je vais encore faire mon ch....
et pourquoi pas simplement une formule en recherchev ?

 

[tototiti2008]

Re : Macro qui affiche un nom lorsqu'on tape un numéro dans une case

Bonjour à tous,

et pourquoi pas simplement une formule en recherchev

Un soutien pour mutzik 😉
Pourquoi réinventer la roue ?

 

[Guiv]

Re : Macro qui affiche un nom lorsqu'on tape un numéro dans une case

Re,

Pourquoi réinventer la roue ?

Moi, ça me fait pratiquer, et donc apprendre. Par exemple là, je me suis bien amusé à trouver quand il fallait désactiver les évènements et les réactiver pour que ça fonctionne sans tourner en rond.
Ceci dit, je ne sais pas au juste ce que notre ami krol50 cherche à faire, alors...
S'il veut vraiment que le résultat s'affiche dans la cellule où il saisit, je ne vois pas comment faire par formule?
Cordialement,
Guiv

 

[job75]

Re : Macro qui affiche un nom lorsqu'on tape un numéro dans une case

Bonjour le fil,

Comme tototiti, je soutiens mutzik : pas besoin de macro a priori 😉

Dans le fichier joint, cette petite formule en E5 :

=SI(SOMMEPROD(1*(BASE!A2:B10=D5));SI(ESTNUM(D5);RECHERCHEV(D5;BASE!A2:B10;2;0);INDEX(BASE!A2:A10;EQUIV(D5;BASE!B2:B10;0)));"")

A+

 

[job75]

Re : Macro qui affiche un nom lorsqu'on tape un numéro dans une case

Re,

S'il veut vraiment que le résultat s'affiche dans la cellule où il saisit, je ne vois pas comment faire par formule?

Oui alors là il faut bien une macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D5]) Is Nothing Then Exit Sub
Application.EnableEvents = False
[D5] = Evaluate("IF(SUMPRODUCT(1*(BASE!A2:B10=D5)),IF(ISNUMBER(D5),VLOOKUP(D5,BASE!A2:B10,2,0),INDEX(BASE!A2:A10,MATCH(D5,BASE!B2:B10,0))),"""")")
Application.EnableEvents = True
End Sub

La macro évalue la même formule que celle que j'ai utilisée précédemment.

A+

 

[tototiti2008]

Re : Macro qui affiche un nom lorsqu'on tape un numéro dans une case

Re, Bonjour job75,

OK, si c'est dans la même cellule... je m'incline 😉