Macro decaller colonne vers le bas et ajouter cellule

Question

Je ne suis pas experte du tout en macros ! alors je sollicite votre aide ! j'ai un problème avec un macro voir ci-dessous il s'agit d'un tableur de suivi de consommables avec 3 feuilles feuille 1 = mouvement de stock (permet de créer, entrer et sortir mes consommables) feuille 2 = liste des consommables ( les lignes s'ajoutent au fur et à mesure des créations et le stock se modifie suivant les entrées et sorties) feuille 3 = data (me sert uniquement de base) Mon problème vient du fait de la création d'un nouveau consommable : le filon est le suivant : création du consommable dans feuille 1, la ligne se crée dans feuille 2, et les donnes sont renvoyés dans la feuille 3 (colonne A = production, colonne B ensachage, .... colonne D secteur mon macro identifie bien le secteur mais lors du renvoie du consommable dans la colonne soit A soit B soit C ...Il l'envoie bien dans la bonne colonne mais me le copie jusqu'en bas de la feuille. Ce que je souhaiterais c'est qu'il le copie dans le bon secteur mais une seule fois à partir de la ligne 2 sans me rajouter des lignes car il me crée de nouvelles lignes par moment et donc me décale tout le reste. Je vous joint un petit visuel du tableur mais pas l'original car je ne l'ai pas sur cet ordi ! Voici ce que j'avais : 'copier consommable dans data Worksheets("data").Select Rows("2").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRigntOrBelow Selection.Font.Bold = False Select Case (valeur(0)) Case Is = "Production" Range("Production") = valeur(1) Range("A2:C2").Select Selection.Delete Shift:=xlUp Case Is = "Pharmacie" Range("Pharmacie") = valeur(1) Range("A2:C2").Select Selection.Delete Shift:=xlUp Case Is = "Ensachage" Range("Ensachage") = valeur(1) Range("A2:C2").Select Selection.Delete Shift:=xlUp Merci beaucoup de votre aide...

gmb · Answer

Tu devrais joindre ton fichier... Bye ...