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

[issamien]

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]

Bonsoir issamien, bienvenue sur XLD,

Il faut donc 2 TextBoxes pour avoir les 2 nombres :

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]

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 :

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.

 

[fanch55]

Salut, dans le code du commandbutton6 du fichier joint, tu

1. as inversé les 2 textbox
2. n'as pas adapté l'adresse de la cellule cible où la série doit être déclinée ( en mode colonne )

 

[issamien]

Salut, dans le code du commandbutton6 du fichier joint, tu

1. as inversé les 2 textbox
2. n'as pas adapté l'adresse de la cellule cible où la série doit être déclinée ( en mode colonne )

bonjour,

Effectivement j'avais inverser les deux textboxes, je ai finalement réussie à faire ce programme

Mercii pour votre retour