Discussion :

[karlgina]

Bonjour

je suis très novice en vba, et en macro, cependant je pense qu'une petite macro m'apporterai beaucoup.

en fait je souhaite, si c'est possible, supprimer la feuille 2 et 3 lorsque dans la cellule A1 de la feuille 1 j'ai le texte machine.
et supprimer les feuilles 4 et 5 si dans la feuille 1 en A1 j'ai le texte manuel.

est ce que quelqu'un peut m'aider SVP ?
pour quelqu'un qui est habitué ça doit pas être trop compliqué à réaliser, moi je viens d'y passer mon aprèm.

merci
bonne soirée

[unparia]

Bonjour
Quels sont les noms de ces feuilles ?
Car il sera mille fois plus sûr de les supprimer par leur nom que par leur rang (croche-pattes à éviter);

[karlgina]

bonjour

voici les noms :

la feuille 1 : A820_001
la feuille 2 : A820_008
la feuille 3 : A820_003
la feuille 4 : A820_004

elles correspondent à des n° de postes dans notre ERP.

merci de votre aide

[unparia]

C'est alors simple.
Ceci (par exemple) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Application.DisplayAlerts = False
Worksheets("toto").Delete
Worksheets("titi").Delete
Application.DisplayAlerts = True

supprimera les feuilles toto et titi

[unparia]

Je te fais bien évidemment grâce (le B.A.BA) de mettre ce code dans l'évènement WorkSheet_Change de la feuille concernée (là où ta cellule A1 doit provoquer la chose) en utilisant le paramètre target (qui n'est autre que la cellule concernée par cet évènement). Tu viens par exemple de modifier A1 si target.row = 1 et target.column = 1