XL 2010 Incrementer une série à partir d'un numéro que j'introduis sur un txtbox d'un userfom

issamien

XLDnaute Nouveau
Bonjour,

je cherche une formule VBA qui me permet d'incrémenter un série à partir d'un numéro que j'introduis dans un textbox d'un userfom;

par exemple j'introduit le numéro de début 1005 et la quantité 50, je dois avoir comme résultat
1005
1006
1007
...
1055

Merci les amis :)
 

job75

XLDnaute Barbatruc
Bonsoir issamien, bienvenue sur XLD,

Il faut donc 2 TextBoxes pour avoir les 2 nombres :
VB:
Sub Test()
On Error Resume Next
With [A2] 'à adapter
    .Value = Val(TextBox1)
    .Resize(TextBox2).DataSeries
    .Offset(TextBox2).Resize(Rows.Count - TextBox2 - .Row + 1).ClearContents 'RAZ dessous
End With
End Sub
Bonne nuit.
 

issamien

XLDnaute Nouveau
Bonsoir Job75, merci enormenet pour votre retour,
ci-joint mon fichier je n'arrive pas à faire ce que vous m'avez décris

Merci beaucoup si vous me montrer ou je peux introduire le code exactement

Bonsoir issamien, bienvenue sur XLD,

Il faut donc 2 TextBoxes pour avoir les 2 nombres :
VB:
Sub Test()
On Error Resume Next
With [A2] 'à adapter
    .Value = Val(TextBox1)
    .Resize(TextBox2).DataSeries
    .Offset(TextBox2).Resize(Rows.Count - TextBox2 - .Row + 1).ClearContents 'RAZ dessous
End With
End Sub
Bonne nuit.
 

Pièces jointes

  • Test VBA pour inventaire.xlsm
    27.9 KB · Affichages: 15

Discussions similaires

Statistiques des forums

Discussions
311 729
Messages
2 081 971
Membres
101 852
dernier inscrit
dthi16088