Obtenir un resultat dans une cellule juste en la selectionnant [Résolu/Fermé]

Signaler
Messages postés
2
Date d'inscription
dimanche 15 février 2015
Statut
Membre
Dernière intervention
22 mars 2015
-
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
-
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

Messages postés
17289
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
22 octobre 2020
4 301
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.
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
491
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+