Bonjour à tous,
Je ne sais vraiment rien faire sous VBA mais j'ai essayé de me casser la tête pour commencer quelque chose...
Et je ne vous cacherez pas que je me suis largement inspiré de ce que j'ai pu trouvé en essayant de comprendre un minimum !
mais j'ai du mal ... la preuve en est , je suis un peu coincé pour la suite.....
(cf fichier joint)
Ma macro est :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim wsCopy As Worksheet
Dim rngCopy As Range
Dim wsPaste As Worksheet
Dim rngPaste As Range
If Target.Column = 6 Then
If Target.Value = "1" Then
Set wsCopy = ActiveSheet
Set wsPaste = ActiveWorkbook.Worksheets("Ventes")
Set rngCopy = wsCopy.Range("a" & Target.Row & ":i" & Target.Row)
rngCopy.Select
Set rngPaste = wsPaste.Range("b" & wsPaste.Range("b" & Rows.Count).End(xlUp).Row + 1)
rngCopy.Copy
rngPaste.PasteSpecial
Application.CutCopyMode = False
Set rngCopy = Nothing
Set rngPaste = Nothing
Set wsCopy = Nothing
Set wsPaste = Nothing
End If
End If
End Sub
Le problème c'est que la macro me copie les 9 premières cellules de la ligne modifiée (la modif consiste à mettre un 1 en colonne 6)
J'aimerai qu'elle ne me copie que les 8 premières cellules de la ligne.
De plus je voudrai aussi que ça marche pour n'importe quel chiffre ! (une solution pourrait etre de copier la macro pour chaque chiffre mais c'est pas très propre !)
Enfin la ligne est collée dans la cellule B de la dernière ligne libre de la feuille "ventes" et j'aimerai que la date du jour soit indiquée en meme temps dans la cellule A de cette même dernière ligne.
Pouvez vous m'aider ?
Merki !!!!