Inserer automatiquement une nouvelle feuille si une x dans une cellule

[judes]

Bonjour à ceux qui liront se message, je suis un petit novice sur les macros mais qui je l'espère deviendra grand un jour car je m'y met petit à petit, j'ai un petit souci j'aimerais insérer automatiquement une feuille lorsque j'ai une croix dans une cellule. ci joint mon fichier , si vous pouvez m'aider ca serait bien. merci par avance et bonne journée ou soirée

 

[Victor21]

Re : Inserer automatiquement une nouvelle feuille si une x dans une cellule

Bonjour.

Peut-être, dans le module de la feuille concernée, à adapter :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2")) Is Nothing And Range("A2") = "x" Then Sheets.Add After:=Sheets(Sheets.Count)
End Sub

 

[judes]

Re : Inserer automatiquement une nouvelle feuille si une x dans une cellule

merci pour l'info je vais essayer je te tiendrais au courant