Nouvelle incrémentation de nombres ...

[Tintin71]

Bonjour le forum.
J'ai encore besoin d'aide concernant l'incrémentation de nombres par blocs de 6.
Cette fois, il s'agit des nombres suivants :
11-12-13-14-15-16 / 21-22-23-24-25-26 etc... jusqu'à 210.
Voir le fichier ci-joint.
Merci d'avance pour votre aide.
Tintin71

 

[dg62]

Re : Nouvelle incrémentation de nombres ...

Bonjour tintin

Sub incremente()
Dim i As Byte
Dim j As Integer
Dim Limin As Integer
Dim Limax As Integer
Limin = 10
Limax = 210
j = 1
Do While Not Limin = Limax
For i = 1 To 6
 Range("A" & j) = Limin + i
 j = j + 1
Next i
Limin = Limin + 10
 
Loop
 
End Sub

 

[mjo]

Re : Nouvelle incrémentation de nombres ...

Bonjour,

A1 : =SI(LIGNE()>216;"";ENT((LIGNE()+5)/6)*10+MOD(LIGNE()-1;6)+1)

mjo

 

[Pyrof]

Re : Nouvelle incrémentation de nombres ...

Bonjour,

Voici une autre méthode

 

[mjo]

Re : Nouvelle incrémentation de nombres ...

Re,

Autre formule :
A1 : 1
A2 : =SI(MOD(NB(A$1:A1);6)=0;A1+5;A1+1)

mjo

 

[Tintin71]

Re : Nouvelle incrémentation de nombres ...

Rebonjour à tous.
Je vous remercie pour avoir tous essayé de résoudre mon problème.
En fait, vous l'avez tous résolu.
Merci encore mille fois.
A+++
Tintin71