Création potentielle d'onglet en VBA

cissou69 · 14 Février 2011

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 · 14 Février 2011

Re : Création potentielle d'onglet en VBA

Bonsoir,
A adapter

Code:

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 · 15 Février 2011

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
:/\?*[]

Création potentielle d'onglet en VBA

cissou69

XLDnaute Junior

kjin

XLDnaute Barbatruc

kiki29

XLDnaute Barbatruc

Discussions similaires

Création potentielle d'onglet en VBA

cissou69

XLDnaute Junior

kjin

XLDnaute Barbatruc

kiki29

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency