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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
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
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" a écrit dans le message de news:
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
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" <dobidon@orange.fr> a écrit dans le message de news:
u6UpGUCJKHA.4440@TK2MSFTNGP04.phx.gbl...
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
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" a écrit dans le message de news:
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 23/08/2009 21:19, Jacky a écrit : bonsoir et merci mais il ne se passe rien. desolé mais pas désespéré lol
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