placement de chiffres

[phil59110]

Bonjour a tous et a toutes!!!!!
et j'espére que vous avez passer de bonne vacances!!!
voila j'ai un petit souci avec un tableau de chifres mais comme milles explications ne vaux pas un exemple je vous joint un petit fichier
si vous voulez bien y jeter un coup d'oeil
je vous en Remerci beaucoup!!

 

[SubEndSub]

Re : placement de chiffres

Bonjour chez vous


Je cherche pour que cela fonctionne sans doublons
car avec cette formule il y a doublons

=INDEX($C$7:$C$20;(ENT(ALEA()*13+1)))

 

[phil59110]

Re : placement de chiffres

Bonjour chez vous


Je cherche pour que cela fonctionne sans doublons
car avec cette formule il y a doublons

=INDEX($C$7:$C$20;(ENT(ALEA()*13+1)))

bonjour subEndsub
oui j'avais pensé a ce genre de formule aussi mais j'ai pensé au doublons
comme tu dit!!
merci!!!!

 

[SubEndSub]

Re : placement de chiffres

Voir la pièce jointe

Il y a encore parfois des doublons, mais moins souvent

Appuie sur F9 pour changer les chiffres

 

[Tibo]

Re : placement de chiffres

Bonjour,

Un essai qui peut sans doute être amélioré :

en D7 :

=ALEA()

à recopier jusqu'en D20


en M3 :

=INDEX($C$7:$C$20;EQUIV(GRANDE.VALEUR($D$7:$D$20;COLONNES($M$2:M$2)+
LIGNES($H$3:$H3));$D$7:$D$20;0))

à recopier vers la droite et vers le bas

Je te laisse tester

@+

 

[phil59110]

Re : placement de chiffres

Voir la pièce jointe

Il y a encore parfois des doublons, mais moins souvent

Appuie sur F9 pour changer les chiffres

oui ça marche beaucoup mieu en effet malgré que je comprend pas
le procedé
par contre il y a que les chiffres en c7 c20 qui doivent bouger
les autres chifres en rouge doivent rester fixe

merci!!!!

 

[pierrejean]

Re : placement de chiffres

bonjour Phil
Salut SubEndSub

Une solution

mais vu qu'il n'y a que 14 chiffres a placer certaines cellules de M37 sont toujours vides
A moins que la aussi ce doive etre aleatoire

 

[ROGER2327]

Re : placement de chiffres

Bonjour à tous

Une proposition à partir de l'idée de SubEndSub.​

ROGER2327

 

[CISCO]

Re : placement de chiffres

Bonjour

Une possibilité, pas très belle, avec des tableaux intermédiaires, mais qui fonctionne. A vérifier.

Je n'ai fait le travail que sur les deux premières lignes.

@ plus

 

[pierrejean]

Re : placement de chiffres

Re

A la lumiere du fichier de ROGER que je salue (bien bas en raison de ses formidables competences associées a une urbanité du meilleur aloi ), une version avec toutes les cellules M37 remplies au prix evidemment de doublons dans les colonnes

 

[phil59110]

Re : placement de chiffres

bonjour Phil
Salut SubEndSub

Une solution

mais vu qu'il n'y a que 14 chiffres a placer certaines cellules de M37 sont toujours vides
A moins que la aussi ce doive etre aleatoire

bonjour PierreJean!!!
oui en M37 ça doit étre aussi en aleatoire!
sinon ton code comme toujours fonctionne impec!!!
merci beaucoup!!

 

[pierrejean]

Re : placement de chiffres

re
avec la verification proposée par ROGER

 

[phil59110]

Re : placement de chiffres

j'ai tout testé vos propositions et comme dab tout fonctionne impec!!!!
aussi bien les formules que les codes j'ai que l'embaras du choix!!

milles Merci et une super soirée a Tous!!!!!

 

[ROGER2327]

Re : placement de chiffres

Re-bonjour à tous

Un peu tard peut-être, une procédure qui garantit l'absence de doublon sur chaque ligne, mais ne garantit pas l'utilisation de toutes les données :

[COLOR="DarkSlateGray"]Sub ZERO_DOUBLON_PAR_LIGNE()
Dim oDat(), sDat(), i As Long, j As Long, k As Long
   oDat = Range("C7:C20").Value
   ReDim sDat(1 To 5, 1 To 4)
   Randomize
   For i = 1 To 5
      For j = 1 To 4
         k = j + Int((15 - j) * Rnd)
         sDat(i, j) = oDat(k, 1): oDat(k, 1) = oDat(j, 1): oDat(j, 1) = sDat(i, j)
      Next j
   Next i
   Range("M3:P7").Value = sDat
End Sub[/COLOR]

Bonne soirée !
ROGER2327

 

[phil59110]

Re : placement de chiffres

re
avec la verification proposée par ROGER

par contre PierreJean ton code fonctionne tellement bien que je voudrais
m'en servir pour un autre projet seullement comment on fait dans le code
pour changer l'emplacement source et de destination des celules?

merci!!