Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Tester si une feuille existe

belette

XLDnaute Junior
Bonjour,

Avant de créer une feuille, j'aimerais savoir si la feuille existe déjà.
Comment puis-je faire ?

belette
 

AeroPlanneur

XLDnaute Junior
bonjour belette,

un exemple : (NewName à remplacer par le nom que tu veux donner à ta feuille)

Sub NwSheetCreate()

On Error GoTo NwSheet
Sheets('NewName').Select

Exit Sub
NwSheet:
Sheets.Add.Select
ActiveSheet.Name = 'NewName'
End Sub
 

belette

XLDnaute Junior
Ooups problème de passement d'argument !

Le nom de ma feuille est une variable : Énergie, j'appelle donc la fonction avec NwSheetCreate(Énergie) et je remplace 'NewName' par Énergie dans ton exemple mais ça ne marche pas (erreur compil : nombre d'argument incorrect ou affectation de propriété incorrecte !)
 

AeroPlanneur

XLDnaute Junior
re belette,

j'ai transformé la macro. Pour l'appeler, tu lances AppelMacro

'*******************************
Sub NwSheetCreate(nom As String)

On Error GoTo NwSheet
Sheets(nom).Select

Exit Sub
NwSheet:
Sheets.Add.Select
ActiveSheet.Name = nom
End Sub

'*********************************
Sub AppelMacro()
NwSheetCreate ('Energie')
End Sub

Message édité par: AeroPlanneur, à: 05/05/2006 15:43
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…