Liste des onglets Excel

[sat478]

Bonjour,

je cherche en VBA à vérifier si parmi tous les onglets existants d'un classeur, il existe un onglet nommé 'toto'. Si oui afficher un message type Msgbox 'Cet onglet existe déjà'.

Comment faire pour parcourir tous les onglets d'un classeur ?

Merci d'avance

Sat478

 

[AV]

Ave,

Tu n'as pas besoin de parcourir tous les onglets.
Un test renvoyant une éventuelle erreur suffit :

Sub TestOnglet()
On Error Resume Next
x = Range('toto!A1').Value
If Err.Number = 0 Then MsgBox 'l'onglet toto existe déjà'
End Sub

AV [MVP Excel]

 

[Dan]

Bonjour,

Autre proposition :

Sub TestOnglet1()
 Dim ws As Worksheet
 For Each ws In Worksheets
 ws.Activate
 If ws.Name = 'Toto' Then
MsgBox 'l'onglet toto existe déjà'
End If
Next ws
End Sub

Avec Toto = nom de ta feuille

Bon travail



Message édité par: Dan, à: 31/03/2006 15:48