Bonjour à tous,

Je suis novice en VBA et je suis là pour avoir des conseils. Je voudrais insérer quelques lignes dans un codé déjà existant.

Ce code génère un nombre x de cas (voir le code ci-dessous) et je souhaiterais insérer une colonne (A exemple) où chaque ligne (x,A en exemple) sera rempli avec le chiffre "x" jusqu’à la dernière valeur de la boucle.

En espérant avoir était assez clair. Je vous remercie par avance de votre aide.

Cordialement,

Riilcy


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub Macro1()
'
' Macro1 Macro
Sheets("Combinatoire").Select
Columns("A:K").Select
Selection.ClearContents
 
 
Total = Sheets("Paramètres").Cells(4, 13)
saut = 1
 
 
Nbcritere = 0
For Numcritere = 1 To 11 Step 1
    If Sheets("Paramètres").Cells(4, Numcritere + 1) = "" Then
    Exit For
    Else
    Nbcritere = Nbcritere + 1
    End If
Next
 
For Numcritere = 1 To Nbcritere Step 1
Nb = Sheets("Paramètres").Cells(4, Numcritere + 1)
Nomcritere = Sheets("Paramètres").Cells(3, Numcritere + 1)
Sheets("Combinatoire").Cells(1, Numcritere) = Nomcritere
 
    For cycl = 1 To (Total / (saut * Nb)) Step 1
        For cas = 1 To Nb
        valeur = Sheets("Paramètres").Cells(cas + 4, Numcritere + 1)
            For repet = 1 To saut
            Sheets("Combinatoire").Cells((Nb * saut) * (cycl - 1) + saut * (cas - 1) + repet + 1, Numcritere) = valeur
            Next
        Next
    Next
 
saut = saut * Nb
 
Next
 
End Sub