Export Macro (x nouvelles feuilles)

[Madjer]

Bonjour à tous !

Je me permets de vous solliciter pour un nouveau problème !

Je vous invite à consulter mon fichier joint. Voici le topo :
J'ai une macro (le gros bouton) qui me permet d'afficher une fenêtre pop-up,
Puis de copier le contenu de ce pop-up dans une nouvelle feuille "Analyse"
Jusqu'ici tout fonctionne très bien.

Le problème est le suivant :

J'aimerais qu'il me crée autant de nouvelles feuilles que de fois où je clique sur mon bouton.

Jusqu'à présent je suis forcé de supprimer la nouvelle feuille créer pour pouvoir générer un nouveau rapport.

Voilà ! Merci à ceux qui prendront la peine de lire et de chercher ! 😉


J'ai également une petite question subsidiaire, mais je vais en rester là pour l'instant !

 

[robertjamin]

Re : Export Macro (x nouvelles feuilles)

Bonjour,

Modification apportée pour nommer vos feuilles Analyse1, Analyse2 etc avec Index qui s'incrémente de 1 à chaque ajout de feuille

Sheets.Add
Index = Sheets.Count
ActiveSheet.Name = "Analyse" & Index - 1

Sheets("Analyse" & Index - 1).Cells(2, 1).Value = " Analyse des articles : " & Chr(10) & _
"______________________" & Chr(10) & _
" " & Chr(10) & _
" * Liens DEF / INDUS : " & vTab & NbREF & " sur " & TotalV & "." & Chr(10) & _
" " & Chr(10) & _
" Analyse des fichiers : " & Chr(10) & _
"______________________" & Chr(10) & _
" " & Chr(10) & _
" * Fichiers PRT liés : " & NbPRT & " sur " & TotalV & "." & Chr(10) & _
" * Fichiers DRW liés : " & NbDRW & " sur " & TotalV & "." & Chr(10)

Sheets("Analyse" & Index - 1).Cells(1, 1).Value = classe

 

[camarchepas]

Re : Export Macro (x nouvelles feuilles)

Bonjour Madjer , Robert,

Petite variante

 

[Madjer]

Re : Export Macro (x nouvelles feuilles)

@robert, camarchepas

Merci ! C'est très propre, et ça fonctionne très bien, je garde vos deux méthodes sous le coude ! 😉

Pour la petite question subsidiaire, je souhaiterais exporter le dernier mot de la colonne "Contexte" (colonne 'M').
Ma formule fonctionne très bien. Elle est bien intégré dans la macro dans la variable "classe".
Cependant, je n'arrive pas à l'afficher dans une MsgBox, au contraire des autres variables "NbPRT" NbDRW" par exemple qui fonctionnent très bien !

Voilà, je vous remercie d'avance bien sûr 😉

 

[camarchepas]

Re : Export Macro (x nouvelles feuilles)

Re,

Je pense qu'il y a beaucoup plus simple comme formule , C'est juste que je ne sais pas trop ce que tu veux afficher ?

 

[Madjer]

Re : Export Macro (x nouvelles feuilles)

En fait, je souhaite afficher la dernière partie d'une chaine de caractère (séparateur "/" et non pas "").
Sur mon exemple, l'idée serait d'afficher "Chaine" dans une MsgBox

"Chaine" car cela correspond à la dernière partie de la séquence colonne 13, ligne "dernière ligne de la selection filtrée"