vérifier qu'une feuille n'existe pas avant de la créer
2 réponses
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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
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
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
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
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
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
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