Discussion :

[gilberte333]

Salut à tous,

J'ai un petit soucis de renommage de feuilles. Je m'explique :

- j'ai un fichier avec un questionnaire que l'on peut créer plusieurs fois (pour des cas différents) et donc à chaque création c'est mon questionnaire de base qui est copié puis l'onglet est renommé avec un numéro qui s'incrémente.

- j'ai prévu la possibilité de supprimer un questionnaire (car à chaque questionnaire est associé une feuille de résultat et d'autres petites choses donc j'ai peur que l'utilisateur en oublie la moitié).

Mon problème est le suivant :
- je crée mon premier questionnaire : donc un onglet "questionnaire - 1" et "resultat - 1" sont copiés,
- je supprime ce questionnaire, les 2 onglets sont supprimés,
- et quand je veux recréer un questionnaire => bug lors du nommage des onglets (Impossible de renommer un feuille comme une autre feuille ... => ce qui est absurde vu que la feuille a été supprimée! )

Comme c'est le premier questionnaire créé il aura le même nom que celui qui vient juste d'être supprimé.
Je me demandais si Excel ne garde pas qqpart un lien avec l'onglet qu'il vient de supprimer et si oui, comment le vider ?

Merci de m'éclairer!

Bonne journée à tous

[issoram]

Bonjour,

Es tu sûr que ton (tes) onglet(s) est bien supprimé? Car ce que tu décris ne pose normalement pas de problème:

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
18
19
20
Sub test()
 
    Dim nouveauOnglet As Worksheet
    Dim nomOnglet As String
 
    'Ajout
    nomOnglet = "questionnaire"
    Set nouveauOnglet = ThisWorkbook.Worksheets.Add(Count:=1)
    nouveauOnglet.Name = nomOnglet
 
    'Suppression
    Application.DisplayAlerts = False
    nouveauOnglet.Delete
    Application.DisplayAlerts = True
 
    'Re-ajout
    Set nouveauOnglet = ThisWorkbook.Worksheets.Add(Count:=1)
    nouveauOnglet.Name = nomOnglet
 
End Sub

As tu un bout de code à nous montrer? Cela sera plus facile pour t'aider.

Cordialement.