Sujet Précédent Sujet Suivant

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
Bonjour,

J'ai un petit problème qui est peut-être simple, mais que je n'arrive pas à solutionner:

Je voudrais copier, en cliquant dessus, le contenu d'une cellule dans une autre cellule.

au cas où, la zone de sélection serait dans la plage "A2:D40",
et le résultat à copier en "J30"

Je voudrais savoir s'il est possible de faire ça avec une simple fonction.
Sinon, en lançant une macro...


Je vous remercie d'avance pour votre aide.


A voir également:

12 réponses

Réponse 1 / 12
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
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 

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
1
Réponse 2 / 12
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
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+
1
Réponse 3 / 12
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
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
0
Réponse 4 / 12
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 26/09/2012 à 15:54
Bonjour
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
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
26 sept. 2012 à 15:55
excusez moi, je n'avais pas rafraichi !
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
26 sept. 2012 à 16:09
Bonjour michel_m
ca plane?
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
26 sept. 2012 à 17:05
que veux tu, je n'ai pas ta rapidité proverviable !
:-)
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 12
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
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??
0
Réponse 6 / 12
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
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.
0
Réponse 7 / 12
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
alors, je voudrais, en cliquant entre A2 et D40, copier en J30 la bonne ligne mais avec toujours la colonne D
0
Réponse 8 / 12
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
26 sept. 2012 à 16:06
Re, 

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
0
Réponse 9 / 12
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
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
0
Réponse 10 / 12
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
26 sept. 2012 à 16:20
Re,
Ce n'est pas ce que vous avez demander au depart!!!!!!!!!
0
Réponse 11 / 12
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
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
0
Réponse 12 / 12
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
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).
0

Discussions similaires

Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

0 réponse