XL 2010 incrémenter une série numérique

issamien

XLDnaute Nouveau
Bonjour la communauté,

Je veux incrémenter une série à partir d'un numéro que j'introduis dans un textbox1 jusqu'à atteindre le nombre que je souhaite, par exemple
j'introduis le code de début 1000 et une quantité 50 que j'introduis dans un textbox2, je dois obtenir
1000
1001
1002
...
1049
j'ai essayé ce code

Private Sub CommandButton6_Click()
On Error Resume Next
With Sheets("inventaire de base").Activate
Range("E1048576").Select
Selection.End(xlUp).Select
Selection.Offset(1, 0).Select
.Value = Val(txtQuantite)
.Resize(Txtcodededebut).DataSeries
.Offset(Txtcodededebut).Resize(Rows.Count - Txtcodededebut - .Row + 1).ClearContents 'RAZ dessous
End With
End Sub
Je ne sais pas elle est ou l'erreur.
 

issamien

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc
Re

Essaies comme ceci
VB:
Private Sub CommandButton6_Click()
On Error Resume Next
With Sheets("inventaire de base").Range("E1048576").End(xlUp).Offset(1, 0)
.Value = Val(txtQuantite)
.Resize(Txtcodededebut).DataSeries
.Offset(Txtcodededebut).Resize(Rows.Count - Txtcodededebut - .Row + 1).ClearContents 'RAZ dessous
End With
End Sub
 

patricktoulon

XLDnaute Barbatruc
bonjour
et faire joujou avec evaluate ça te chante pas ?

VB:
Sub test()
    tabl = Evaluate("ROW(1000:" & 1050 & ")")    'créé un tableau 2 dim de 51 lignes sur 1 colonne  et rempli des numéro correspondant au index
    MsgBox UBound(tabl)
    Cells(1, 1).Resize(UBound(tabl), 1) = tabl
End Sub
rigolo non?
 

patricktoulon

XLDnaute Barbatruc
re
oui si tu veux mais entendons nous bien c'est l'expression évaluée qui est limité en terme de caractère et qui demande une certaine rigueur en syntaxe

d'autre part j'aime bien m'en servir en vba pour certaines formules matricielles qui exigent les touche ctrl mag+enter alors que dans une fonction vba walouh!!!

et tout pleins de petit détails comme ça ;)
 

Staple1600

XLDnaute Barbatruc
Re,

=>patricktoulon
Moi, je ne veux rien ;)
J'ai juste noté que:
1) le demandeur avait déjà eu une réponse de job75 dans son autre fil
2) qu'il n'a pas su l'implémenter seul dans son classeur
J'en déduis donc qu'il débute en VBA.
Donc personnellement, j'attendrai un peu avant de lui proposer de l'Array, de l'Evaluate & Cie ;)
 

issamien

XLDnaute Nouveau
Re,

=>patricktoulon
Moi, je ne veux rien ;)
J'ai juste noté que:
1) le demandeur avait déjà eu une réponse de job75 dans son autre fil
2) qu'il n'a pas su l'implémenter seul dans son classeur
J'en déduis donc qu'il débute en VBA.
Donc personnellement, j'attendrai un peu avant de lui proposer de l'Array, de l'Evaluate & Cie ;)
Effectivement staple1600 je débute sur VBA, mais je maîtrise quelques notions qui me permettent de me débrouiller et créer des programmes à moi.

Si vous avez d'autres propostitions qui vont me servir n'hésitez pas mon ami.
Merci encore une fois de l'intérêt que vou avez porter à mon poste vous les deux.
 

Statistiques des forums

Discussions
311 720
Messages
2 081 902
Membres
101 834
dernier inscrit
Jeremy06510