Discussion :

[developpeur82]

Bonjour,

Comment traduire en vba:

Code :

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

1
2
3
4
5
6
7
Si (la feuille qui porte le nom "TOTO" n'existe pas) Donc
Rajoute la
 
Sinon 
MsgBox("La feuille TOTO existe deja!)
 
Fin If

Merci

[Philippe Tulliez]

Bonjour,
Une solution parmi d'autres

Code :

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

1
2
3
4
5
6
7
8
9
Sub Test()
 MsgBox "Toto " & IIf(IsSheetExist(ThisWorkbook, "Toto"), "Existe", "N'existe pas")
End Sub
Function IsSheetExist(Workbook As Workbook, Name As String) As Boolean
 Dim sht As Worksheet
 For Each sht In Workbook.Worksheets
  If sht.Name = Name Then IsSheetExist = True: Exit Function
 Next
End Function

[patricktoulon]

bonjour
simple et rapide
j'aime beaucoup la fonction

[developpeur82]

Merci Philippe