Discussion :

[julianjexel]

Bonjour à tous,

Pour information, je tiens à préciser que je fais mes début dans VBA donc pardonnez moi pour mes futures erreurs de langage et mon ignorance! Je fais appel à vous car je plafonne (connaissance limitée)

Composition de mon classeur:
- feuille1: tableau de données
- feuille2: fiche (trame type)

Mon objectif -> créer une ou plusieurs fiches selon mes sélections dans le tableau de données (référence 1ère colonne "lot").

Par exemple, lorsque je clique sur le lot 10 et 20, j'ai automatiquement 2 fiches qui se créaient. Ces fiches suivraient ma trame qui est établie dans ma 2ème feuille avec les infos présentes dans ma 1ère feuille.

De plus, je souhaiterai créer un bouton me permettant une réinitialisation vers mon classeur d'origine (juste feuille 1 &2). Cela me serait pratique à la suite d'une impression de toutes ces nouvelles fiches créées et m'éviterait de supprimer 1à1 mes nouvelles feuilles.

Voila j'espère avoir était clair et que vous pourrez m'apporter votre aide! Merci par avance

[MlNOU]

Bonjour,

Pour créer une nouvelle fiche et la nommer(si tu le desires) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
   Sheets.Add After:=Sheets(Sheets.Count) 'creation feuille
    ActiveSheet.Name = "nomfeuille"

Ensuite tu copie le contenu de ta trame dans la nouvelle feuille avec la fonction copy.

En ce qui concerne la supression des feuilles:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("FeuilX").Delete

Voila en esperant t'avoir aidé un peu.

Cordialement MlNOU.

[EngueEngue]

Bonjour,
En ce qui concerne la supression des feuilles:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("FeuilX").Delete

.

Pour les virer toutes d'un coup

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 3 to Sheets.Count
 Sheets(i).Delete
Next i

[MlNOU]

Bonjour EngueEngue,

Laisse leur le plaisir de reflechir par eux meme , tu gaches tout le plaisir de la reflexion ^^

Et c'est effectivement la methode pour toute les supprimer.


Cordialement MlNOU.

[julianjexel]

Merci à tous pour votre aide cela m'a permis d'arriver au résultat souhaité!

Cependant, j'ai un problème qui persiste lorsque je lance l'action de suppression de mes nouvelles feuilles. J'ai ceci qui s'affiche:

"Erreur d'exécution '9': L'indice n'appartient pas à la sélection "

et pourtant lorsque je mets "fin" et je clique une nouvelle fois sur mon bouton cela remarche... alors je ne comprends pas. Y a-t-il un nombre maximum de suppression?

Merci encore pour votre aide

[MlNOU]

Bonjour,

Prends le temps de déboguer ton code "pas à pas" avec F8 et repère la ligne où tu as un problème et je pense que tu pouras la corriger seul.

Sinon on te donnera un coup de main ( de pouce , de pied ect) .

Et je ne pense pas qu'il y ai un maximum de suppression ( à confirmer ).

Cordialement MlNOU.

[EngueEngue]

My fault...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = Sheets.Count to 3 step -1
 Sheets(i).Delete
Next i

[julianjexel]

Un grand merci pour votre aide EngueEngue et Minou!