Liste des onglets Excel

sat478 · 31 Mars 2006

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 · 31 Mars 2006

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 · 31 Mars 2006

Bonjour,

Autre proposition :

Code:

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

Liste des onglets Excel

sat478

Guest

AV

Guest

Dan

XLDnaute Barbatruc

Discussions similaires