Formule pour rechercher et transporter

Bonjour,

Dans ces cas la, on joint un fichier .....

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

Crdmt

Bonjour

Avec un fichier cela serait plus facile de vous aider

Voir la fonction EQUIV ()

le résultat est le numéro de ligne par rapport au début de la liste, il faut apporter une correction si vous ne partez pas du haut de la feuille en mettant à la suite de la fonction + la valeur du nombre de ligne au-dessus de la liste.
Puis utiliser la fonction ADRESSE pour définir la ligne avec EQUIV; colonne compter par rapport à la colonne A;choisir les autres paramètres, et finir avec le mon du fichier entre "guillemets"
regarder le résultat vous avez une adresse de cellule dans le fichier.
Utiliser la fonction INDIRECT() qui viens encadrer la fonction adresse, après la parenthèse de fermeture mettre ;1)
La cellule affiche le contenu de la cellule se trouvant dans l'autre classeur

exemple de formule

=INDIRECT(ADRESSE(EQUIV(Q4;$Q$4:$Q$15;0)+6;21;3;1;"feuil2");1)

C'est en forgeant que l'on devient forgeron. -  C'est au pied du mur que l'on voit le maçon - on apprend toujours de ses erreurs

Bonjour sebast4488

Votre fichier modifié

http://www.cjoint.com/c/FDdiQHpsZJx

Bonjour Philou

Il y a un problème.

Si je rentre par exemple

Catherine mais avec d'autres types de données.

Catherine Houle DPA 3456

Dans les tableaux, les anciennes données disparaisses et même pour Jérôme, ya plus rien??

Merci

Bonjour

Le fichier modifié

http://www.cjoint.com/c/FDeg03TCrbx

Bonjour

Ci joint proposition pas macro

L'inscription dans la feuille "tableau" et dans la feuille "nom" se fait à la volée en partant d'une liste vide
Si ca te convient, on pourra alors tester si le nom existe déjà et sinon on créera la feuille
http://www.cjoint.com/c/FDehlAmYdJt

le code proposé (module1)

Option Explicit
'------------------------
Sub incorporer()
Dim Nom As String, prenom As String, Societe As String, Adresse

Application.ScreenUpdating = False
With Sheets("saisie")
    Nom = .Range("C3")
    prenom = .Range("C5")
    Societe = .Range("C7")
    Adresse = .Range("C9")
End With
With Sheets("Tableau ")
    .Rows(2).Insert
    .Range("A2") = Nom
    .Range("B2") = prenom
    .Range("C2") = Societe
    .Range("D2") = Adresse
End With

 repartir Nom, prenom, Societe, Adresse
End Sub
'--------------------------------------
Sub repartir(Nom, prenom, Societe, Adresse)

With Sheets(Nom)
    .Rows(2).Insert
    .Range("A2") = Nom
    .Range("B2") = prenom
    .Range("C2") = Societe
    .Range("D2") = Adresse
End With
End Sub

remarque: pourquoi inserer une ligne2 plutôt que d'aller à la 1° ligne vide ?

bonjour,

la macro est dans le module1
pour accéder aux codes alt+F11

http://www.cjoint.com/c/FDflTOtLHUt

il est anormal que tes formules indiquées dans les feuilles Catherine et Jérôme soient cotées #NA; tu dois toujours prendre en compte la possibilité d'une erreur...
Comme il est certain que tu n'auras pas que ces 2 noms, le passage par macro évite d'avoir à copier-coller bêtement sur chaque nouveau nom

mais malheureusement, ma proposition de prendre en compte par macro le ou les nouveaux noms ne semble pas t'avoir intéressé, je n'ai pas rectifié le code

Bonjour

Le fichier avec la macro de michel_m indéxé au bouton enregistrer

http://www.cjoint.com/c/FDfopxYQhsx

Philou:
j'avais marqué
la macro est dans le module1
pour accéder aux codes alt+F11


DE QUOI JE ME MELE !!!
--
 Michel

bonjour

ci joint classeur avec prise en compte de nouveaux noms

http://www.cjoint.com/c/FDgg63CaqPt