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

Ajouter une seule fois une feuille

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion degap05
  • 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
D

degap05

XLDnaute Impliqué
Bonjour,

La macro du fichier joint, permet d'ajouter une feuille, nommée: "Validé".
Avec votre aide, je souhaiterais déclencher la macro, une fois seulement, lorsque un "x" est entré en colonne D de la feuille1.
Si la feuille "Validé" existe déjà, lorsqu'on indique un autre "x", la macro ne s'exécute pas.

Merci.
 

Pièces jointes

Trier par date Trier par votes
Re : Ajouter une seule fois une feuille

bonjour degap05,

voici le code à mettre sur la feuille concernée (clic droit sur l'onglet --> visualiser le code)

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim test As Boolean, curSheet As Worksheet
'quitter la macro si ce n'est pas une cellule de la colonne D qui vient d'être modifiée
If Application.Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
'quitter la macro si ce n'est pas un "x" ou un "X" dans cellule qui vient d'être modifiée
If UCase(Target.Text) <> "X" Then Exit Sub

'on suppose que la feuille n'a pas encore été créée
test = False
'bocler sur chaque feuille du classeur
For Each curSheet In ThisWorkbook.Sheets
    'si la feuille courante s'appelle "Validé", préciser que la feuille a déjà été créée
    If curSheet.Name = "Validé" Then test = True
Next curSheet
'si la feuille n'a pas encore été créée, la créer
If Not test Then ThisWorkbook.Sheets.Add.Name = "Validé"
End Sub

a+
 
Vote positif 0 Vote négatif
Re : Ajouter une seule fois une feuille

re,

tu peux créer cette macro dans un module ("Module1" par exemple) qui crée une feuille "Validé" si elle n'existe pas déjà
Code: 
Public Sub CreerFeuille()
Private Sub Worksheet_Change(ByVal Target As Range)
Dim test As Boolean, curSheet As Worksheet

'on suppose que la feuille n'a pas encore été créée
test = False
'bocler sur chaque feuille du classeur
For Each curSheet In ThisWorkbook.Sheets
    'si la feuille courante s'appelle "Validé", préciser que la feuille a déjà été créée
    If curSheet.Name = "Validé" Then test = True
Next curSheet
'si la feuille n'a pas encore été créée, la créer
If Not test Then ThisWorkbook.Sheets.Add.Name = "Validé"
End Sub

mais tu devra avoir du code sur la feuille (pour vérifier la saisie d'un "x" dans la colonne "D"
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
'quitter la macro si ce n'est pas une cellule de la colonne D qui vient d'être modifiée
If Application.Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
'quitter la macro si ce n'est pas un "x" ou un "X" dans cellule qui vient d'être modifiée
If UCase(Target.Text) <> "X" Then Exit Sub

Module1.CreerFeuille
End Sub

a+
 
Vote positif 0 Vote négatif
Re : Ajouter une seule fois une feuille


Bonjour, mromain,

J'ai installé le code qui fonctionne bien, mais le premier "X" est effacé en même temps que se créée la feuille....embêtant.

Merci.
A+
 
Vote positif 0 Vote négatif
Re : Ajouter une seule fois une feuille

bonjour degap05,

essaye avec ce code :
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim test As Boolean, curSheet As Worksheet
'quitter la macro si ce n'est pas une cellule de la colonne D qui vient d'être modifiée
If Application.Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
'quitter la macro si ce n'est pas un "x" ou un "X" dans cellule qui vient d'être modifiée
If UCase(Target.Text) <> "X" Then Exit Sub

'on suppose que la feuille n'a pas encore été créée
test = False
'bocler sur chaque feuille du classeur
For Each curSheet In ThisWorkbook.Sheets
    'si la feuille courante s'appelle "Validé", préciser que la feuille a déjà été créée
    If curSheet.Name = "Validé" Then test = True
Next curSheet
'si la feuille n'a pas encore été créée, la créer
If Not test Then ThisWorkbook.Sheets.Add.Name = "Validé"
[B]'sélectionner la feuille (où la cellule à été modifiée "x")
Target.Parent.Select[/B]
End Sub

a+
 
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

Discussions similaires

F
  • Question Question
Microsoft 365 Remplir des cellules automatiquement
3 4 5
Réponses
65
Affichages
2 K
Fanny53
F
B
  • Résolu(e)
XL 2021 VBA : activer une feuille dont le nom est la valeur d'une cellule
Réponses
2
Affichages
221
berru76
B
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
227
sylvanu
  • Question Question
XL 2019 Extraire les valeurs de plusieurs plages identiques de plusieurs feuilles différentes
Réponses
12
Affichages
422
mapomme
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
351
PRy
P
A
  • Question Question
XL 2016 Suppression contenu d'une plage de cellules en fonction de leur valeur
Réponses
4
Affichages
275
TooFatBoy
A
  • Question Question
XL 2010 problème lors pour la selection dans un combobox
Réponses
2
Affichages
209
gbinforme
G
N
  • Résolu(e)
Microsoft 365 Copier une image d'une feuille de calcul vers un UserForm
Réponses
4
Affichages
212
NONO14
N
A
  • Question Question
XL pour MAC Problème avec une macro dupliquant une feuille contenant une macro
Réponses
8
Affichages
396
AlineJ
A
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
536
TooFatBoy
E
  • Résolu(e)
Microsoft 365 Combobox ajouter si n'existe pas dans Liste
2 3 4
Réponses
47
Affichages
3 K
cathodique
M
  • Résolu(e)
XL 2021 Copier/Coller des valeurs d’une feuille à une autre à partir d’une cellule
Réponses
11
Affichages
719
MANU64360
M
C
  • Résolu(e)
XL 2016 humains VS chatGPT
Réponses
9
Affichages
913
AtTheOne
M
  • Question Question
XL 2021 Vérification correspondance 2 tableaux
Réponses
12
Affichages
758
job75
M
  • Résolu(e)
Microsoft 365 Erreur inexplicable
Réponses
3
Affichages
239
Marie L
M
A
  • Résolu(e)
XL 2019 VBA newbie
4 5 6
Réponses
80
Affichages
4 K
apocalypse
A
  • Question Question
XL 2019 Copier et coller automatiquement une nouvelle donnée par un bouton, ListView décallée à la sur la page (Multipage) et vibration du Userform
2
Réponses
16
Affichages
1 K
TooFatBoy
  • Résolu(e)
Microsoft 365 Cohabitation des listbox avec des lignes "gelées"
Réponses
8
Affichages
356
fanch55
A
  • Question Question
XL 2021 Automatiser la génération de documents Word à partir d’Excel avec VBA
Réponses
12
Affichages
1 K
ali591
A
P
  • Résolu(e)
XL 2021 peut on mettre plusieurs fonctions si erreur index les une à la suite des autres
Réponses
9
Affichages
295
PR.
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…