Macro commande...A l'aide SVP

Question

J'ai un fichier avec deux feuilles : Un listing de produits (avec en colonne B: nom, C: prix, D: quantit&#233; etc..) La feuille 2, c'est le suivi des commandes. J'ai donc une macro qui quand je clique dans la colonne A de la ligne 50 par exemple, &#231;a me copie le Nom et le prix dans la Feuille 2 etc.. Par contre, comment faire pour qu'&#224; chaque fois que je clique sur une commande, elle aille s'inscrire sur la derni&#232;re ligne de la feuille 2 
PS joint, un extrait de ma commande
If ActiveCell.Row > 2 And ActiveCell.Column = 1 Then
    Msg = "Ce Personnel a-t-il Fait une Garde ?"
    Style = vbYesNo + vbQuestion + vbDefaultButton1
    Titre = "Bon de Commande"
    Reponse = MsgBox(Msg, Style, Title)
  
        If Reponse = vbYes Then
        CopieCelluleUne = ActiveCell.Rows.Offset(0, 1).Value
        CopieCelluleDeux = ActiveCell.Rows.Offset(0, 2).Value
        DerniereLigne = Sheets("PARAMED MITHA").Cells(2, 2).End(xlDown).Address[javascript:Insert_Emoticon('/imgs2/smile_dissapprove.gif'); ]=la ligne o&#249; &#231;a merde ??

Sheets("PARAMED MITHA").Range(DerniereLigne).Offset(1, 4).Value = CopieCelluleUne
        Sheets("PARAMED MITHA").Range(DerniereLigne).Offset(1, 5).Value = CopieCelluleDeux

End If
End If


End Sub

Merci ++

louisvbfrance · Answer

Quel est le probl&#232;me ? Tu obtient une erreur 
Ca s'affiche pas comme tu le veux ?


Chez moi ton bout de code fonctionne.

Julien

Macro commande...A l'aide SVP

1 réponse

Discussions similaires