Mettre à jour des feuilles Excel sans les classer à nouveau
Fermé
ramo1985
Messages postés
12
Date d'inscription
mercredi 25 décembre 2019
Statut
Membre
Dernière intervention
28 décembre 2019
-
Modifié le 28 déc. 2019 à 12:58
cs_Le Pivert Messages postés 7883 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 30 déc. 2019 à 11:58
cs_Le Pivert Messages postés 7883 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 30 déc. 2019 à 11:58
A voir également:
- Mettre à jour des feuilles Excel sans les classer à nouveau
- Liste déroulante excel - Guide
- Formule excel - Guide
- Aller à la ligne excel - Guide
- Mise a jour airpods - Guide
- Desactiver mise a jour windows 10 - Guide
3 réponses
ccm81
Messages postés
10543
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
18 mars 2023
2 336
28 déc. 2019 à 14:39
28 déc. 2019 à 14:39
Bonjour
Pour créer les feuilles ajoutées
https://cjoint.com/c/ILCnMLMRjzB
Cdlmnt
Pour créer les feuilles ajoutées
https://cjoint.com/c/ILCnMLMRjzB
Cdlmnt
ramo1985
Messages postés
12
Date d'inscription
mercredi 25 décembre 2019
Statut
Membre
Dernière intervention
28 décembre 2019
28 déc. 2019 à 17:17
28 déc. 2019 à 17:17
merci
sauf que c est exactement ce que je vx éviter je veux en remplissant d autre lignes dans la feuille liste ou que je modifie des truc en appuyant sur le bouton les feuilles déjà crées se mettent a jour et les nouvelles s’édite
j'ai un exemple déjà fait mais je n'arrive pas a l'adapter a mon fichier voila son liens
https://cjoint.com/c/ILCqrrTWkyG
sauf que c est exactement ce que je vx éviter je veux en remplissant d autre lignes dans la feuille liste ou que je modifie des truc en appuyant sur le bouton les feuilles déjà crées se mettent a jour et les nouvelles s’édite
j'ai un exemple déjà fait mais je n'arrive pas a l'adapter a mon fichier voila son liens
https://cjoint.com/c/ILCqrrTWkyG
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
30 déc. 2019 à 10:47
30 déc. 2019 à 10:47
Bonjour,
Pour faire ce que tu veux il faut supprimer les feuilles et ensuite les recréer . Voir ceci pour faire une boucle sur toutes les feuilles:
https://silkyroad.developpez.com/VBA/FeuilleDeCalcul/#LI
et cela pour supprimer les feuilles:
https://silkyroad.developpez.com/VBA/FeuilleDeCalcul/#LII-A-10
Ce qui donne:
ensuite tu mets ta macro pur créer tes feuilles
voilà c'est tout simple
Pour faire ce que tu veux il faut supprimer les feuilles et ensuite les recréer . Voir ceci pour faire une boucle sur toutes les feuilles:
https://silkyroad.developpez.com/VBA/FeuilleDeCalcul/#LI
et cela pour supprimer les feuilles:
https://silkyroad.developpez.com/VBA/FeuilleDeCalcul/#LII-A-10
Ce qui donne:
'Déclare la variable objet Worksheet
Dim Ws As Worksheet
'DisplayAlerts = False permet de ne pas afficher le message d'alerte qui survient
'lorsque l'on supprime un onglet.
Application.DisplayAlerts = False
'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris
'en compte.
'ThisWorkbook correspond à l'objet classeur contenant la macro
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "Feuil1" Then 'adapter le nom de feuille a ne pas supprimer
Ws.Delete
End If
Next Ws
'Ne pas oublier de réinitialiser DisplayAlerts à True
Application.DisplayAlerts = True
ensuite tu mets ta macro pur créer tes feuilles
voilà c'est tout simple
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
30 déc. 2019 à 11:58
30 déc. 2019 à 11:58
et pour ton cas:
Voilà
Sub toto()
'Déclare la variable objet Worksheet
Dim Ws As Worksheet
'DisplayAlerts = False permet de ne pas afficher le message d'alerte qui survient
'lorsque l'on supprime un onglet.
Application.DisplayAlerts = False
'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris
'en compte.
'ThisWorkbook correspond à l'objet classeur contenant la macro
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "Base" And Ws.Name <> "Releve" Then 'adapter le nom de feuille a ne pas supprimer
Ws.Delete
End If
Next Ws
'Ne pas oublier de réinitialiser DisplayAlerts à True
Application.DisplayAlerts = True
' *** 10 Ventôse CCXIX *** Roger fecit. ***
'
'Référence à la biliothèque Microsoft Scripting Runtime (scrrun.dll) requise.
'"dat" est une plage nommée de la feuille "Base" :
'=DECALER(Base!$A$1;;;MAX((DECALER(Base!$A$1;;;NEnr;1)<>"")*LIGNE(DECALER(Base!$1:$1;;;NEnr;)));MAX((DECALER(Base!$A$1;;;;NChp)<>"")*COLONNE(DECALER(Base!$A:$A;;;;NChp))))
'Adapter les paramètres nommé "NEnr" (nb. max d'enregistrements) et "NChp" (nb. max de champs) si besoin est.
'la suite de ton code
Voilà