Probleme vba pour creation automatique et update de feuilles

[Grek]

Bonjour,
Voici mon problème : Je souhaite créer un classeur excel dans lequel les feuilles sont créées automatiquement sur base d'une feuille "template" (voir fichier ci-joint)
Pas de problème pour créer mes feuilles sur base de ma liste avec le code ci-dessous :

Sheets("Main").Activate
Range("B3").Select
Do Until ActiveCell.Value = "END"
If ActiveCell.Value <> "" Then
varFundName = Left(ActiveCell.Value, 31)
Sheets("Template").Select
Sheets("Template").Copy Before:=Sheets(1)
Sheets("Template (2)").Name = varFundName
etc.

Le problème par contre est que pour chaque "Nom" (fund name) correspond des codes (ISIN), des indices, etc.
Donc la je ne vois pas trop comment faire que pour que la macro reconnaise quels codes ISIN appartiennent à quels fonds, etc.
J ai essayé en identifiant le fond puis un ActiveCell.Offset jusqu a la colonne des ISIN puis ensuite une selection xldown. Problème, ca necessite un interligne entre chaque fonds et ca pose problème lorsqu il n y a pas d'ISIN.
Le but etant tjr de copier ces données dans mon template…

Merci d avance pour votre aide,

Gregory

 

[skoobi]

Re : Probleme vba pour creation automatique et update de feuilles

Donc la je ne vois pas trop comment faire que pour que la macro reconnaise quels codes ISIN appartiennent à quels fonds, etc.
J ai essayé en identifiant le fond
Gregory

Bonjour,
de quoi parles-tu?
Où ce trouve se "fond"?

 

[Staple1600]

Re : Probleme vba pour creation automatique et update de feuilles

Bonjour



Ton fichier joint n'est pas passé.

(Inférieur à 50 Ko et zippé)

 

[Grek]

Re : Probleme vba pour creation automatique et update de feuilles

Ah oui en effet !
Voici le fichier épuré afin de prendre moins de place. Ce sera bcp plus clair maintenant.
Merci,

 

[Grek]

Re : Probleme vba pour creation automatique et update de feuilles

Personne ne peut m'aider ?
Si qq'un pouvait au moins me donner une piste...

Merci, et bon dimanche

 

[Pierrot93]

Re : Probleme vba pour creation automatique et update de feuilles

Bonsoir Grek, Staple, Skobi

pas sur d'avoir tout compris, mais essaye peut être le code ci dessous :

Sub test()
Dim c As Range
With Sheets("Main")
    For Each c In .Range("B3:B" & .Range("B65536").End(xlUp).Row)
        If c.Value <> "" Then
            Sheets("Template").Copy Before:=Sheets(1)
            ActiveSheet.Name = c.Value
        End If
    Next c
End With
End Sub

bonne soirée
@+