Création feuille supplémentaire en fonction d'une liste Fermé

Question

Bonjour,

Voici mon soucis :

Dans ma feuille 1, j'ai une liste dans une colonne (A), je souhaiterais copier une feuille type présente dans le fichier (ex Feuil 2) et la mettre à la suite des autres, que le nom de cette nouvelle feuille ait le nom de la case de la colonne A. En bonus, tant qu'à faire, je souhaiterais que ce nom soit aussi dans la case B2 de la nouvelle Feuille et qu'un lien hypertexte s'ajoute dans la colonne 5 de la feuille 1 avec le nom de de la feuille qui est identique à B2.

Pensez vous pouvoir m'aider ?

Je sais un peu utiliser VBA bien sûr.

Merci d'avance

via55 · Answer

Bonjour

Macro à mettre dans un module de l'éditeur VBA et à lacer depuis la feuil1 à condition d'avoir crée aussi préalablement une feuille appelée Modèle
Sub creation_feuilles()

ligne = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row ' drnière ligne remplie en A
For n = 1 To ligne 'boucle depuis ligne 1 à la dernière
nom = Range("A" & n) ' nom à donner
    Sheets("Modele").Select
    Sheets("Modele").Copy After:=Sheets(Sheets.Count) ' copie Modèle en dernier
    Sheets("Modele (2)").Select
    Sheets("Modele (2)").Name = nom ' renomme feuilel crée
    Range("B2").Select
    ActiveCell.FormulaR1C1 = nom ' met le nom aussi en B2
    Sheets("Feuil1").Select
    Range("E" & n).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        nom & "!A1", TextToDisplay:=nom ' met le lien hypertexet en col E de Feuil1
   Next
End Sub
 Cdlmnt
Via

via55 · Answer

Tu avais parlé de la colonne A !!
La colonne de la liste est mentionnée 1ere ligne ici 1; change le 1 en 3 pour la colonne C
Comme cette instruction recherche la dernière ligne remplie si tu ajoutes des noms pas de souci
ligne = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row ' drnière ligne remplie en A

La boucle part de la ligne 1 dans l'instruction suivante, rempale le 1 par 8 pour partir de la ligen 8
For n = 1 To ligne 

La colonne de recherche est aussi définie ici, change alors le A en C
nom = Range("A" & n) ' nom à donner

via55 · Answer

Oui si tu rajoutes des noms après il faut vérifier que la feuille n'existe pas déjà alors après la ligne 
nom = Range("A" & n) ' nom à donner
rajoute celles ci :
dj = 0
For x = 1 To Sheets.Count
If Sheets(x).Name = nom Then dj = 1
 Next
If dj = 0 Then
 
puis avant le Next qui est avant le End sub rajoute 
End If

via55 · Answer

Re

Exact pour qu'un nom avec espace soit accepté il doit être encadré par des apostrophes
Modifie la ligne d e macro qui récupère le nom ainsi
nom = "'" & Range("A" & n)  &"'"
avant et après le & c'est bien guillemet apostrophe guillemet  attention

Cdlmnt
Via

via55 · Answer

Renvoie moi le fichier via mon-partage.fr que je puisse voir ce qui bug

Création feuille supplémentaire en fonction d'une liste

5 réponses

Discussions similaires