afficher nouvelle feuille

[sandrine]

Bonjour j'ai encore une petite question!

Voilà j'aimerais créer une nouvelle feuille si la case A1 de ma feuille 1 est égale à A et ainsi nommer ma nouvelle feuille A , comment est ce que je peux faire?
merci beaucoup

 

[bertgrav]

bonjour, essaie ceci

Sub a()
Sheets('feuille 1').Select
If Range('a1') = 'a' Then

Application.Sheets.Add After:=Sheets.Item(Sheets.Count), Type:=xlWorksheet
Application.ActiveSheet.Name = 'a'
Else
End If


End Sub


chantal

 

[Hervé]

Bonjour mesdames, le forum

une alternative à la proposition de chantal :

If Sheets('feuil1').Range('a1') = 'A' Then
        With Sheets.Add
                .Name = 'A'
        End With
End If

salut