Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro + choix avec clique souris

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion nicos3390
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
N

nicos3390

Guest
Bonjour,
j'espère que vous allez pouvoir m'aider.

je développe un outils pour un projet personnel, qui me permet de récupérer des informations dans différentes feuilles et de les coller sur une feuille finale.

pour commencer j'interroge l'utilisateur pour savoir vers quelle feuille il veut aller, une fois sa réponse, la "dite" feuille s'ouvre. (Cette macro, c'est bon, je l'ai faite).
ensuite dans cette feuille, je veux que l'utilisateur choisisse le produit qu'il intéresse en cliquant une fois sur la cellule qu'il veut (par ex C3), et en fonction de ça, je récupère les valeurs qui se trouvent en H3, K3, L3 (par ex).
mais attention c'est conditionné au clic de l'utilisateur, il peut choisir C3 ou C4, C...

Je veux que les valeurs récupérées soient copiées dans la feuille "calcul" en C4, D4, E4

J'espère avoir été clair, merci de votre retour.
Je veux bien sûr que l'utilisateur n'est pas à se servir de son clavier, juste de sa souris.

merci de votre aide
 
Trier par date Trier par votes
Re : Macro + choix avec clique souris

Bonjour à tous,

Peux-tu essayer ceci dans le fichier que tu n'as pas joint....

VB: 
Option Explicit

Private Sub Workbook_Open()
Dim Rep As String
Rep = InputBox("Quelle feuille voulez-vous activer ?", "Choix de la feuille à l'ouverture", "F2")
Sheets(Rep).Activate
End Sub


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "Calcul" Then Exit Sub
If Target.Column <> 3 Then Exit Sub
Target.Offset(, 5).Copy Sheets("Calcul").Cells(4, 3)
Target.Offset(, 8).Copy Sheets("Calcul").Cells(4, 4)
Target.Offset(, 9).Copy Sheets("Calcul").Cells(4, 5)
End Sub

A + à tous
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro + choix avec clique souris

Bonjour,
merci de votre retour.
je vous joins en effet le fichier.
je ne parviens pas avec votre formule à répondre à mon attente.

dans la pièce jointe, vous trouverez 6 onglets, un menu, 4 onglets données, 1 onglet calcul
je souhaite qu'en partant du menu, et en cliquant sur le bouton calcul, on puisse choisir 1 des 4 onglets. une fois dans cet onglet, on choisisse en cliquant un produit. en cliquant sur ce produit, je souhaite que 3 informations se reportent sur l'onglet calcul dans le colonne adéquat.


merci de votre aide.

Nicolas
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Macro + choix avec clique souris

Merci, vous avez compris malgrè mes explications confuses.

ceci étant, je préfèrerai rester sous l'utilisation de macro, est-il possible d'avoir la même chose en passant par les macros?

a+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

M
  • Question Question
XL 2013 Envoyer un mail automatique avec le contenu de la bonne ligne
Réponses
2
Affichages
1 K
Oneida
M
  • Résolu(e)
Microsoft 365 enregistrement copie du classeur ouvert avec mot de passe et incrémentation
2
Réponses
27
Affichages
2 K
meyscal
M
N
  • Question Question
Microsoft 365 clignotement d'une cellule avec une Macro
Réponses
2
Affichages
980
NormL
N
G
  • Question Question
XL 2013 Macro avec nom de fichier et de feuille modifiable
Réponses
3
Affichages
1 K
sylvanu
S
  • Question Question
XL 2016 VBA Recopie de valeurs de cellules d'une feuille vers une autre à la suite
Réponses
5
Affichages
2 K
safranien
S
D
  • Question Question
XL 2016 Suppression d'une valeur d'une cellule par comparaison avec une autre (entre 2 colonnes)
Réponses
8
Affichages
3 K
didcac
D
T
  • Question Question
XL 2016 Fonction Si avec avec affichage au non selon la valeur
Réponses
4
Affichages
885
_Thierry
S
  • Question Question
XL 2010 Comment relier le résultat d'une cellule avec une autre d'une autre feuille
Réponses
12
Affichages
2 K
slimpy
S
B
  • Résolu(e)
XL pour MAC Simplifier une formule et la recopier
Réponses
11
Affichages
2 K
Baldu
B
R
  • Question Question
Liste déroulante avec bornes variables
Réponses
7
Affichages
2 K
Raka
R
B
  • Résolu(e)
XL 2013 Macro pour ajouter des données dans un tableau
Réponses
11
Affichages
7 K
Dranreb
C
  • Question Question
XL 2010 PROCÉDURE TROP GRANDE
2 3
Réponses
38
Affichages
4 K
CHARRIER
C
A
  • Question Question
XL 2010 dessiner avec VBA sous excel 2010
2
Réponses
24
Affichages
6 K
artlight
A
Y
  • Question Question
XL 2016 Help : Macro filtrage multicritères sur des lignes
Réponses
11
Affichages
3 K
ynx69
Y
  • Question Question
Autres Permettre à une macro définie avec une bibliothèque d'objet récente de tourner avec une bibliothèque d'objets antérieure
Réponses
3
Affichages
2 K
Hasco
K
  • Question Question
Macro copier coller valeurs n lignes
Réponses
4
Affichages
2 K
KL2EM
K
M
  • Question Question
XL 2010 Macro Synthèse Excel Vba
Réponses
0
Affichages
1 K
Mirguy23
M
X
  • Question Question
XL 2010 inputbox avec liste obligatoire
Réponses
3
Affichages
2 K
xaviermagdelaine
X
S
  • Question Question
copier/coller dans une autre feuille avec décalage si la cellule est pleine macro
Réponses
4
Affichages
2 K
Papou-net
Y
  • Question Question
XL 2013 recherchev avec 2 valeurs cherchées
Réponses
2
Affichages
1 K
yerochewski
Y
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…