Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

I

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.
 
Trier par date Trier par votes
I

issamien

XLDnaute Nouveau
Vote positif 0 Vote négatif

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
 
Vote positif 0 Vote négatif

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?
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
re
bonjour Staple1600
ben a tout ceux qui prendront la peine de lire et peut être même tester
c'est encore un exemple étonnant de evaluate(mon joujou préféré) qui non seulement crée le tableau mais y met les nombres a l’intérieur
 
Vote positif 0 Vote négatif

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
 
Vote positif 0 Vote négatif

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
 
Vote positif 0 Vote négatif
I

issamien

XLDnaute Nouveau
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.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

V
  • Question
Microsoft 365 Actualisation formule écrite via macro en liaison avec une BBD
Réponses
2
Affichages
1 K
vynmarius
V
S
  • Question
Incrémenter un numéro à l'impression de chaque pages d'une même feuille
Réponses
1
Affichages
2 K
silverskin
S
M
[REF] Wiki 4 de MichelXld (Fonctions, Evenements, Dates et calendriers, Flash , Ooo)
Réponses
0
Affichages
35 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…