Discussion :

[discus23]

Bonjour,

Voici un problème qui me paraît pourtant simple, mais autour duquel je tourne sans trouver aucune solution.

Je souhaite générer une liste en colonne :

1
1
1
1
2
2
2
2
3
3
3
3

avec deux paramètres :
- le premier qui indique le nombre de répétition, 4 dans l'exemple
- le second qu indique le nombre max que l'on répète, ici 3.

J'ai essayé plein de boucle dans tous les sens, mais rien de satisfaisant, et je n'y vois plus clair !!

Merci de votre aide.

[Libesa]

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
Sub Liste(myP1 As Long, myP2 As Long)
 
 Dim i As Long
 Dim j As Long
 Dim cpt As Long
 
 Dim shFeuil As Worksheet
 
 Set shFeuil = ThisWorkbook.Sheets("Feuil1")
 
 cpt = 0
 
 For i = 1 To myP2
 
    For j = 1 To myP1
 
        cpt = cpt + 1
 
        shFeuil.Cells(cpt, 1).Value = i
 
    Next j
 
 Next i
 
 
End Sub

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Test()
 
Call Numerotation(4, 3)
End Sub
 
Private Sub Numerotation(ByVal Pas As Integer, ByVal NbMax As Integer)
Dim i As Long
 
For i = 1 To Pas * NbMax Step Pas
    Range("A" & i).Resize(Pas, 1) = 1 + (i - 1) \ Pas
Next i
End Sub

[discus23]

Merci,

Tout cela marche nickel : Résolu !!

Si toutefois cela est possible, j'aurais aimé avoir des précisions sur le " \ Pas " ?

[mercatog]

L'opérateur \ permet de réaliser la division entière

19\5 donnera 3 alors que 19/5 donne 3.8

[discus23]

Ah oui d'accord, merci beaucoup !!