A voir également:
- Existence des feuilles
- Feuilles diddl valeur ✓ - Forum Graphisme
- Fusionner feuilles excel - Guide
- Excel existence valeur dans colonne ✓ - Forum Excel
- Excel recherche doublon entre 2 feuilles ✓ - Forum Excel
- Regrouper 2 feuilles excel avec colonne commune ✓ - Forum Excel
2 réponses
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
Modifié le 20 avril 2019 à 09:45
Modifié le 20 avril 2019 à 09:45
Bonjour,
une facon de faire, resultat dans MsgBox, a voir pour vous :
une facon de faire, resultat dans MsgBox, a voir pour vous :
Sub recherche_nom_onglet()
Dim sh As Worksheet
Dim Flg_Ok As Boolean
Dim Manque
On Error GoTo suite 'erreur si manquante
'boucle sur onglets Donnee
For Each sh In Worksheets
If sh.Name Like "Donnees*" Then
Flg_Ok = False
wsh = sh.Range("B3") 'nom onglet
If wsh <> "" Then 'un nom
If Not IsError(Sheets(wsh)) Then Flg_Ok = True 'existe
Else
Flg_Ok = True: Manque = Manque & "[B3 vide: " & sh.Name & "]--" 'pas de nom de feuille
End If
suite:
If Not Flg_Ok Then
Manque = Manque & "[Pas de feuille: " & wsh & "]--" 'onglet manqant
End If
End If
Next
If Manque <> "" Then rep = MsgBox(Manque, , "Nom de feuilles manquantes ou pas de nom de feuilles")
End Sub
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
20 avril 2019 à 09:46
20 avril 2019 à 09:46
bonjour, tu n'expliques pas vraiment ce que tu veux faire, ni dans quel contexte. et tu ne montres pas ce que tu as déjà réalisé.
moi j'essaierais en faisant une boucle qui parcourt toutes les feuilles.
moi j'essaierais en faisant une boucle qui parcourt toutes les feuilles.
21 avril 2019 à 14:29
Bonne journée.