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

job75 à dit:

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.

Cliquez pour agrandir...

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 )

fanch55 à dit:

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 )

Cliquez pour agrandir...