Discussion :

[casavba]

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

[Invité]

Bonjour

Le meilleur moyen est de :

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

• Code :

  Sélectionner tout - Visualiser dans une fenêtre à part

  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

[Godzestla]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casavba]

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

[Godzestla]

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é.

[Commodore]

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.

[casavba]

Merci de votre aide