Création d'une boucle en VBA ...

[cissou69]

Bonsoir,

J'ai honte mais bon on va dire qu'on est vendredi soir...

Voici un bout de mon code :

If Left(lesdatas(N, 5), 7) = "Fichier" And Left(lesdatas(N, 11), 4) = "1141" Then
                    Fichier = lesdatas(N, 6)
                    Nom_Onglet = lesdatas(N, 2) & lesdatas(N, 1)
                    FileToOpen = "H:\CDR\LIMSattach\" & Fichier
                    Workbooks.Open Filename:=FileToOpen
                    Sheets(1).Select
                    Sheets(1).Copy After:=Workbooks(1).Sheets(2)
                    Sheets(3).Name = Nom_Onglet
                    Workbooks(Fichier).Close SaveChanges:=False
                    Application.CutCopyMode = False
                    Worksheets("Résultats d'analyse").Cells(c.Row, d.Column).Value = "cf onglet"
                End If

La partie Left(lesdatas(N, 11), 4) = "1141" peut prendre une vingtaine de valeurs non successives. Plutôt que de recopier vingt fois ce bout de code, j'aimerais créer une boucle ou une répétition en fonction de cette valeur. Par ailleurs cette valeur peut être composée de 4 ou 5 chiffres.

Merci de votre aide,

 

[kjin]

Re : Création d'une boucle en VBA ...

Bonsoir,
Stockes les valeurs successives dans un tableau temporaire puis boucle sur le tableau...
Vu le peu d'infos fourni...
A+
kjin

 

[cissou69]

Re : Création d'une boucle en VBA ...

Merci j'essaierai des que possible.