onglet doublon

[marc21]

bonjour a tous,
j'ai une macro qui crée un onglet et suivant une cellule bien définie place la valeur de la cellule en nom d'onglet, mais, comment pourrait-on faire, avec macro pour qu'elle vérifie tous les onglets pour ne pas créer un onglet doublon, et si l'onglet existe déja, une msgbox qui signale que l'onglet existe déjà.
Pouvez-vous m'aider merci
Marc21

 

[anuky]

Bonjour,

je pense avoir quelquechose pour toi

Dim Macellule As Variant

Macellule = cell(x;y)
'Vérifie que le nom saisi ne correpond pas a une feuille déjà existante
For iii = 1 To Sheets.Count
If Macellule = Worksheets(iii).Name Then
MsgBox 'Une feuille portant le même nom existe déjà.', vbOKOnly Or vbInformation, 'Saisie Incorrecte'
Exit Sub
Exit For
End If
Next iii


Avec ça tu devrai pouvoir t'en sortir, je l'utilise dans une de mes macro et ça marche.

Bon courrage

 

[myDearFriend!]

Bonsoir marc21, anuky, le Forum.

En complément de la solution de anuky, ci-dessous une autre façon de faire :

Sub RenommeFeuille(Nom As String)
Dim F As Worksheet
      On Error Resume Next
      Set F = Worksheets(Nom)
      On Error GoTo 0
      If Not F Is Nothing Then
            MsgBox 'Ce nom de feuille existe déjà !'
      Else
            ActiveSheet.Name = Nom
      End If
End Sub

Cordialement,

 

[Marc21]

Merci a vous deux pour l'aide, je vais essayer ca demain...

Marc21