Macro/excel pour la modification de feuilles

Bonjour

Par souci de santé publique... ;-)
essaies cette macro à copier dans le module "thisworkbook" de l'éditeur VBA

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Range("A1:A10000")) Is Nothing Then Exit Sub
Application.EnableEvents = False
With Sheets("ventes")
    .Rows(.Range("A65536").End(xlUp).Row + 1) = Rows(Target.Row).Value
End With
With Sheets("stocks")
    .Rows(.Columns(1).Find(Target.Value, .Range("A65536"), xlValues).Row).Delete
End With
lig = Target.Row
cellule = Array(3, 4, 6, 7, 9, 10, 12, 13, 15, 16, 18, 19, 21)
For cptr = 0 To UBound(cellule)
    Cells(lig, cellule(cptr)).ClearContents
Next
Rows(lig).Interior.ColorIndex = 15
Application.EnableEvents = True
End Sub

Re,

Y' a pas à avoir honte! les forums aident justement à mutualiser les connaissances

D'autant plus que j'avais pris l'événement "change" au lieu de "selectionchange": Ca ne risquait pas de marcher en cliquant sur la colonne A!... (c'est moi qui devrait avoir honte! :-)...) j'en ai profité pour éviter le B... quand on clique dans les feuilles "ventes" et "stocks" (re-honte)
Je te donnerai tout ca demain

Tout compte fait voila la b^te:
rassure-toi, ce n'était pas si évident que ça avec des pièges (chuis tombé dedans, of course)...

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'si on sélectionne hors A1:10000 ou si la feuille active est "ventes" ou "stoks" :sortie de la macro
If Intersect(Target, Range("A1:A10000")) Is Nothing _
Or ActiveSheet.Name = "ventes" Or ActiveSheet.Name = "stocks" Then Exit Sub

'détruit dans la feuille la ligne correspondant à la valeur sélectionnée en feuille active
With Sheets("stocks")
    On Error GoTo erreur:
    .Rows(.Columns(1).Find(Target.Value, .Range("A65536"), xlValues).Row).Delete
End With

'report dans la 1° ligne vide de "ventes"  des valeurs de la ligne sélectionnée dans feuille active
With Sheets("ventes")
    .Rows(.Range("A65536").End(xlUp).Row + 1) = Rows(Target.Row).Value
End With

'ligne de la sélection feuille active
lig = Target.Row
'tableau des num de colonnes à effacer
cellule = Array(3, 4, 6, 7, 9, 10, 12, 13, 15, 16, 18, 19, 21)
'boucle sur le tableau en effacant le contenu
For cptr = 0 To UBound(cellule)
    Cells(lig, cellule(cptr)).ClearContents
Next
'colorie la ligne en gris
Rows(lig).Interior.ColorIndex = 15
Exit Sub

erreur:
MsgBox Target & " inconnu dans les stocks"
End Sub

Salut Michel
Merci encore de prendre sur ton temps pour m'aider. Pourrais-tu me dire comment enregistrer cette macro et la faire fonctionner à partir du moment ou je l'ai copiée dans le module "thisworkbook" de l'éditeur VBA.
Merci aussi pour ta patience, je ne voudrais pas trop en abuser.

Rebonjour
Je viens de copier comme ci-dessous, la macro dans un module (méthode de la découverte). Cependant quand je l'exécute, un message d'erreur apparaît qui parle d'erreur de syntaxe sur la ligne :
SheetSelectionChange (ByVal Sh As Object, ByVal Target As Range)
C'est grave docteur ?

Sub Nouvelle_Macro()
SheetSelectionChange (ByVal Sh As Object, ByVal Target As Range)

'si on sélectionne hors A1:10000 ou si la feuille active est "ventes" ou "stok" :sortie de la macro
If Intersect(Target, Range("A1:A10000")) Is Nothing _
Or ActiveSheet.Name = "ventes" Or ActiveSheet.Name = "stock" Then Exit Sub

'détruit dans la feuille la ligne correspondant à la valeur sélectionnée en feuille active
With Sheets("stock")
On Error GoTo erreur:
.Rows(.Columns(1).Find(Target.Value, .Range("A65536"), xlValues).Row).Delete
End With

'report dans la 1° ligne vide de "ventes" des valeurs de la ligne sélectionnée dans feuille active
With Sheets("ventes")
.Rows(.Range("A65536").End(xlUp).Row + 1) = Rows(Target.Row).Value
End With

'ligne de la sélection feuille active
lig = Target.Row
'tableau des num de colonnes à effacer
cellule = Array(3, 4, 6, 7, 9, 10, 12, 13, 15, 16, 18, 19, 21)
'boucle sur le tableau en effacant le contenu
For cptr = 0 To UBound(cellule)
Cells(lig, cellule(cptr)).ClearContents
Next
'colorie la ligne en gris
Rows(lig).Interior.ColorIndex = 15
Exit Sub

erreur:
MsgBox Target & " inconnu dans le stock"
End Sub

Ta méthode "la découverte" a tout fait foiré
wokrbook selection change est un événement qui déclenche une macro sur tout le classeur(workbook) lorsqu'on clique sur une cellule( selectionchange)
la macro se lance par
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) macro installé dans le module workbook

su tu veux voir ce qui se passe tu cliques sur la 1° ligne if intersect...et tu mets un point d'arr^t par F9

--

Bien vu. Je viens de remettre la macro comme tu l'avais créee et elle fonctionne à merveille. C'est beau et je suis très impressionné.
Toutefois, j'ai un petit pb. En effet, la macro ne doit pas se déclencher lorsque je clique sur une cellule car je rajoute du matériels (1 par ligne) dans les différentes feuilles. Pour ce faire, je dois donc cliquer sur une cellule de la colonne A pour entrer la référence (texte) de ce matériel.
Il faudrait que je puisse déclencher la macro par un "Ctrl+V" par exemple, après avoir sélectionner un matériel en cliquant sur la référence, cellule A, de la ligne.
C'est pour ça que je souhaitait créer un module comme ceux que l'on crée en utilisant la fonction "nouvelle macro" et en lui affectant un raccourci.
J'ai conscience de ne pas être suffisamment clair et je ne voudrais pas que, par ma faute, tu devienne comme moi, accro à l'aspirine....
Encore un grand merci