vérifier qu'une feuille n'existe pas avant de la créer

Le
chouba89
Bonjour,
J'ai un programme qui créait une nouvelle feuille grâce à une macro.
Auparavant, il vérifie si le nom n'existe pas déjà dans les feuilles existantes.
le problème c'est que tel que je l'ai écrit, il ne fait pas la différence si il y a une majuscule ou non.
Je m'explique, je veux créer la feuille "test", si la feuille "test" existe, il m'affiche bien un message d'impossibilité, mais si la feuille "Test" existe, il se plante.

Sub InsertCopyFeuille_clic()

'Déclaration des variables
Dim Msg As String, Title As String, Default As String
Dim MyValue As Variant
Dim numéro As Integer
Dim celluletrouvee As Range
Dim ligne As Integer
Dim col As Integer
Range("e5").Select

MyValue = ActiveCell.Value
' ellimination des feuilles existantes


For Each Fe In Worksheets
If Fe.Name = MyValue Then
MsgBox "Impossible, " _
& "la feuille existe déjà avec ce nom !"
Exit Sub
End If
Next Fe

Set Fe = Nothing

If MyValue = "" Then Exit Sub

'rendre visible la feuille blank

Sheets("Clients").Select
Sheets("blank").Visible = True


Sheets("blank").Select
ActiveSheet.Copy before:=Worksheets(Worksheets.Count)
ActiveSheet.Name = MyValue
Sheets(MyValue).Select



merci pour votre aide!
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #21247481
Bonjour.
If LCase(Fe.Name) = LCase(MyValue) Then
Cordialement.
Daniel

Bonjour,
J'ai un programme qui créait une nouvelle feuille grâce à une macro.
Auparavant, il vérifie si le nom n'existe pas déjà dans les feuilles
existantes.
le problème c'est que tel que je l'ai écrit, il ne fait pas la différence si
il y a une majuscule ou non.
Je m'explique, je veux créer la feuille "test", si la feuille "test" existe,
il m'affiche bien un message d'impossibilité, mais si la feuille "Test"
existe, il se plante.

Sub InsertCopyFeuille_clic()

'Déclaration des variables
Dim Msg As String, Title As String, Default As String
Dim MyValue As Variant
Dim numéro As Integer
Dim celluletrouvee As Range
Dim ligne As Integer
Dim col As Integer
Range("e5").Select

MyValue = ActiveCell.Value
' ellimination des feuilles existantes


For Each Fe In Worksheets
If Fe.Name = MyValue Then
MsgBox "Impossible, " _
& "la feuille existe déjà avec ce nom !"
Exit Sub
End If
Next Fe

Set Fe = Nothing

If MyValue = "" Then Exit Sub

'rendre visible la feuille blank

Sheets("Clients").Select
Sheets("blank").Visible = True


Sheets("blank").Select
ActiveSheet.Copy before:=Worksheets(Worksheets.Count)
ActiveSheet.Name = MyValue
Sheets(MyValue).Select

.....

merci pour votre aide!


chouba89
Le #21248011
Daniel.C a écrit le 22/02/2010 à 16h53 :
Bonjour.
If LCase(Fe.Name) = LCase(MyValue) Then
Cordialement.
Daniel

Bonjour,
J'ai un programme qui créait une nouvelle feuille grâce à
une macro.
Auparavant, il vérifie si le nom n'existe pas déjà dans
les feuilles
existantes.
le problème c'est que tel que je l'ai écrit, il ne fait pas la
différence si
il y a une majuscule ou non.
Je m'explique, je veux créer la feuille "test", si la feuille
"test" existe,
il m'affiche bien un message d'impossibilité, mais si la feuille
"Test"
existe, il se plante.

Sub InsertCopyFeuille_clic()

'Déclaration des variables
Dim Msg As String, Title As String, Default As String
Dim MyValue As Variant
Dim numéro As Integer
Dim celluletrouvee As Range
Dim ligne As Integer
Dim col As Integer
Range("e5").Select

MyValue = ActiveCell.Value
' ellimination des feuilles existantes


For Each Fe In Worksheets
If Fe.Name = MyValue Then
MsgBox "Impossible, " _
& "la feuille existe déjà avec ce nom !"
Exit Sub
End If
Next Fe

Set Fe = Nothing

If MyValue = "" Then Exit Sub

'rendre visible la feuille blank

Sheets("Clients").Select
Sheets("blank").Visible = True


Sheets("blank").Select
ActiveSheet.Copy before:=Worksheets(Worksheets.Count)
ActiveSheet.Name = MyValue
Sheets(MyValue).Select

.....

merci pour votre aide!





Merci beaucoup, c'est super!
Publicité
Poster une réponse
Anonyme