clic droit et copie dans une cellule

Le
Dominique
bonjour,
quelqu'un pourrait il m aider?
dans la même feuille
es t il possible lors d un clic droit sur une cellule de A15 à la
derniere cellule vide, faire une copie du contenu dans la cellule A12

merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Dominique
Le #19976841
Le 23/08/2009 20:39, Dominique a écrit : ca ne marche pas


j'ai fait ca car je voudrait que la cellule cliqué copie aussi
correspondant a la ligne d en M9
voici mon debut de code ca marche pour la copie M8 mais pour M9 ca ne
marche pas


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)

Dim Plage As Range

With Sheets("Faisan")
Set Plage = .Range("A15:A" & .Range("A65536").End(xlUp).Row)

End With
For Each cell In Plage
Selection.Copy
Range("M8").Select
ActiveSheet.Paste
Cells(Plage, 4).Select
Selection.Copy
Range("M9").Select
ActiveSheet.Paste
Next
End Sub
Jacky
Le #19976921
Bonsoir,
Essaie ceci
A mettre dans le module de la feuille en question
'---------------
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target, Range("a15:a" & Cells(Rows.Count, 1).End(3).Row))
Is Nothing And Target.Count = 1 Then
Cancel = True
[a12] = Target
[m9] = Cells(Target.Row, 4)
End If
End Sub

--
Salutations
JJ


"Dominique"
Le 23/08/2009 20:39, Dominique a écrit : ca ne marche pas


j'ai fait ca car je voudrait que la cellule cliqué copie aussi
correspondant a la ligne d en M9
voici mon debut de code ca marche pour la copie M8 mais pour M9 ca ne
marche pas


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)

Dim Plage As Range

With Sheets("Faisan")
Set Plage = .Range("A15:A" & .Range("A65536").End(xlUp).Row)

End With
For Each cell In Plage
Selection.Copy
Range("M8").Select
ActiveSheet.Paste
Cells(Plage, 4).Select
Selection.Copy
Range("M9").Select
ActiveSheet.Paste
Next
End Sub


Dominique
Le #19976961
Le 23/08/2009 21:19, Jacky a écrit :
bonsoir et merci mais
il ne se passe rien.
desolé mais pas désespéré lol
Jacky
Le #19976951
Re...
http://www.cijoint.fr/cjlink.php?file=cj200908/cijkcuvjgb.xls

--
Salutations
JJ


"Dominique" %
Le 23/08/2009 21:19, Jacky a écrit :
bonsoir et merci mais
il ne se passe rien.
desolé mais pas désespéré lol



Dominique
Le #19977081
Le 23/08/2009 21:42, Jacky a écrit :
Re...
http://www.cijoint.fr/cjlink.php?file=cj200908/cijkcuvjgb.xls



je te remercie beaucoup ca marche
bonne soirée
Jacky
Le #19977071
Re...
Les 2 modules présent dans VBAProjet sont des résidus d'essai pour un autre
classeur et peuvent / doivent être supprimer.

--
Salutations
JJ


"Jacky"
Re...
http://www.cijoint.fr/cjlink.php?file=cj200908/cijkcuvjgb.xls

--
Salutations
JJ


"Dominique" %
Le 23/08/2009 21:19, Jacky a écrit :
bonsoir et merci mais
il ne se passe rien.
desolé mais pas désespéré lol








Publicité
Poster une réponse
Anonyme