comment puis je créer un lien entre une cellule et rechercher?
6 réponses
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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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.
Bonjour
Va voir ici pour un début de piste.
http://cjoint.com/data/mAoOvutesh.htm
Cordialement
Pascal
"picmin" <picmin@discussions.microsoft.com> a écrit dans le message de news:
195B7CAA-359F-45D0-A287-FC6F88C79088@microsoft.com...
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.
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.
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.
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" <picmin@discussions.microsoft.com> a écrit dans le message de news:
195B7CAA-359F-45D0-A287-FC6F88C79088@microsoft.com...
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.
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.
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.
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" <picmin@discussions.microsoft.com> a écrit dans le message de news:
EE301599-6B71-4550-AAE3-EA4C7BD54602@microsoft.com...
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" <picmin@discussions.microsoft.com> a écrit dans le message de
news:
195B7CAA-359F-45D0-A287-FC6F88C79088@microsoft.com...
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.
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.
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+
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...)
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+
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+
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" <dandan@neuf.fr> a écrit dans le message de news:
udkcKbsCGHA.1124@TK2MSFTNGP10.phx.gbl...
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...)
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+
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+
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:
eSe4kF8CGHA.528@TK2MSFTNGP09.phx.gbl...
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" <dandan@neuf.fr> a écrit dans le message de news:
udkcKbsCGHA.1124@TK2MSFTNGP10.phx.gbl...
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...)
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...)