Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Création de feuille si n'existe pas

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion altefqhatre
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

altefqhatre

Guest
Bonjour tout le monde 🙂

Je viens à vous pour demander un petit coup de pouce 🙁

J'ai un classeur de statistiques dans lequel chaque feuille correspond à un mois. Le but étant, depuis la première sheet, de copier des données sur la feuille du mois en question. Si la feuille existe, pas de soucis!

Dans la première feuille, l'utilisateur entre la date au format "jj.mm.aaaa" dans la cellule A1 et puis, dans la cellule A2 j'ai juste rajouté "=TEXTE(DATE;"mmmm")". De cette façon je peux directement contrôler si la feuille avec le mois existe en la comparant avec la valeur A2.

En revanche, j'aimerais pouvoir automatiser un peu mieux et créer automatiquement une nouvelle feuille si la date entrée dans le première sheet est dans un mois dont la feuille n'existe pas... Je sais pas si c'est très clair, désolé :-(

Voilà à quoi j'ai penser:

Code: 
Dim sht as Worksheet

For each sht in Worksheets
If sht.Name = Range("A2").Value Then

'exécution des instructuctions

Else If

'Création de la feuille et mise en place du format
'exécution des instructions

End if
Next sht

Le problème est que la macro va créer la feuille si elle n'existe pas mais après elle continue est en re-créer une et hop plantage puisqu'elle existe déjà!

Qqun aurait une petite idée siouplay?

Merci beaucoup d'avance!
 
Dernière modification par un modérateur:
Trier par date Trier par votes
Re : Création de feuille si n'existe pas

bonjour altefqhatre

A tester:

Code: 
Sub toto()
Dim sht As Worksheet
For Each sht In Worksheets
 If sht.Name = Range("A2").Value Then
 'exécution des instructuctions
   Exit Sub
  End If
Next sht
'Création de la feuille et mise en place du format
'exécution des instructions
End Sub
 
Vote positif 0 Vote négatif
Re : Création de feuille si n'existe pas

Hello,

Ben justement ami pierrejean j'allais te citer en exemple 😀

Te voilà...
Code: 
Private Sub CommandButton1_Click()

    Dim n As Integer
    Dim trouve As Boolean
    
    Application.DisplayAlerts = False

    For n = 1 To Sheets.Count
        If Sheets(n).Name = ActiveSheet.Range("A2").Value Then
            MsgBox "Cette feuille existe déjà !"
            trouve = True
            '... tes actions
            '... idem
            Exit For
        End If
    Next n

    If Not trouve Then
        ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
        '... pour la nommer
    End If
    
    Application.DisplayAlerts = True

End Sub
Bonne fin de journée !
 
Vote positif 0 Vote négatif
Re : Création de feuille si n'existe pas

Bonjour altefqhatre, salut pierrejean 🙂

Il est parfaitement inutile de faire une boucle pour passer en revue les feuilles.

Il y a plusieurs solutions possibles avec un contrôle d'erreur, par exemple :

Code: 
Sub Test()
On Error Resume Next
If IsError(Sheets(Range("A2").Text).Name) Then
'Création de la feuille et mise en place du format
End If
On Error GoTo 0
'Exécution des instructions
End Sub

Edit : salut aussi Hulk, je ne t'avais pas vu 🙂

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Création de feuille si n'existe pas

Re

Hello Job
Par principe j'evite autant que faire ce peut d'utiliser la gestion d'erreur
Et a moins d'avoir une multitude de feuilles la boucle ne doit pas beaucoup ralentir l'execution
 
Vote positif 0 Vote négatif
Re : Création de feuille si n'existe pas

Re pierrejean 🙂

pierrejean à dit:
Par principe j'evite autant que faire ce peut d'utiliser la gestion d'erreur
Cliquez pour agrandir...

On fait pourtant des choses très bien avec On Error Resume Next suiv de If IsError() ou If Err.

Mais surtout quand on fabrique la macro mettre après On Error GoTo 0 sinon on ne voit plus les bug...

Mon principe : le plus simple et le plus rapide, donc le plus "élégant"

A+
 
Vote positif 0 Vote négatif
Re : Création de feuille si n'existe pas

Bonjour!

Merci beaucoup pour vos réponses!

J'ai pris la méthode proposée par Hulk et ça fonctionne parfaitement 🙂

a++
 
Vote positif 0 Vote négatif
Re : Création de feuille si n'existe pas

Salut à tous,
je reprend ce sujet car je souhaite faire la même chose mais j'ai un petit soucis.
Voilà j'ai plusieurs colonnes (A à N). Dans la colonne K se trouve différents secteurs de mon entreprise. Si je rajoute un secteur je souhaiterai qu'une feuille automatiquement.
Ci-joint le fichier pour plus de clareté.

Mon but premier était à partir de liste MDC (feuille générale contenant toutes les infos) répartir les infos par secteur. Et pour chaque secteur une feuille différente. Je bloque encore sur certains points mais je ne désespère pas. Le problème est que si je rajoute un secteur ma macro ne me sert à rien. Il faudrait donc qu'une autre feuille soie créée de façon automatique.
J'espère être assez clair.
Quelqu'un aurait-il une idée svp ?
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Y
  • Résolu(e)
XL 2019 Vérification si dossier existe et création s'il n'existe pas
Réponses
3
Affichages
139
youguybass
Y
E
  • Résolu(e)
Microsoft 365 Combobox ajouter si n'existe pas dans Liste
2 3 4
Réponses
47
Affichages
3 K
cathodique
Q
  • Résolu(e)
XL 2021 Ne pas imprimer une feuille si cellule de reference est égale a 0
Réponses
8
Affichages
228
job75
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
775
lynyrd
Y
  • Résolu(e)
XL 2019 Compter le nb de Fichier dans un dossier afin de créer une nouvelle version
Réponses
2
Affichages
542
youguybass
Y
M
  • Question Question
XL 2016 pb création de tableau par macro
Réponses
10
Affichages
408
ChTi160
  • Résolu(e)
XL 2021 Création agenda
8 9 10
Réponses
145
Affichages
5 K
Nicolas JACQUIN
  • Question Question
XL 2016 relevé de consommation électrique
Réponses
1
Affichages
343
wDog66
W
  • Résolu(e)
Microsoft 365 rendre visible automatiquement l'onglet de la feuille active sur la barre de navigation inférieure
Réponses
11
Affichages
1 K
Eric 888
S
  • Résolu(e)
Microsoft 365 VBA Match: comment éviter l'erreur?
2
Réponses
29
Affichages
1 K
Dranreb
B
  • Résolu(e)
Microsoft 365 creation d'liste à imprimer
2 3 4
Réponses
51
Affichages
3 K
Banbara
B
POWERQUERY :: Combinaison de tableaux structurés Excel pouvant être issus de répertoires différents avec des noms de feuilles différentes
Réponses
0
Affichages
201
oguruma
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
698
fanch55
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
P
  • Question Question
Microsoft 365 Problème lors de la création d'un fichier
Réponses
4
Affichages
697
ChTi160
  • Question Question
Microsoft 365 créer des feuilles automatiques et une formule avec condition de remplissage
Réponses
2
Affichages
413
luno123
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
881
Max
M
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
530
NONO14
N
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
451
sebastien176
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…