Générer une suite de nombre

Bonjour,
J'ai un petit souci que je n'arrive pas à résoudre.

En fait, je voudrais générer une suite numérique (ex: de 1 à 100) càd que à chaque fois que j'éxécute mon code, il me génére un numéro mais pas aléatoirement, je voudrais une suite .
1
2
...
100

jusqu'à épuisement des nombre.

Sachant par exemple si j'exécute mon code 3 fois (1, 2, 3) et je ferme mon fichier en le sauvegardant bien sûr. Je réouvre le fichier et j'exécute mon code une seule fois normalement il doit m'afficher 4 et ainsi de suite jusqu'à la fin.
Il devra pas générer un nombre deux fois ou plus.

Merci d'avance pour votre aide

Bonjour

Le meilleur moyen est de :

• Stocker la valeur dans un feuille.
• Incrémenter une boucle de type
• Code:

  ---

  For i = ... to

  ---

  avec la valeur récupérée dans la cellule de la feuille
• A la fin de ta boucle, stocker la nouvelle valeur dans ta feuille.

Starec

Salut,

je te suggère de simplement stocker dans une cellule la valeur de ton dernier numéro utilisé, initialisé à 0 au départ. Et puis à chaque utilisation, tu fais + 1 et tu boucles.

Exemple:roll:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub suite(occur As Long) Dim start_value As Long Dim idx As Long   start_value = Sheets("Sheet1").Range("A1") + 1 For idx = start_value To start_value + occur - 1 ' ton code Next idx start_value = idx Sheets("Sheet1").Range("A1") = start_value End Sub

---

Merci Bcp,
J'avais pas pensé à ça.
mais ne peut on pas le faire sans stocker dans la feuille la valeur

Tu peux sauver ton compteur dans un fichier externe, style .INI ou .XML ou .TXT, mais c'est un peu plus fastidieux à mettre en oeuvre, surtout si ton fichier est partagé.

:roll:

si le fait d'avoir une feuille contenant des données "sensibles" te gêne, tu peux toujours la paramétrer en xlVeryHidden pour qu'elle ne soit accessible que via le code.

Merci de votre aide