Discussion :

[michoutri]

Bonjour à tous

J'ai un ensemble de feuilles (graphiques et textes) qui portent des noms différents (textes et chiffres) et je souhaite à partir d'une variable (en long) vérifier si une feuille porte le même nom.

J'ai testé avec une boucle mais je n'arrive à généraliser la première feuille et en même temps à limiter la dernière au worksheet ou workbook.

De plus je cherche à faire une condition if pour tester le nom d'une feuille avec une variable long...

Merci de vos conseils et explications

[diude54]

J'ai pas tout bien compris ce que tu veux faire mais voici une idée:
Explique mieux ce que tu souhaite si tu veux une réponse plus précise

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim Wk as worksheet
Dim nom as string
 
nom ="LA feuille"
 
For Each Wk in thisworbook.worksheets
 
If Wk.name=nom then
...
end if
 
Next Wk

[Krovax]

Bonsoir,
Le nom d'une feuille est du texte (une chaine de caractère) donc une variable de type string. Tu auras du mal a utiliser un long

Pour le reste c'est relativement incompréhensible montre nous ton code et ce que tu aimerai qu'il fasse de plus

[michoutri]

J'ai trouve une solution à mon promblè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
Dim Nom As String
Dim i As Long
    'Boucle pour chercher dans les noms des feuilles
    i = 1
    For Each Sheet In Worksheets
        Nom = Sheet.Name
        Cells(i, 1) = d
        If Nom = Cells(i, 1).Value Then _
        MsgBox ("Cette journée existe déjà"): _
        ActiveSheet.Delete: _
        GoTo Line3
        Cells(i, 1).Delete
        i = i + 1
    Next