Genereration numéro de serie

Bonjour tous le monde,

Un petite question :

Je voudrais générer des numéros de série a partir de 2 données : le premier numéro de série et la quantité de numéro à générer.

Aujourd'hui je met dans la première ligne mon premier numéro ,dans le seconde mon second numéro de série, je les sélectionnes et je descend jusqu’à atteindre la quantité voulu.

Je voudrais jus te un peu automatisé tous ceci .

Merci ^pour vos retour

Bonjour,

voici un exemple avec un pas de 1

Sub test()
range("A1") = 1  'première valeur de la série
range("A1").DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=1, Stop:=10, Trend:=False
End Sub

Merci i20100

Effectivement ç'est mais comment faire pour démarrer a partir du numéro 20 par exemple et lui dire que j'en veux 3000 sans éditer le code ?

re,

en supposant que la série doit débuter sur la sélection en cours,

Sub test()
début = Application.InputBox("chiffre du Début", Type:=1)
fin = Application.InputBox("chiffre de Fin", Type:=1)

Selection = début
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=1, Stop:=fin, Trend:=False
End Sub

on peux aussi ajouter une ligne de code pour demander à l'utilisateur de sélectionner une cellule.

Super ca commence a ressembler a ce que je veux

je t’embête encore un peu .

Peut t"on supprimé la partis fin pour le dire que je veux 100 numéro par exemple a partir de celui du début

re,

est ce que le pas sera toujours de 1 ?

oui systématiquement

re,

à tester,

Sub test()
début = Application.InputBox("chiffre du Début", Type:=1)
nbr = Application.InputBox("Nombre de numéro", Type:=1)
fin = début + (nbr - 1)

Selection = début
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=1, Stop:=fin, Trend:=False
End Sub

c'est exactement ça

Un grand merci pour ton aide ...

Bonne journée

Merci pour ce retour, au plaisir!

Je peut abuser ?

Mon chiffre de début est sur une feuille de mon classeur en G6 et la quantité désirer en D2 , c'est possible de recuper ces 2 données plutôt que d'avoir à les renseigner ?

Je me suis fait un bouton pour lancer la macro et je me demandais si on pouvais tout simplement lancer tout ça sans rien faire d'autre

Voilà mon fichier

Je veux générer les chiffres sous l'onglet compte en récupérantles données de l'onglet 1 en G6 pour le premier numéro et en D3 pour la quantité

Ce code fonctionne, mais je passe par un copier coller, au lieu de récupérer directement les données du classeur 1

Sub Macro()

'

' Macro1 Macro

'

'

Sheets("1").Select

Range("G6").Select

Selection.Copy

Sheets("compte").Select

Range("h1").Select

ActiveSheet.Paste

Sheets("1").Select

Range("D3").Select

Selection.Copy

Sheets("compte").Select

Range("a1").Select

ActiveSheet.Paste

début = Range("h1").Value

nbr = Range("a1").Value

fin = début + (nbr - 1)

Selection = début

Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=1, Stop:=fin, Trend:=False

End Sub

re,

à tester,

Sub test()
début = Sheets("1").Range("G6").Value
nbr = Sheets("1").Range("D3")
fin = début + (nbr - 1)

Selection = début
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=1, Stop:=fin, Trend:=False
End Sub

Private Sub CommandButton1_Click()
test
End Sub

Salut,

Super là j'y suis

Encore merci pour ton aide

Merci pour ce retour, au plaisir!