XL 2016 Incrémenter valeur à un tableau par boucle for

  • Initiateur de la discussion Initiateur de la discussion BARNS
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

BARNS

XLDnaute Junior
Bonjour tout le monde,

Je souhaite créer un tableaux : avec 2 lignes et n colonne (n étant un nombre aléatoire).

Chaque case de la première ligne correspond au numéro de la boucle for
Chaque case de la deuxième ligne correspond a un nombre aléatoire

Je souhaite pouvoir retrouver n'importe quel nombre aléatoire par le biais de numéro d'une boucle et pouvoir l'utiliser en tant que variable.


VB:
Sub tabfor()

Dim n$
Dim i As Byte

n = Int(50 * Rnd) + 2



For i = 1 To n

n = Int(50 * Rnd) + 1

'création du tableau avec i =1 première ccolonne première ligne  et n (quand i=1) première colonne deuxième ligne



Next i

End Sub

Je crois que je dois générer une array mais comment incrémenter par boucle je ne sais pas.

La deuxième solution serait de pouvoir changer le nom de mes nombres aléatoire et de les appeler :
n1, n2, n3 ... Et ainsi pouvoir les appeler par leur nom plutôt que les chercher dans un tableau.

J'ai essayé un truc du style n & "i" mais ca ne marche pas ^^

Si quelqu'un sachant une des deux passe par là je suis preneur 😉 .


Merci!
 
Dernière édition:
Bonjour.
La ligne 1 des numéros se suivant à partir de 1 me semble inutile parce qu'il est toujours possible d'accéder positionnellement à un élément de tableau de numéro spécifié. Par exemple avec INDEX si c'est dans une plage. Je soupçonne que vous demandiez ensuite à ce qu'il n'y ait pas de doublon dans la liste engendrée.
Ne serait-ce pas un tirage de loto que vous chercheriez à produire ?
Je pense que des choses pourraient vous intéresser dans ce classeur.
 

Pièces jointes

Bonjour Danreb,

J'ai formulé mon code comme ci car le problème est le même que celui que je rencontre dans mon projet.

Les nombres aléatoire représente l'incertitude des choix des utilisateurs dans mon projet.

Je n'ai pas partagé mon projet car il y a beaucoup de bruit qui ne concerne pas le problème.

Merci de ton retour,

Je vais tenter de trouver ma réponse dans ton code !!!
 
Bon je ne comprends pas, j'ai l'impression que c'est hyper simple ce que je demande si on peut me dire ce qui ne va pas dans mon code ca serait top! J'ai beau chercher sur internet ...

VB:
Sub tabfor()

Dim n$
Dim t$
Dim i As Byte
Dim tabarray() As variant


n = Int(50 * Rnd) + 2



For i = 1 To n

t = Int(50 * Rnd) + 1

ReDim tabarray(i)
t = tabarray(i)


Next i

MsgBox tabarray(1)
End Sub
 
Dernière édition:
Youuupi!
VB:
Sub tabfor()
Dim n$
Dim t$
Dim i As Byte
Dim tabarray() As Variant
n = Int(50 * Rnd) + 2
tabarray = Array(0)
For i = 1 To n
t = Int(50 * Rnd) + 1
ReDim Preserve tabarray(i)
tabarray(i) = t
Next i
End Sub
Merci 🙂

Je mets la solution pour ceux que ca intéresse
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
250
Retour