Bonjour à tous
Voila j'ai crée un fichier excel ou je il ya deux feuilles "MODELE" et "LISTE".
J'ai crée un code vba qui me permet de créer une copie de la feuille MODELE avec les données récupérées de la feuille LISTE.
Tout marche a merveille sauf que si je cache la feuille MODELE toutes les autres copies sont aussi cachées.
L'idée c'est de pouvoir cacher la feuille MODELE mais quand je demande à faire des copies les copies sortent normales sans qu'elles soient cachées.
Je vous mets ci-dessous le code vba
J'ai essayé le code Sheets(Sheets.Count).Visible = True
Mais je ne sais pas pourkoi il me change le nom de la page source MODELE qui devient MLODELE (2) du coup apres tout mes codes sont faussés.
Merci tout le monde
Public Sub CreerFeuilles()
Dim oShModele As Worksheet
Dim oShListe As Worksheet
Dim iLigFin As Integer
Dim iLig As Integer
Dim oShNew As Worksheet
Dim sNomOnglet As String
Set oShModele = Worksheets("Modele")
Set oShListe = Worksheets("LISTE")
iLigFin = oShListe.Range("C" & Rows.Count).End(xlUp).Row
For iLig = 2 To iLigFin
If oShListe.Range("C" & iLig).Value <> "" Then
sNomOnglet = oShListe.Range("B" & iLig).Value & " " & oShListe.Range("C" & iLig).Value
If OngletExist(sNomOnglet) Then
Set oShNew = Worksheets(sNomOnglet)
Else
oShModele.Copy After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = sNomOnglet
Set oShNew = Worksheets(Worksheets.Count)
End If
oShNew.Range("D5").Value = oShListe.Range("B" & iLig).Value 'Nom
oShNew.Range("D6").Value = oShListe.Range("C" & iLig).Value 'Prénom
'lien hypertext
oShNew.Hyperlinks.Add Anchor:=oShListe.Range("B" & iLig), Address:="", SubAddress:= _
"'" & sNomOnglet & "'!A1", TextToDisplay:=oShListe.Range("B" & iLig).Value
Set oShNew = Nothing
End If
Next iLig
oShListe.Select
Set oShListe = Nothing
Set oShModele = Nothing
End Sub
Voila j'ai crée un fichier excel ou je il ya deux feuilles "MODELE" et "LISTE".
J'ai crée un code vba qui me permet de créer une copie de la feuille MODELE avec les données récupérées de la feuille LISTE.
Tout marche a merveille sauf que si je cache la feuille MODELE toutes les autres copies sont aussi cachées.
L'idée c'est de pouvoir cacher la feuille MODELE mais quand je demande à faire des copies les copies sortent normales sans qu'elles soient cachées.
Je vous mets ci-dessous le code vba
J'ai essayé le code Sheets(Sheets.Count).Visible = True
Mais je ne sais pas pourkoi il me change le nom de la page source MODELE qui devient MLODELE (2) du coup apres tout mes codes sont faussés.
Merci tout le monde
Public Sub CreerFeuilles()
Dim oShModele As Worksheet
Dim oShListe As Worksheet
Dim iLigFin As Integer
Dim iLig As Integer
Dim oShNew As Worksheet
Dim sNomOnglet As String
Set oShModele = Worksheets("Modele")
Set oShListe = Worksheets("LISTE")
iLigFin = oShListe.Range("C" & Rows.Count).End(xlUp).Row
For iLig = 2 To iLigFin
If oShListe.Range("C" & iLig).Value <> "" Then
sNomOnglet = oShListe.Range("B" & iLig).Value & " " & oShListe.Range("C" & iLig).Value
If OngletExist(sNomOnglet) Then
Set oShNew = Worksheets(sNomOnglet)
Else
oShModele.Copy After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = sNomOnglet
Set oShNew = Worksheets(Worksheets.Count)
End If
oShNew.Range("D5").Value = oShListe.Range("B" & iLig).Value 'Nom
oShNew.Range("D6").Value = oShListe.Range("C" & iLig).Value 'Prénom
'lien hypertext
oShNew.Hyperlinks.Add Anchor:=oShListe.Range("B" & iLig), Address:="", SubAddress:= _
"'" & sNomOnglet & "'!A1", TextToDisplay:=oShListe.Range("B" & iLig).Value
Set oShNew = Nothing
End If
Next iLig
oShListe.Select
Set oShListe = Nothing
Set oShModele = Nothing
End Sub
:
