Discussion :

[lilalvine]

Bonjour la communauté,

Je suis à la recherche d'un programme en VBA me permettant de générer x nombres aléatoires parmi n et les afficher dans un tableau sans redondance de lignes et de cellules dans une même ligne. Je n'ai pas du tout de compétences en informatique. En espérant votre Aide.

Le résultat devrait ressembler à celà (ex 4 parmi 12) :




Cordialement,

[kiki29]

Salut, à lire La gestion des doublons dans Excel

[unparia]

Bonjour
J'ajoute au lien que t'a indiqué kiki29, que je salue, cet autre lien :
https://excel.developpez.com/faq/?pa...ionsAleatoires
La lecture de ce dernier te permettra de déterminer comment extraire de manière aléatoire et sans doublons x éléments choisis parmi y éléments (c'est à dire, donc les valeurs des cellules d'une ligne de ton exemple)
La lecture du lien que t'a indiqué kiki29 te permettra d'éviter que deux lignes soient identiques (rejet si la concaténation de leurs cellules est identique).

PS : j'observe au passage une contradiction entre ton exposé et l'image montrée du résultat souhaité.

[lilalvine]

Salut, à lire La gestion des doublons dans Excel

Salut Kiki29 ton aide est pertinent cependant je pense que je devrai revoir tous les cours de base en VBA car c'est pas évident pour quelqu'un qui n'est pas du domaine.

Merci de votre aide !

[lilalvine]

Bonjour
J'ajoute au lien que t'a indiqué kiki29, que je salue, cet autre lien :
https://excel.developpez.com/faq/?pa...ionsAleatoires
La lecture de ce dernier te permettra de déterminer comment extraire de manière aléatoire et sans doublons x éléments choisis parmi y éléments (c'est à dire, donc les valeurs des cellules d'une ligne de ton exemple)
La lecture du lien que t'a indiqué kiki29 te permettra d'éviter que deux lignes soient identiques (rejet si la concaténation de leurs cellules est identique).

PS : j'observe au passage une contradiction entre ton exposé et l'image montrée du résultat souhaité.

Je suis pas informaticien lol mais je pense que c'est pas si facile que ça. En fait les doublons ne seront acceptés que dans chacune des colonnes. En d'autre termes les colonnes pourront contenir des doublons mais pas de ligne. Je pense à une sorte de matrice (tableau 2D).

[unparia]

Je suis pas informaticien lol mais je pense que c'est pas si facile que ça. En fait les doublons ne seront acceptés que dans chacune des colonnes. En d'autre termes les colonnes pourront contenir des doublons mais pas de ligne

Ah ?
Bon --->>
1) je ne suis pas informaticien non plus (je ne l'ai jamais été) , mais sais que la chose est facile et sais la traiter facilement. Les réponses qui t'ont été données suffisent à n'importe quel développeur, même non aguerri.
2) j'avais bien compris (comme tout le monde ici)
3) je réitère donc

j'observe au passage une contradiction entre ton exposé et l'image montrée du résultat souhaité.

relis et ré-examine ton exemple !

[lilalvine]

Bon je vois que personne ne veut m'aider je sais plus à quoi servent les forums !! Merci à kiki et tous ceux qui ont voulu m'aider !!

[unparia]

Bon je vois que personne ne veut m'aider je sais plus à quoi servent les forums

Tu as été AIDE ! Mais tu n'es manifestement pas un développeur et ne sais "comprendre" que ce qui te serait "servi tout cuit".
Si tu te demandes à "quoi servent les forums", voilà MA réponse : -->> à aider les développeurs et non à jouer le rôle de "self-service".
Je te parais certainement brutal ? J'accepte cette perception et te souhaite bonne chance.

[lilalvine]

Slt, unparia

Il y a bel et bien une redonance de ligne, désolé j'espère que vous avez compris que c'était une erreur mais les objectifs sont claires. Toutefois je modifierai l'image que j'ai donnée en exemple.

[lilalvine]

Voici le bout de code que j'ai commencé à faire, mais j'ai toujours des doublons de cellule dans une même ligne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub Aleatoire()
Dim cel As Range, alea As Double, tab2(11880, 4) As Integer, temp(11880, 4) As Integer, tableau As Range
 
Set plage = Range("a1:d1")
Set tableau = Range("a1:d11880")
plage.Value = ""
 
'If plage.Count > 4 Then Exit Sub
 
For i = 0 To 11879
For j = 0 To 3
 
Randomize
For Each cel In plage
1 alea = WorksheetFunction.RandBetween(1, 12)
 
If Application.CountIf(plage, alea) Then GoTo 1 Else cel = alea
 
tab2(i, j) = cel.Value
temp(i, j) = tab2(i, j)
Next
Next
Next
tableau = temp
End Sub

[Marc-L]

Commencer par lire et appliquer les règles de ce forum comme par exemple pour le balisage du code,
y a même une animation pour les moins doués ! …
Ce sera alors tellement plus simple d'indiquer par exemple « ta ligne de code n° … »

Et merci de ne pas citer l'intégralité d'un message juste précédent, aucun intérêt à part de nuire à la lisibilité !