OVH Cloud OVH Cloud

comment puis je créer un lien entre une cellule et rechercher?

6 réponses
Avatar
picmin
dans une feuille 1 "saisie", je souhaite rentrer des données :Nom client;
quantité livrée, date de livraison,...
Je veux que ces données aillent dans la feuille correspondante au client
(créée au préalable).
Pour cela, je veux effectuer une macro dans laquelle j'utiliserai rechercher
du mode édition.
Il faudrait que si j'ai le nom Jean dans la feuille 1, je sois envoyer dans
la feuille "Jean" après avoir lancée ma macro. Et ceci pour tous mes clients.

Si quelqu'un a une idée, n'hésitez pas, svp, merci d'avance.

6 réponses

Avatar
papou
Bonjour
Va voir ici pour un début de piste.
http://cjoint.com/data/mAoOvutesh.htm

Cordialement
Pascal

"picmin" a écrit dans le message de news:

dans une feuille 1 "saisie", je souhaite rentrer des données :Nom client;
quantité livrée, date de livraison,...
Je veux que ces données aillent dans la feuille correspondante au client
(créée au préalable).
Pour cela, je veux effectuer une macro dans laquelle j'utiliserai
rechercher
du mode édition.
Il faudrait que si j'ai le nom Jean dans la feuille 1, je sois envoyer
dans
la feuille "Jean" après avoir lancée ma macro. Et ceci pour tous mes
clients.

Si quelqu'un a une idée, n'hésitez pas, svp, merci d'avance.


Avatar
picmin
Salut papou,
ce que tu as fait est exactement ce que je veux, mais pourrez tu m'expliquer
coment tu t'y es pris en détail, stp. J'aimerais bien comprendre ta démarche.
Merci d'avance.


Bonjour
Va voir ici pour un début de piste.
http://cjoint.com/data/mAoOvutesh.htm

Cordialement
Pascal

"picmin" a écrit dans le message de news:

dans une feuille 1 "saisie", je souhaite rentrer des données :Nom client;
quantité livrée, date de livraison,...
Je veux que ces données aillent dans la feuille correspondante au client
(créée au préalable).
Pour cela, je veux effectuer une macro dans laquelle j'utiliserai
rechercher
du mode édition.
Il faudrait que si j'ai le nom Jean dans la feuille 1, je sois envoyer
dans
la feuille "Jean" après avoir lancée ma macro. Et ceci pour tous mes
clients.

Si quelqu'un a une idée, n'hésitez pas, svp, merci d'avance.







Avatar
papou
Re
Avant de me lancer dans l'explication, tu dois corriger une erreur dans le
module Module1 sur la fonction FeuilleExiste.
Tu dois corriger comme ceci :
Function FeuilleExiste(NomFeuille$) As Boolean '**** ICI
On Error Resume Next
FeuilleExiste = Sheets(NomFeuille).Name <> ""
Err.Clear
End Function

Sinon, le principe est simple, mais je te fais une explication pas à pas du
code dans le fichier texte ci-joint :
http://cjoint.com/data/mApYH8aQWy.htm

Cordialement
Pascal

"picmin" a écrit dans le message de news:

Salut papou,
ce que tu as fait est exactement ce que je veux, mais pourrez tu
m'expliquer
coment tu t'y es pris en détail, stp. J'aimerais bien comprendre ta
démarche.
Merci d'avance.


Bonjour
Va voir ici pour un début de piste.
http://cjoint.com/data/mAoOvutesh.htm

Cordialement
Pascal

"picmin" a écrit dans le message de
news:

dans une feuille 1 "saisie", je souhaite rentrer des données :Nom
client;
quantité livrée, date de livraison,...
Je veux que ces données aillent dans la feuille correspondante au
client
(créée au préalable).
Pour cela, je veux effectuer une macro dans laquelle j'utiliserai
rechercher
du mode édition.
Il faudrait que si j'ai le nom Jean dans la feuille 1, je sois envoyer
dans
la feuille "Jean" après avoir lancée ma macro. Et ceci pour tous mes
clients.

Si quelqu'un a une idée, n'hésitez pas, svp, merci d'avance.









Avatar
danielrv
Bonjour picmin, papou, et tous les autres....
Avant tout de joyeuses fêtes de fin d'année...
Papour, c'est vraiment sympa de ta part d'avoir répondu et en plus avoir
donné les explications sur la macro.
Par contre, je me permet d'intervenir, car :
1 si on efface plusieurs ligne d'un coup, la macro bug,
2 lorsque l'on saisit un nom, on se rend bien sur la feuille, mais à la même
ligne que sur la feuille saisie.
Je suis débutant et je n'ai pas trouvé où cela clochait.
En plus, pourrais-tu m'expliquer pourquoi mettre (2) sur cette ligne,
.Range("A" & Range("A65536").End(xlUp)(2).Row).Select: End If
En tout cas, c'est vraiment sympa tout ce qui se fait sur ce forum.
Donc bonnes fêtes à tous (encore...)

