placement de chiffres

S

SubEndSub

XLDnaute Occasionnel

• 29 Août 2009

• #2

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)))

 

Vote positif 0 Vote négatif

P

phil59110

XLDnaute Occasionnel

• 29 Août 2009

• #3

Re : placement de chiffres

SubEndSub à dit:

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)))

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

S

SubEndSub

XLDnaute Occasionnel

• 29 Août 2009

• #4

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

 

Pièces jointes

• pj739049-post1.zip

  2.4 KB · Affichages: 73

Vote positif 0 Vote négatif

Tibo

XLDnaute Barbatruc

• 29 Août 2009

• #5

Re : placement de chiffres

Bonjour,

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

en D7 :

Code:

=ALEA()

à recopier jusqu'en D20


en M3 :

Code:

=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

@+

 

Vote positif 0 Vote négatif

P

phil59110

XLDnaute Occasionnel

• 29 Août 2009

• #6

Re : placement de chiffres

SubEndSub à dit:

Voir la pièce jointe

Il y a encore parfois des doublons, mais moins souvent

Appuie sur F9 pour changer les chiffres

Cliquez pour agrandir...

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!!!!

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 29 Août 2009

• #7

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

 

Pièces jointes

• phil_Classeur1.zip

  11.5 KB · Affichages: 57
• phil_Classeur1.zip

  11.5 KB · Affichages: 45
• phil_Classeur1.zip

  11.5 KB · Affichages: 52

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 29 Août 2009

• #8

Re : placement de chiffres

Bonjour à tous

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

ROGER2327

 

Pièces jointes

• phil59110_Classeur1-1.xls

  19 KB · Affichages: 138

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 29 Août 2009

• #9

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

 

Pièces jointes

• Tableau alea.xls

  32 KB · Affichages: 111

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 29 Août 2009

• #10

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

 

Pièces jointes

• phil_Classeur1_b.zip

  11.5 KB · Affichages: 52
• phil_Classeur1_b.zip

  11.5 KB · Affichages: 45
• phil_Classeur1_b.zip

  11.5 KB · Affichages: 46

Vote positif 0 Vote négatif

P

phil59110

XLDnaute Occasionnel

• 29 Août 2009

• #11

Re : placement de chiffres

pierrejean à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 29 Août 2009

• #12

Re : placement de chiffres

re
avec la verification proposée par ROGER

 

Pièces jointes

• phil_Classeur1_b.zip

  12 KB · Affichages: 104
• phil_Classeur1_b.zip

  12 KB · Affichages: 94
• phil_Classeur1_b.zip

  12 KB · Affichages: 93

Vote positif 0 Vote négatif

P

phil59110

XLDnaute Occasionnel

• 29 Août 2009

• #13

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!!!!!

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 29 Août 2009

• #14

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 :

Code:

[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

 

Dernière édition: 29 Août 2009

Vote positif 0 Vote négatif

P

phil59110

XLDnaute Occasionnel

• 29 Août 2009

• #15

Re : placement de chiffres

pierrejean à dit:

re
avec la verification proposée par ROGER

Cliquez pour agrandir...

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!!

 

Vote positif 0 Vote négatif