Macro renvoi cellule

Résolu/Fermé
Mimouch2 Messages postés 62 Date d'inscription jeudi 18 avril 2013 Statut Membre Dernière intervention 10 septembre 2022 - 24 juin 2015 à 19:16
Mimouch2 Messages postés 62 Date d'inscription jeudi 18 avril 2013 Statut Membre Dernière intervention 10 septembre 2022 - 24 juin 2015 à 23:05
Bonjour,
Dans un tableau excel, je voudrais pouvoir renvoyer dans n'importe quelle cellule active, via une macro simple, la case B de la même ligne (donc colonne "B" fixe, ligne relative, égale à la ligne de la cellule active).
Par exemple, dans G3 : faire venir B3, dans U3 : B3
dans K4 : B4, etc...
Merci d'avance pour votre aide,
Mimouch2

1 réponse

via55 Messages postés 14509 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 2 janvier 2025 2 738
24 juin 2015 à 19:22
Bonsoir

Ok mais comment déterminer que la copie se fera plutôt en U3 qu'en X3 ?
Par un double-clic dans la cellule d'arrivée ?

Cdlmnt
Via

0
Mimouch2 Messages postés 62 Date d'inscription jeudi 18 avril 2013 Statut Membre Dernière intervention 10 septembre 2022
24 juin 2015 à 19:26
Ah, je pensais que si je suis en U3 en déclenchant la macro, la copie se ferait en U3. C'est pas possible ?
0
via55 Messages postés 14509 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 2 janvier 2025 2 738 > Mimouch2 Messages postés 62 Date d'inscription jeudi 18 avril 2013 Statut Membre Dernière intervention 10 septembre 2022
24 juin 2015 à 20:25
C'est possible mais il faut la déclencher en allant dans l'onglet Développeur ou à partir d'un bouton, alors que par simple double-click c'est plus rapide et intuitif
Que préfères-tu ?
0
Mimouch2 Messages postés 62 Date d'inscription jeudi 18 avril 2013 Statut Membre Dernière intervention 10 septembre 2022 > via55 Messages postés 14509 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 2 janvier 2025
24 juin 2015 à 20:53
Oui, par double-click dans chaque cellule où je désire afficher la cellule B de la même ligne, ça doit aller en effet...
0
via55 Messages postés 14509 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 2 janvier 2025 2 738 > Mimouch2 Messages postés 62 Date d'inscription jeudi 18 avril 2013 Statut Membre Dernière intervention 10 septembre 2022
24 juin 2015 à 22:07
OK alors :
1) ALT + F11 pour ouvrir l'éditeur VBA
2) Dans l'arborescence double-cliquer sur la feuille concernée
3) Copier -coller cette macro dans la page blanche et fermer éditeur
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.Value = Range("B" & Target.Row)
End Sub


Cdlmnt
Via
0
Mimouch2 Messages postés 62 Date d'inscription jeudi 18 avril 2013 Statut Membre Dernière intervention 10 septembre 2022 > via55 Messages postés 14509 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 2 janvier 2025
24 juin 2015 à 23:05
Merci, ça marche très bien ! (mais je ne comprends pas pourquoi il faut le mettre en "PrivateSub", alors que j'ai créé d'autres macros en "Sub", qui sont insérées dans des modules et pas directement sur la Feuille).
Il faudrait que je trouve le temps de m'y mettre vraiment un jour !!!
En tous cas, merci pour l'aide.
Cordialement,
Mimouch2
0