A+
Avatar
papou
Bonjour
1 si on efface plusieurs ligne d'un coup, la macro bug,
Normal puiqu'aucun contrôle dans ce sens n'est fait - j'ai quand même

anticipé la suppression de saisie bien que notre ami picmin ne l'ait pas
spécifié dans sa demande d'origine ;-)
Si on veut également empêcher le déclenchement de la procédure
évènementielle sur ce cas de figure, il faut ajouter un contrôle :
If Target.Cells.Count > 1 Then Exit Sub
2 lorsque l'on saisit un nom, on se rend bien sur la feuille, mais à la
même ligne que sur la feuille saisie
Oui je comprend ce que tu veux dire, il faut rectifier comme ceci :

If .Range("A65536").End(xlUp).Row = 1 Then
.Range("A2").Select
En plus, pourrais-tu m'expliquer pourquoi mettre (2) sur cette ligne
.Range("A" & Range("A65536").End(xlUp)(2)
Cette syntaxe permet de faire directement référence à la 1ère cellule non

vide dans la colonne.

Cordialement
Pascal


"danielrv" a écrit dans le message de news:

Bonjour picmin, papou, et tous les autres....
Avant tout de joyeuses fêtes de fin d'année...
Papour, c'est vraiment sympa de ta part d'avoir répondu et en plus avoir
donné les explications sur la macro.
Par contre, je me permet d'intervenir, car :
1 si on efface plusieurs ligne d'un coup, la macro bug,
2 lorsque l'on saisit un nom, on se rend bien sur la feuille, mais à la
même ligne que sur la feuille saisie.
Je suis débutant et je n'ai pas trouvé où cela clochait.
En plus, pourrais-tu m'expliquer pourquoi mettre (2) sur cette ligne,
.Range("A" & Range("A65536").End(xlUp)(2).Row).Select: End If
En tout cas, c'est vraiment sympa tout ce qui se fait sur ce forum.
Donc bonnes fêtes à tous (encore...)

A+



Avatar
danielrv
bonjour,
Merci pour toutes ces explications.
Et surtout passes de bonnes fêtes de fin d'année.

"papou" <cestpasbon@çanonplus> a écrit dans le message de news:

Bonjour
1 si on efface plusieurs ligne d'un coup, la macro bug,
Normal puiqu'aucun contrôle dans ce sens n'est fait - j'ai quand même

anticipé la suppression de saisie bien que notre ami picmin ne l'ait pas
spécifié dans sa demande d'origine ;-)
Si on veut également empêcher le déclenchement de la procédure
évènementielle sur ce cas de figure, il faut ajouter un contrôle :
If Target.Cells.Count > 1 Then Exit Sub
2 lorsque l'on saisit un nom, on se rend bien sur la feuille, mais à la
même ligne que sur la feuille saisie
Oui je comprend ce que tu veux dire, il faut rectifier comme ceci :

If .Range("A65536").End(xlUp).Row = 1 Then
.Range("A2").Select
En plus, pourrais-tu m'expliquer pourquoi mettre (2) sur cette ligne
.Range("A" & Range("A65536").End(xlUp)(2)
Cette syntaxe permet de faire directement référence à la 1ère cellule non

vide dans la colonne.

Cordialement
Pascal


"danielrv" a écrit dans le message de news:

Bonjour picmin, papou, et tous les autres....
Avant tout de joyeuses fêtes de fin d'année...
Papour, c'est vraiment sympa de ta part d'avoir répondu et en plus avoir
donné les explications sur la macro.
Par contre, je me permet d'intervenir, car :
1 si on efface plusieurs ligne d'un coup, la macro bug,
2 lorsque l'on saisit un nom, on se rend bien sur la feuille, mais à la
même ligne que sur la feuille saisie.
Je suis débutant et je n'ai pas trouvé où cela clochait.
En plus, pourrais-tu m'expliquer pourquoi mettre (2) sur cette ligne,
.Range("A" & Range("A65536").End(xlUp)(2).Row).Select: End If
En tout cas, c'est vraiment sympa tout ce qui se fait sur ce forum.
Donc bonnes fêtes à tous (encore...)

A+