Formulaire de saisie
JBen
-
JBen -
JBen -
Bonjour,
Bonjour,
voila j'ai un code pour réaliser un formulaire de saisie d'un code avec une génération aléatoire des 10 boutons. Mais je ne veux pas utiliser de tableau. Comment changer le code ci-dessous pour ne pas utiliser de tableau ?
Sub Codealeatoire()
GenereSerieAleatoireSansDoublons 10, Range("A1")
Range("A10") = 0
End Sub
Sub GenereSerieAleatoireSansDoublons(NbValeurs As Integer, Cell As Range)
Dim Tableau() As Integer, TabNumLignes() As Integer
Dim i As Integer, k As Integer
ReDim Tableau(NbValeurs)
ReDim TabNumLignes(NbValeurs)
For i = 0 To NbValeurs
TabNumLignes(i) = i
Tableau(i) = i
Next
'Initialise le générateur de nombres aléatoires
Randomize
For i = NbValeurs To 1 Step -1
k = Int((i * Rnd) + 1)
Cells(Cell.Row + i - 1, Cell.Column) = Tableau(TabNumLignes(k))
TabNumLignes(k) = TabNumLignes(i)
Next
End Sub
Merci de votre aide
Bonjour,
voila j'ai un code pour réaliser un formulaire de saisie d'un code avec une génération aléatoire des 10 boutons. Mais je ne veux pas utiliser de tableau. Comment changer le code ci-dessous pour ne pas utiliser de tableau ?
Sub Codealeatoire()
GenereSerieAleatoireSansDoublons 10, Range("A1")
Range("A10") = 0
End Sub
Sub GenereSerieAleatoireSansDoublons(NbValeurs As Integer, Cell As Range)
Dim Tableau() As Integer, TabNumLignes() As Integer
Dim i As Integer, k As Integer
ReDim Tableau(NbValeurs)
ReDim TabNumLignes(NbValeurs)
For i = 0 To NbValeurs
TabNumLignes(i) = i
Tableau(i) = i
Next
'Initialise le générateur de nombres aléatoires
Randomize
For i = NbValeurs To 1 Step -1
k = Int((i * Rnd) + 1)
Cells(Cell.Row + i - 1, Cell.Column) = Tableau(TabNumLignes(k))
TabNumLignes(k) = TabNumLignes(i)
Next
End Sub
Merci de votre aide
A voir également:
- Formulaire pré saisie natixis
- Whatsapp formulaire opposition - Guide
- Saisie gestuelle iphone - Guide
- Formulaire de réclamation facebook compte désactivé - Guide
- Formulaire de reclamation instagram - Guide
- Saisie vocale whatsapp - Accueil - Messagerie instantanée
5 réponses
Bonjour,
Tu veux pas employer de tableau ?
Essaye un peu d'enlever les 4 roues de la voiture de ton père pour voir si elle roule encore après ?
A+
Tu veux pas employer de tableau ?
Essaye un peu d'enlever les 4 roues de la voiture de ton père pour voir si elle roule encore après ?
A+
:-) Aller.. ont va utiliser la feuille Excel à la place d'un tableau.
A+
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Sub Codealeatoire()
GenereSerieAleatoireSansDoublons 10, Range("A1")
End Sub
'Mettre les données sur la même ligne
Sub GenereSerieAleatoireSansDoublons(NbValeurs As Integer, Cell As Range)
Dim B As Integer, i As Integer, V As Integer
Randomize Timer
While B < NbValeurs
V = Int((Rnd * NbValeurs) + 1)
i = 0
Do While i < B
If V = Cell.Offset(, i) Then GoTo Reco
i = i + 1
Loop
Cell.Offset(, B) = V: B = B + 1
Reco:
Wend
End Sub
A+
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
En faite je dois créer un clavier visuel et là il y a qu'un bouton qui change de chiffres aléatoirement. Je voudrais que ce soit les 10 boutons numérotées de 0 a 9 ? stp :S et genre quand je rentre 4 chiffres ds la zone de texte et que je fais valider, sa doit s'afficher dand une cellule
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
