Double clic envoie information

Re : Double clic envoie information

Rebonjour tout le monde,

J'avance sur ma demande.
Grace à un code donné par Porcinet sur un autre fil Lien supprimé

Quand dans ma feuille 2 en colonne A je sélectionne "Forme", ça m'ouvre ma feuille 1 "FORMES".

"Reste" à voir : (J'étais sur la feuille "COMMANDE", cellule A13 : sélection dans ma liste du mot "Forme", je suis donc maintenant sur la feuille "FORMES".) Quand je fais mon double clic sur un dessin qui se trouve en E6, les infos de E6 doivent se positionner sur la feuille "COMMANDE" mais sur la ligne sélectionnée : soit G13 pour la valeur, et B13 pour le commentaire.

Je remercie Porcinet pour son code qui me fait bien avancer.

Amicalement
Feutrine

Re : Double clic envoie information

Bonjour Feutrine,

Regarde le fichier joint.

Sur la feuille 1, le doubleclick n'est actif que sur la cellule E6, si tu as d'autres dessins il faudra modifier la plage. j'ai laissé en vert les deux lignes que tu devras modifier pour cela ( set plg = Range("A1..... et la ligne du dessous )
il faudra alors supprimer la ligne concernant E6.

Voilà, Bonne Journée

P.O

Re : Double clic envoie information

BQTR tu es tout simplement génial !

Je vois que tu as parfaitement compris ce que j'attendais, mais je vais abuser car je n'arrive pas à comprendre comment modifier ton code.

Ma plage feuille1 est : A4:I17 (I comme Isidore)

Aurais-tu la gentillesse de me modifier le code STP car à un moment il y a E65536 et je ne sais pas par quoi le remplacer.

En tout cas, CHAPEAU BAS !

Avec tous mes remerciements,
Feutrine

Re : Double clic envoie information

Re,

La procédure de la feuille 1 avec ta plage A4:I17 :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim x
Dim y
If Not Application.Intersect(Target, Range("A4:I17")) Is Nothing Then
On Error Resume Next ' nécessaire car s'il n y a pas de commentaire dans la cellule, provoque une erreur
x = ActiveCell.Value
y = ActiveCell.Comment.Text
Sheets("Feuil2").z.Offset(0, 1) = y
Sheets("Feuil2").z.Offset(0, 6) = x
Sheets("Feuil2").Activate
End If
End Sub


Merci

A+

P.O

Re : Double clic envoie information

Un immense merci car c'est exactement ce que je désirais.

Très bon week-end à tous