XL 2016 Copier coller par double clic, erreur de compilation.

Al1_44 · 26 Mars 2023

Bonjour à tous,

Suite à une transformation d'un code de Phil69970, respect pour la source.
Je fais un double clic dans la colonne "I" je met la date du jour dans la cellule de la colonne "I" sélectionnée,
puis faire un transfert en feuille 2 de la ligne "I" à "AC".
Cela fonctionne avec un commandbutton mais pas avec la fonction double clic qui me renvoie une erreur de compilation?

AL1_44

Phil69970 · 26 Mars 2023

Re

Bien que cela ne serve à rien

Voici la modif

Merci de ton retour

@Phil69970

Al1_44 · 26 Mars 2023

Bonjour Phil9970,

J'ai testé ton code, mais la date ne s'affiche pas dans la case souhaitée.
Je ne sais pas si c'est le changement d'heure ou encore une grosse fatigue... j'ai toujours des soucis d'explications!
Mon souhait serais d'afficher après un double clic dans une cellule de la colonne "i" de la feuille 1, la date du jour, avant que le transfert ne se fasse sur la feuille 2.

Encore merci pour l'utilisation d'une partie de ton code que tu m'avais transmis il y a 15 jours.

TooFatBoy · 26 Mars 2023

Al1_44 à dit:
Mon souhait serais d'afficher après un double clic dans une cellule de la colonne "i" de la feuille 1, la date du jour, avant que le transfert ne se fasse sur la feuille 2.

Ton explication semble claire, on avait bien compris déjà en #1, et je crois que ça fonctionne parfaitement.

Essaye ceci, dans la macro de #14, pour être sûr :

VB:

            Target.Value = Date
            MsgBox (Target.Worksheet.Name & "!" & Target.Address & " = " & Target.Value)

Phil69970 · 26 Mars 2023

Re

Tu es sur de ça ?

Al1_44 à dit:
mais la date ne s'affiche pas dans la case souhaitée.

Car ta demande est :

Al1_44 à dit:
je met la date du jour dans la cellule de la colonne "I" sélectionnée,

Et ma macro donne cela !!!!

Et avec le fichier pour te convaincre .....

@Phil69970

Phil69970 · 26 Mars 2023

Re

Al1_44 à dit:
Mon souhait serais d'afficher après un double clic dans une cellule de la colonne "i" de la feuille 1, la date du jour, avant que le transfert ne se fasse sur la feuille 2.

Pour info

Vu que tu supprimes la ~~feuille~~ edit: la ligne après transfert j’inscris directement la date dans la feuille 2 au bon endroit !

Target.EntireRow.Delete

C'est pas plus simple !

*Merci @TooFatBoy pour m'avoir relut et rectifié !!!

@Phil69970

TooFatBoy · 26 Mars 2023

Phil69970 à dit:
Et ma macro donne cela !!!!

Je crois que c'est dans la colonne I de la source, donc dans la colonne A de la destination qu'il faut mettre la date.

Phil69970 · 26 Mars 2023

Re

TFB
Et bien voici la version corrigée et il aurait le choix entre les 2 versions !!!

@Al1_44

Merci de ton retour

@Phil69970

TooFatBoy · 26 Mars 2023

Phil69970 à dit:
Et bien voici la version corrigée

Moi, ce que je pige pas, c'est que sa macro dans son classeur de #10 me semble fonctionner.

Al1_44 · 26 Mars 2023

A tous,

Ma demande est peut-être futile car la finalité d'avoir la date en colonne A de la feuille 2 me conviens.
Mais ce que j'aurais souhaité (pour le fun):

Merci à tous pour votre aide, et je vous souhaite une excellente semaine.

AL1_44

Phil69970 · 26 Mars 2023

Re

Bien que cela ne serve à rien

Voici la modif

Merci de ton retour

@Phil69970

Al1_44 · 26 Mars 2023

Bonsoir Phil69970,

Merci pour ta patience, car effectivement c'était ridicule de ma part de s'entêter à ce point pour une action qui ne sera même pas détectable.
Merci à tous pour votre aide et votre sollicitude.
Je clos le sujet et vous souhaite une excellente semaine.

Bonsoir le forum.
AL1_44

TooFatBoy · 26 Mars 2023

Al1_44 à dit:
Merci pour ta patience, car effectivement c'était ridicule de ma part de s'entêter à ce point pour une action qui ne sera même pas détectable.

Et qui s'effectue parfaitement en réalité...

XL 2016 Copier coller par double clic, erreur de compilation.

Al1_44

XLDnaute Junior

Pièces jointes

Phil69970

Al1_44

XLDnaute Junior

TooFatBoy

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Pièces jointes

Phil69970

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Al1_44

XLDnaute Junior

Phil69970

XLDnaute Barbatruc

Pièces jointes

Al1_44

XLDnaute Junior

TooFatBoy

XLDnaute Barbatruc

Discussions similaires