suppression ou ajout d'une cellule si donnée = une certaine valeur Fermé

Question

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. 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 pa sel 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 ?


Configuration: Macintosh / Safari 13.0.5

yg_be · Answer

bonjour, peux-tu partager ton fichier, avec ce que tu as déjà réalisé?

Dedudelefabs · Answer

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 ?

yg_be · Answer

merci d'utiliser les balises de code: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
difficile de la corriger sans savoir ce qui ne fonctionne pas.
peux-tu partager ton fichier?
suggestion de code simplifié:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("Ruche 1").[i5] = "H1" Then
    Sheets("Matériel").[B2].ClearContents
End If
If Sheets("Ruche 1").[K5] = "H1" Then
    Sheets("Matériel").[B2] = "H1"
End If
End Sub

Suppression ou ajout d'une cellule si donnée = une certaine valeur

3 réponses

Discussions similaires