Obtenir un resultat dans une cellule juste en la selectionnant

Résolu/Fermé
jo810000 Messages postés 2 Date d'inscription dimanche 15 février 2015 Statut Membre Dernière intervention 22 mars 2015 - 22 mars 2015 à 15:25
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 - 22 mars 2015 à 20:58
Bonjour, pourriez vous m'aider a résoudre ce problème.

j'ai dans Excel 2013 une colonne en CU12:CU51;
la première cellule CU12 contient le chiffre 1,
la deuxième cellule CU13 contient le chiffre 2 etc jusque CU51 qui contient le chiffre 40
je voudrais savoir si il est possible, juste en sélectionnant (d'un clic)n'importe quelle cellule dans la colonne CU12:CU51,avoir par exemple :
en une seule autre cellule (dans mon cas DP 2)
pour la cellule CU12(contenant le chiffre 1),se retrouver avec la transformation suivante
=EC1pour le choix de la sélection 1(cellule CU12)
=EC2pour le choix de la sélection 2(cellule CU13
etc
si ce système est réalisable cela va me permettre de réaliser a partir de ce rendu des macros qui vont me faire gagner un temps considérable par rapport a ma version Manuelle
pour le moment je me contente de mettre manuellement dans la case DP2,=EC1ou EC2etc..
il me faut savoir si
il existe une solution pour associer les chiffres en colonne CU aux cellules EC;et savoir si seulement avec un clic sur la sélection choisie en CU,il est possible ou non d'avoir la transformation réalisée en cellule DP???
attention je ne connais rien en programmation, j'ai toujours fait mes classeurs en me servant de ma pratique et du bon sens ;mais la je pense que cela dépasse mes compétences et mon savoir
Merci de votre Aide

2 réponses

Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
Modifié par Mike-31 le 22/03/2015 à 16:01
Bonjour,

Tes explications complexes ne sont pas très claire, va à l'essentiel, si tu sélectionne la cellule CU12 qui contient la valeur 1 que faut il faire
ou explique simplement, je clique sur la cellule x et je souhaite avoir tel résultat

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
0
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
22 mars 2015 à 20:58
Bonjour jo810000,
bonjour Mike-31, le forum,

Tu peux tester ce code après l'avoir placé dans le module de la feuille concernée.
La copie s'effectue après double-clic sur la cellule de la colonne CU.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("CU12:CU51")) Is Nothing Then
Cancel = True
Cells(2, 120) = Target.Offset(-11, 34)
End If
End Sub


A+
0