Copier ou effacer une cellule sur une page si un mot est trouvé sur une aut

Bonjour,

Je souhaiterais introduire un code VBA me permettant

1. D'aller sur une page à une cellule spécifique (page ruche 1, cellule I5)

2. Si le contenu de cette cellule = test alors aller sur la page Matériel, cellule B2 et en effacer le contenu

3. D'aller sur une page à une cellule spécifique (page ruche 1, cellule K5)

4. Si le contenu de cette cellule = test alors copier cette valeur, aller sur la page Matériel, cellule B2 et y coller le contenu (test)

En fait je me complique surement la vie et vous pourriez fair plus simple.... J'ai du matériel en stock numéroté de H1 à H54. Si un de ce matériel apparait dans la cellule I5 de la page ruche, il faut le retrouver sur la page Matériel et l'effacer (pour le sortir du stock).

Si par contre un ce ce matériel apparait dans la cellule K5 de la page ruche, cela veut dire qu'il rentre dans le stock et donc doit venir se remettre dans le stock. Mon stock c'est bêtement un colonne avec du contenu (de H1 à H54) qui se trouve en colonne B. Il faudrait une formule qui si elle trouve une valeur entre H1 et H54 dans la cellule I5, recherche la même valeur sur la page matériel et l'efface (ca, ca ne doit pas être trop compliqué dit celui qui ne sait pas le faire )

Par contre si cette valeur apparait dans la cellule K5, il faut l'ajouter dans la colonne B de la page magasin mais à la bonne place, ou elle se trouvait initialement. Ou alors on copie au début ou à la fin et on lance automatiquement un tri....

Quelqu'un pour m'aider ?

Voila la Macro que j'ai tenté de créer pour une ruche :

Private Sub Worksheet_Change(ByVal Target As Range)

Sheets("Ruche 1").Activate

Range("I5").Select

If cell.Value = "H1" Then

Sheets("Matériel").Activate

Range("B2").ClearContents

End If

Sheets("Ruche 1").Activate

Range("K5").Select

If cell.Value = "H1" Then

Range("K5").Copy Destination:=Sheets("Matériel").Range("B2")

End If

End Sub

Elle est sensée se lancer automatiquement, elle n'est pas affectée à un bouton. Pourriez vous la corriger ?

Bon j'ai essayé de suivre tes 4 premiers points mais sans fichier exemple c'est compliqué

2dedudelefabs.xlsm (21.96 Ko)

Bonjour Dedudelefabs, edlede, le forum,

Si un de ce matériel apparait dans la cellule I5 de la page ruche, il faut le retrouver sur la page Matériel et l'effacer (pour le sortir du stock).

Si par contre un ce ce matériel apparait dans la cellule K5 de la page ruche, cela veut dire qu'il rentre dans le stock et donc doit venir se remettre dans le stock

Un essai....

2test.xlsm (21.83 Ko)

Cordialement,

Rechercher des sujets similaires à "copier effacer page mot trouve aut"