Discussion :

[athos7776]

Salut,

Je ne suis pas un grand connaisseur du langage de programmation, c'est pourquoi je me demandais si quelqu'un pouvait m'aider pour quelque chose d'assez simple à mes yeux.

Je voudrais interroger dans l'un de mes Workbook tous les noms des Feuilles existantes. Si l'une d'elles se nomme "Canada", je voudrais retourner une Msgbox, sinon je voudrais qu'elle se nomme "Canada".

Merci Encore!

[pgz]

Bonsoir.

Et si aucune ne se nomme "Canada" comment vas-tu reconnaître celle qui doit être ainsi renommée?

[athos7776]

Eh bien je vais lui demander de renommer Activesheet, tout simplement .

[athos7776]

En fait, voici une idée du code que je m'étais déjà fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Sht As Sheet
Dim Trouve As Boolean
Trouve = False
 
For Each Sht In Application.Worksheets
    If Sht.Name = "Canada" Then Trouve = True
Next Sht
 
    If Trouve = False Then
        Sheets.Add
        ActiveSheet.Name = "Canada"
    Else
    MsgBox ("Non")
    End If

Si j'essaie d'appliquer un peu la même idée dans le cas d'un WorkBook, tout marche comme sur des roulettes, mais dans le cas de feuilles...ça ne fonctionne pas . Il m'envoie comme message ceci : User-defined type not defined (en point sur Dim Sht as Sheet)

[JackOuYA]

Bonsoir,

pour l'erreur c'est WorkSheet et pas Sheet , pour les feuilles de calculs ..



tu dis quoi ...

[pgz]

Eh bien je vais lui demander de renommer Activesheet, tout simplement

EN fait d'après ton programme ce n'est pas cela. Je comprends plutôt que tu cherches dans ton classeur s'il y a une feuille nommée 'Canada' et s'il n'y en a pas tu en crées une que tu nommes ainsi. Si c'est bien ce que tu veux faire, tu n'es pas loin du tout. J'ai modifié le moins possible de ton code initial.

Essaie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim Sht As Excel.Worksheet
Dim Trouve As Boolean
 
Trouve = False
 
For Each Sht In Application.ThisWorkbook.Sheets
    If Sht.Name = "Canada" Then Trouve = True
Next Sht
 
    If Not Trouve Then
        Set Sht = Application.ThisWorkbook.Sheets.Add
        Sht.Name = "Canada"
    Else
        MsgBox ("Non")
    End If
 
    Set Sht = Nothing

Si tu me permets un conseil : cherche en FAQ WorkSheet et Sheet

Cordialement,

PGZ