Vba Excel

[Thrash01]

Bonjour,

Dans une macro excel, avec une InputBox, je crée une nouvelle feuille dans le classeur actif. Maintenant, je voudrai que la macro, vérifie que le classeur ne comporte pas déjà une feuille avec le nom donnée dans l'InputBox.

Merci pour votre aide.

Un débutant en Vba!

 

[Mytå]

Bonsoir XLDiens et XLDiennes

Thrash01 essaye de voir avec ceci

Sub verifier()
Dim WS As Worksheet
For Each WS In Worksheets

If WS.Name = valeur_du_inputbox Then
'ton code de traitement ........
Exit Sub
Next WS

End Sub

 

[Mytå]

Oups le End If a pas passer

Sub verifier()
Dim WS As Worksheet
For Each WS In Worksheets

If WS.Name = valeur_du_inputbox Then
'ton code de traitement ........
Exit Sub
End If

Next WS

 

[Thrash01]

Salut merci pour ta réponse !

Quelque soit le nom de ma feuille, le Next me renvoie automatiquement au For !

Merci pour ton aide.

 

[Mytå]

Re Trash01

Vite fait essaye ceci

Option Explicit
Sub tester_presence()
Dim Message, Title, MyValue
Dim WS As Worksheet
' Définit le message.
Message = "Entrez le nom de la feuille"
Title = "Démonstration de InputBox" ' Définit le titre.
' Affiche le message, le titre et la valeur par défaut.
MyValue = InputBox(Message, Title)
'Vérifier présence de la feuille
For Each WS In Worksheets
If WS.Name = MyValue Then
MsgBox ("La feuille existe deja")
Exit Sub
End If
Next WS
Sheets.Add.Name = MyValue
End Sub

a suivre Mytå

 

[Thrash01]

Salut,

Merci pour ta réponse, ça fonctionne beaucoup mieux comme ça.

Bonne continuation à toi.

 

[claire]

petit problème:
une macro de tri croissante des données fonctionne correctement sur l'ordinateur où elle a été créée, sur disquette, mais pas lorsque l'on transfere le fichier excel la contenant par internet. Le message d'erreur dit ne pas la trouver, alors qu'elle est rattachée au classeur. Nous souhaiterions mettre ce fichier en ligne, téléchargeable. Comment cela est il possible sans perdre le bénéfice de la macro?
merci de vos réponses