XL 2013 Ajout de feuille indépendante du code source

[Messan]

Bonsoir le forum
J'incline la tête pour vous.
Grace à vous j'ai eu ce document bien codé auquel je sollicite encore une fois votre aide pour une modification du code.
D'après le code, l'exécution du code supprime toutes les feuilles différentes de la feuille source (Feuil1) et récré de nouvelles selon la programmation.

Maintenant je voulais pouvoir ajouter des feuilles qui contiendront également des données comme la feuille source et qui doivent être exclus lors de l'exécution du code.

NB: j'avais enregistrer un macro pour ajouter de feuilles qui marche mais à l'exécution du premier code cette nouvelle feuille est supprimer avant d'être ajouter par le second code mais dans ce cas les données sur cette feuille me sont supprimer.

Aider moi à pouvoir ajouter des feuilles qui ne seront pas supprimer à l'exécution du code.

 

[Messan]

Les grands s'il vous plait débloquez moi.
Je suis resté suspendu à vous.

 

[Dranreb]

Bonsoir.
Peut être If OD.Name Like "*-* ans" Then OD.Delete
Je ne sais pas, moi, ce qui devra caractériser les feuilles à supprimer et celles à garder.

 

[Messan]

Bonjour Grand.

Je reviens car votre correction semble marcher mais il y a une erreur d'exécution "13" Incompatibilité de type à ligne 93 du module 1 à l'ajout de nouvelle feuille bien que la feuille n'est pas supprimée.

NB: le bouton extraire permet d'exécuter le module 1

 

[Dranreb]

Bonjour.
Quelle est cette instruction ?

 

[Messan]

Bonjour.
Quelle est cette instruction ?

Rebonjour mon grand,

Voici l'instruction: la ligne coloriée est l'instruction en question (qui demande débogage quand j'ajoute une feuille et exécute le code)

For I = 1 To UBound(TD) 'boucle 1 : sur toutes les date I du tableau des dates TD
For J = 1 To UBound(TD) 'boucle 2 : sur toutes les date J du tabeau des dates TD
If I <> J Then 'condition : si I est différente de J
If CInt(Split(TD(I), "-")(0)) < CInt(Split(TD(J), "-")(0)) Then 'condition 2 : si le premier chiffre avant le tiret a date TD(I)est supérieur au premier chiffre avant le tiret de la date TD(J)
TMP = TD(J): TD(J) = TD(I): TD(I) = TMP 'définit la temporaire TMP, TD(J) devient TD(I),TD(I) devient la temporaire TMP (soit TMP(J)), inversion de l'ordre des dates
End If 'fin de la condition 2
End If 'fin de la condition 1

 

[Dranreb]

Mettez des espions lors du débogage pour vérifier les valeurs de vos Split(TD(I et J)(0). Peut être que ce n'est pas numérique. Peut être qu'en prenant Val(TD(I)) ça passerait mieux: il s'arrêterait au 1er caractère non numérique et renverrait 0 s'il n'aura trouvé aucun chiffre,
Vous devriez peut être aussi ne prendre plus haut que les Sheets(I).Name Like "*-* ans"

 

[Messan]

Mettez des espions lors du débogage pour vérifier les valeurs de vos Split(TD(I et J)(0). Peut être que ce n'est pas numérique. Peut être qu'en prenant Val(TD(I)) ça passerait mieux: il s'arrêterait au 1er caractère non numérique et renverrait 0 s'il n'aura trouvé aucun chiffre,
Vous devriez peut être aussi ne prendre plus haut que les Sheets(I).Name Like "*-* ans"

S'il vous plaît grand je n'arrive pas à le faire.
Doléances si vous pouvez me corriger directement le fichier ci joint.
Essayer d'ajouter une feuille et cliquer sur le bouton <<exécuter>> ou <<module 1>>et vous verrez le bug.

J'avoue que je suis un novice en VBA

 

[Dranreb]

Je ne vois bouton ni "exécuter" ni "module 1". Il y a "Extraire" et "Mise en forme"
et en exécutant Macro1 de Module1 après avoir ajouté une feuille je n'ai pas eu de plantage.

 

[Dranreb]

En l'exécutant une seconde fois j'ai eu un plantage là où vous dites à cause d'une "Feuill9" parmi les noms stockés en tableau TD. Pourquoi ne limitez vous pas le contenu de ce tableau aux noms qui sont Like "*-* ans" ? If Sheets(I).Name Like "*-* ans" Then serait même plus simple que If Not Sheets(I).Name = "Feuil1" And Not Sheets(I).Name = "Supérieur à 22" Then

 

[Messan]

En l'exécutant une seconde fois j'ai eu un plantage là où vous dites à cause d'une "Feuill9" parmi les noms stockés en tableau TD. Pourquoi ne limitez vous pas le contenu de ce tableau aux noms qui sont Like "*-* ans" ? If Sheets(I).Name Like "*-* ans" Then serait même plus simple que If Not Sheets(I).Name = "Feuil1" And Not Sheets(I).Name = "Supérieur à 22" Then

S'il vous plaît j'aurai d'autres données à insérer sur de nouvelles feuilles.

Que quelqu'un m'aide en revoyant le code de façon à pouvoir ajouter des feuilles (pas via VBA) sans plantage

 

[Dranreb]

Peut être qu'il faudrait tout simplement ne plus supprimer de feuille du tout nulle part, non ?
Peut être en reprogrammant tout ça d'une façon complètement différente …

 

[Messan]

Peut être qu'il faudrait tout simplement ne plus supprimer de feuille du tout nulle part, non ?
Peut être en reprogrammant tout ça d'une façon complètement différente …

Bonjour

Oui bonne idée de ne pas supprimer les feuilles. Mais je ne peux pas reprogrammer. D'où je continue de solliciter votre aide s'il vous plaît

 

[Dranreb]

Bonjour.
Pourquoi ne pouvez vous pas reprogrammer ça ?
De mon coté j'ai déjà commencé une toute nouvelle procédure d'éclatement par tranches d'ages de la 1ère feuille. Mais comme j'utilise de toute façon pour cela un outil qui effectue un classement, auriez vous une préférence quant à l'ordre dans lequel ça se retrouveraient dans les feuilles par tranche d'age ? Est-ce que vous souhaiteriez que je mette tout sous forme de tableaux, y compris les données ?

 

[Messan]

Bonjour.
Pourquoi ne pouvez vous pas reprogrammer ça ?
De mon coté j'ai déjà commencé une toute nouvelle procédure d'éclatement par tranches d'ages de la 1ère feuille. Mais comme j'utilise de toute façon pour cela un outil qui effectue un classement, auriez vous une préférence quant à l'ordre dans lequel ça se retrouveraient dans les feuilles par tranche d'age ? Est-ce que vous souhaiteriez que je mette tout sous forme de tableaux, y compris les données ?

Rebonjour,
Pour l'instant je propose que vous les mettez sous forme de tableau