placement de chiffres

  • Initiateur de la discussion Initiateur de la discussion phil59110
  • 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 !

phil59110

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

Pièces jointes

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

@+
 
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 M3😛7 sont toujours vides
A moins que la aussi ce doive etre aleatoire
 

Pièces jointes

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 M3😛7 remplies au prix evidemment de doublons dans les colonnes
 

Pièces jointes

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:
- 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
5
Affichages
88
Réponses
4
Affichages
83
Réponses
9
Affichages
229
Réponses
6
Affichages
312
Retour