Création potentielle d'onglet en VBA

[cissou69]

Bonsoir,

J'aimerais créer un onglet si au moins un des onglets existants contient le nom "X".
Si pas d'onglet contenant le nom "X" --> pas de création
Si un onglet contient le nom "X" --> création d'un onglet "New"
Si deux (ou plus) onglets contiennent le nom "X" --> création d'un seul et unique onglet "New"
Seulement je ne sais pas comment l'écrire...

est-ce réalisable ?

Merci,

 

[kjin]

Re : Création potentielle d'onglet en VBA

Bonsoir,
A adapter

Dim ws As Worksheet, c As Range
On Error Resume Next
Set ws = Sheets("New")
If Not ws Is Nothing Then
    MsgBox "la feuille New existe déjà"
    Exit Sub
End If
On Error GoTo 0
For Each ws In Sheets
    Set c = ws.UsedRange.Find("X", lookat:=xlWhole)
    If Not c Is Nothing Then
        Sheets.Add After:=Sheets(Sheets.Count)
        ActiveSheet.Name = "New"
        Exit For
    End If
Next

A+
kjin

 

[kiki29]

Re : Création potentielle d'onglet en VBA

Salut,il conviendrait également de vérifier que le nom n'excède pas 31 caractères et ne contient pas de caractères interdits
:/\?*[]