olivemotard
XLDnaute Junior
Bonjour a tous
De retour sur le forum!
Enfin.... J'ai retrouvé un taf alors je me remets a excel
Et j'ai encore besoin de vous
Je souhaite créer quelque chose d'a priori simple, mais j'ai perdu un peu et je dois ecrire ça comme un cochon*
Je souhaite >>
Lorsqu'on double clic dans une cellule, copier la valeure des deux cellules qui se trouvent a droite.
Changer de feuille, coller (collage special valeure) dans la premiere ligne vide.
Et afficher un message de validation.
Voici mon code pour le moment :
Merci d'avance a tous
De retour sur le forum!
Enfin.... J'ai retrouvé un taf alors je me remets a excel
Et j'ai encore besoin de vous
Je souhaite créer quelque chose d'a priori simple, mais j'ai perdu un peu et je dois ecrire ça comme un cochon*
Je souhaite >>
Lorsqu'on double clic dans une cellule, copier la valeure des deux cellules qui se trouvent a droite.
Changer de feuille, coller (collage special valeure) dans la premiere ligne vide.
Et afficher un message de validation.
Voici mon code pour le moment :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'copier la valeure des deux cellules a droite de celle ou on double clic
ActiveCell.Offset(0, 1)&(0, 2).Select.Value
Selection.Copy
Application.ScreenUpdating = False
'coller dans la premiere ligne vide
i = 1
Sheets("Feuil2").Select
While Not Range("A" & i & "").Value = ""
i = i + 1
Wend
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.ScreenUpdating = True
messagebox = "ajouté à la commande"
End Sub
Merci d'avance a tous