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.
 

Fichiers joints

fanch55

XLDnaute Nouveau
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

XLDnaute Nouveau
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
 
Haut Bas