liste déroulante renomme Onglet

Hulk

XLDnaute Barbatruc

• 9 Septembre 2010

• #2

Re : liste déroulante renomme Onglet

Hello,

Ben si j'ai bien compris ton code fonctionne, mais il faut maintenant que tu crées ta liste dans la celllule E1 !

Click "Données/Validation" puis dans "Autotiser" tu mets "Liste" et dans "Source" tu mets par exemple A;B;C;D

Le mieux est de déposer ton fichier allégé et sans données confidentielles !

 

Dernière édition: 9 Septembre 2010

Vote positif 0 Vote négatif

J

jo50160

XLDnaute Junior

• 9 Septembre 2010

• #3

Re : liste déroulante renomme Onglet

Hulk à dit:

Hello,

Ben si j'ai bien compris ton code fonctionne, mais il faut maintenant que tu crées ta liste dans la celllule E1 !

Click "Données/Validation" puis dans "Autotiser" tu mets "Liste" et dans "Source" tu mets par exemple A;B;C;D

Le mieux est de déposer ton fichier allégé et sans données confidentielles !

Cliquez pour agrandir...

Salut Hulk

Non, si tu écris normalement dans la "cellule E1", le code fonctionne très bien, mais par-contre dès que tu créer une liste déroulante dans la "cellule E1" cela ne fonctionne pas.

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 9 Septembre 2010

• #4

Re : liste déroulante renomme Onglet

Re,

Heu je viens d'essayer, et de la manière que je te l'ai expliqué, chez moi ça joue...

Mais qu'est-ce que tu entends par "Liste déroulante" ?

 

Vote positif 0 Vote négatif

J

jo50160

XLDnaute Junior

• 10 Septembre 2010

• #5

Re : liste déroulante renomme Onglet

Salut Hulk

je te joint mon fichier, tu trouvera en feuille 2 l'explication.

Merci pour ton aide.

 

Pièces jointes

• essai2.xlsm

  20.9 KB · Affichages: 131
• essai2.xlsm

  20.9 KB · Affichages: 141
• essai2.xlsm

  20.9 KB · Affichages: 137

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 10 Septembre 2010

• #6

Re : liste déroulante renomme Onglet

Bonjour tout le monde 🙂

Ben étant donné que je travaille (encore 😱) avec Excel 2003, j'ai du convertir ton fichier xlsm en xls et j'imagine que c'est pour ça que je n'ai pas vu de liste déroulante dans ton classeur.

Cela dit essaie ce code, pas de raison qu'il ne joue pas..

Code:

Sub InsereFeuille()

    On Error Resume Next

    FeuilleCrée = Range("I1").Text

    Sheets(FeuilleCrée).Select

    If Err = 9 Then 'Si la feuille n'existe pas
        Sheets("Feuil2").Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = Sheets("Feuil2").Range("I1").Text
    Else
        MsgBox "La feuille ''" & FeuilleCrée & "'' existe déjà !"
    End If

    On Error GoTo 0
    
    Sheets("Feuil2").Select

End Sub

Méthode inspirée de Pyrof, membre du Forum, merci à lui.


À tous les lecteurs :

Je n'ai pas trouvé ce que Err = 9 veut dire exactement, si quelqu'un avait un lien avec la liste des types d'Err, ça serait gentil !

 

Vote positif 0 Vote négatif

J

jo50160

XLDnaute Junior

• 12 Septembre 2010

• #7

Re : liste déroulante renomme Onglet

Bonjours Hulk, c'est avec retard que je te remercier pour ton aide qui ma été très précieux.
Merci beaucoup et A+

Affaire résolue

 

Vote positif 0 Vote négatif