Fonction ou macro VBA Excel lancée par clic
Résolu/Fermé
The Pep
Messages postés
1709
Date d'inscription
jeudi 3 décembre 2009
Statut
Membre
Dernière intervention
21 septembre 2013
-
26 sept. 2012 à 14:47
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 26 sept. 2012 à 17:05
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 26 sept. 2012 à 17:05
A voir également:
- Fonction ou macro VBA Excel lancée par clic
- Fonction si et excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Excel trier par ordre croissant chiffre - Guide
- Fonction moyenne excel - Guide
12 réponses
f894009
Messages postés
17229
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 janvier 2025
1 712
26 sept. 2012 à 14:57
26 sept. 2012 à 14:57
Bonjour,
Code a mettre dans le VBA de votre feuille
Ouvrir VBA par Alt+F11
doubleclick sur la feuille desiree
click dans fenetre a droite
Des que cliquer sur une cellule de votre zone A2:D40 sa valeur est copiee dans J30
Bonne suite
Code a mettre dans le VBA de votre feuille
Ouvrir VBA par Alt+F11
doubleclick sur la feuille desiree
click dans fenetre a droite
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("A2:D40")) Is Nothing Then Range("J30") = Target End If End Sub
Des que cliquer sur une cellule de votre zone A2:D40 sa valeur est copiee dans J30
Bonne suite
f894009
Messages postés
17229
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 janvier 2025
1 712
26 sept. 2012 à 16:30
26 sept. 2012 à 16:30
Re,
ex:
- sélection de A14; ou B14; ou C14; ou D14
- copie de D14 en J30
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A2:D40")) Is Nothing Then
Range("J30") = Range("D" & Target.Row)
End If
End Sub
A+
ex:
- sélection de A14; ou B14; ou C14; ou D14
- copie de D14 en J30
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A2:D40")) Is Nothing Then
Range("J30") = Range("D" & Target.Row)
End If
End Sub
A+
The Pep
Messages postés
1709
Date d'inscription
jeudi 3 décembre 2009
Statut
Membre
Dernière intervention
21 septembre 2013
575
26 sept. 2012 à 15:47
26 sept. 2012 à 15:47
Merci beaucoup !!
Ça marche très bien !!!
Est-ce qu'il y aurait aussi moyen de récupérer le n° de la ligne et de la colonne sélectionnée ?
J'espère ne pas abuser...
Merci encore
Ça marche très bien !!!
Est-ce qu'il y aurait aussi moyen de récupérer le n° de la ligne et de la colonne sélectionnée ?
J'espère ne pas abuser...
Merci encore
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 311
Modifié par michel_m le 26/09/2012 à 15:54
Modifié par michel_m le 26/09/2012 à 15:54
Bonjour
par une macro événementielle
pour installer
copier cette macrp
clic droit sur le nom d'onglet
visualiser le code
coller
Michel
par une macro événementielle
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A2:D40")) Is Nothing Then Range("F30") = Target End Sub
pour installer
copier cette macrp
clic droit sur le nom d'onglet
visualiser le code
coller
Michel
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 311
26 sept. 2012 à 15:55
26 sept. 2012 à 15:55
excusez moi, je n'avais pas rafraichi !
f894009
Messages postés
17229
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 janvier 2025
1 712
26 sept. 2012 à 16:09
26 sept. 2012 à 16:09
Bonjour michel_m
ca plane?
ca plane?
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 311
26 sept. 2012 à 17:05
26 sept. 2012 à 17:05
que veux tu, je n'ai pas ta rapidité proverviable !
:-)
:-)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
f894009
Messages postés
17229
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 janvier 2025
1 712
26 sept. 2012 à 15:57
26 sept. 2012 à 15:57
Re,
Est-ce qu'il y aurait aussi moyen de récupérer le n° de la ligne et de la colonne sélectionnée ?
Et je met cela ou??
Est-ce qu'il y aurait aussi moyen de récupérer le n° de la ligne et de la colonne sélectionnée ?
Et je met cela ou??
The Pep
Messages postés
1709
Date d'inscription
jeudi 3 décembre 2009
Statut
Membre
Dernière intervention
21 septembre 2013
575
26 sept. 2012 à 16:01
26 sept. 2012 à 16:01
Merci mais je crois voir la même macro que tout-à l'heure.
Ce que je voudrais, c'est extrapoler et récupérer simplement le n° de la ligne et copier la cellule "D" & n° de ligne.
Ce que je voudrais, c'est extrapoler et récupérer simplement le n° de la ligne et copier la cellule "D" & n° de ligne.
The Pep
Messages postés
1709
Date d'inscription
jeudi 3 décembre 2009
Statut
Membre
Dernière intervention
21 septembre 2013
575
26 sept. 2012 à 16:06
26 sept. 2012 à 16:06
alors, je voudrais, en cliquant entre A2 et D40, copier en J30 la bonne ligne mais avec toujours la colonne D
f894009
Messages postés
17229
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 janvier 2025
1 712
26 sept. 2012 à 16:06
26 sept. 2012 à 16:06
Re,
Bonne suite
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("A2:D40")) Is Nothing Then Range("J30") = Target Range("D" & Target.Row) = Target.Row Colonne = Target.Column End If End Sub
Bonne suite
The Pep
Messages postés
1709
Date d'inscription
jeudi 3 décembre 2009
Statut
Membre
Dernière intervention
21 septembre 2013
575
Modifié par The Pep le 26/09/2012 à 16:18
Modifié par The Pep le 26/09/2012 à 16:18
alors là, ça me copie bien la colonne D + n° de ligne en J30, mais après, ça me met "0 " + n° de ligne dans ma cellule D + n° de ligne
Ex. de ce que je voudrais:
- sélection de A14; ou B14; ou C14; ou D14
- copie de D14 en J30
Ex. de ce que je voudrais:
- sélection de A14; ou B14; ou C14; ou D14
- copie de D14 en J30
f894009
Messages postés
17229
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 janvier 2025
1 712
26 sept. 2012 à 16:20
26 sept. 2012 à 16:20
Re,
Ce n'est pas ce que vous avez demander au depart!!!!!!!!!
Ce n'est pas ce que vous avez demander au depart!!!!!!!!!
The Pep
Messages postés
1709
Date d'inscription
jeudi 3 décembre 2009
Statut
Membre
Dernière intervention
21 septembre 2013
575
26 sept. 2012 à 16:26
26 sept. 2012 à 16:26
oui pardon, je n'ai pas été assez précis, c'est vrai que ça me semblait évident, mais ça ne l'était pas forcément
The Pep
Messages postés
1709
Date d'inscription
jeudi 3 décembre 2009
Statut
Membre
Dernière intervention
21 septembre 2013
575
26 sept. 2012 à 16:36
26 sept. 2012 à 16:36
Merci beaucoup, ça marche !!!
en attendant les réponses, j'essayais de faire marcher ça, et je commençais un peu à m'approcher de votre dernière formule.
Excusez-moi encore pour ce manque de précision, et encore merci (à vous 2).
en attendant les réponses, j'essayais de faire marcher ça, et je commençais un peu à m'approcher de votre dernière formule.
Excusez-moi encore pour ce manque de précision, et encore merci (à vous 2).