Probleme vba pour creation automatique et update de feuilles

  • Initiateur de la discussion Initiateur de la discussion Grek
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Grek

XLDnaute Nouveau
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 :
Code:
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
 
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 :

Code:
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
@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour