si feuil existe

[chico]

re bonsoir a tous
y a t'il un moyen, en VB, de verifier si une feuil existe avant d'executer un code?

merci bcp
-Chico-

 

[CBernardT]

Bonsoir Chico,

Je te propose la macro suivante pour activer la feuille de nom 'Feuil3' si elle existe sinon un message apparaît :

Sub SelectionFeuille()
Dim j As Byte
For j = 1 To Sheets.Count
If Sheets(j).Name = 'Feuil3' Then
Sheets(j).Select
Exit Sub
End If
Next j
MsgBox 'Pas de feuille de ce nom !'
End Sub

Cordialement

Bernard

 

[ERIC S]

Bonsoir

essaie à partirde :

Sub essai()
For Each feuille In ThisWorkbook.Sheets
If feuille.Name = 'Feuil2' Then MsgBox 'Ok'
Next
End Sub

A+

 

[ERIC S]

re

Plus rapide que moi Bernard...

 

[chico]

merci Eric, merci Bernard
vu que je ne veut pas selectionner la feuile en question si elle existe, je pense que le code d'eric est plus approprié merci encore.

en faite je veux faire:

si la feuille n'existe pas , il demande de la créer, si elle existe, inserer des donnée sans ouvrir la feuille en question.

merci encore
-Chico-

 

[ERIC S]

re

A essayer :

Sub essai()
For Each feuille In ThisWorkbook.Sheets
If feuille.Name = 'essai' Then
Sheets('essai').Range('A1') = 'remplie'
Exit Sub
End If
Next
créer = MsgBox('créer la feuille essai', vbYesNo)
If créer = vbNo Then Exit Sub
Sheets.Add
ActiveSheet.Name = 'essai'

End Sub

A+