tri aleatoire

Modeste geedee

XLDnaute Barbatruc

• 16 Avril 2016

• #16

Re : tri aleatoire

Bonsour®
la même avec macro

 

Pièces jointes

• jfcjfc.xlsm

  21.7 KB · Affichages: 41
• Capture.jpg

  27.6 KB · Affichages: 31

Vote positif 0 Vote négatif

J

jfcjfc

XLDnaute Nouveau

• 16 Avril 2016

• #17

Re : tri aleatoire

Merci, mais le curseur ne se déplace pas !
ex: j'ai 20 valeurs de ("BA,BT"), comment en effacer 10 de façon aléatoire sur cette ligne.
ou alors comment utiliser "clearcontents" aléatoirement, sur une ligne de 20 n° pour en effacer 10.
encore merci pour l'info.

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 16 Avril 2016

• #18

Re : tri aleatoire

Bonsour®

jfcjfc à dit:

Merci, mais le curseur ne se déplace pas !

Cliquez pour agrandir...

???

qu'attends-tu pour nous fournir un classeur exemple avec résultats attendus !!!

 

Pièces jointes

• Capture.jpg

  26.4 KB · Affichages: 34
• jfcjfc (gd3).xlsm

  21.8 KB · Affichages: 31

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Avril 2016

• #19

Re : tri aleatoire

comment en effacer 10 de façon aléatoire sur cette ligne.

Cliquez pour agrandir...

Comme je dis de le faire en combinant mes poste #3 et #9

Ce qui donne évidemment ça par exemple :

VB:

Sub test()
Dim TAléa() As Long, P As Long, A As Long, J As Long, Plg As Range
ReDim TAléa(1 To 20): For P = 1 To 20: TAléa(P) = P: Next P
For P = 20 To 2 Step -1
   A = Int(Rnd * P) + 1: J = TAléa(A): TAléa(A) = TAléa(P): TAléa(P) = J
   Next P
Set Plg = ActiveSheet.[A1:T1]
For P = 1 To 10
   Plg.Columns(TAléa(P)).Value = Empty
   Next P
End Sub

 

Dernière édition: 16 Avril 2016

Vote positif 0 Vote négatif

J

jfcjfc

XLDnaute Nouveau

• 16 Avril 2016

• #20

Re : tri aleatoire

je te remercie infiniment, je n'aurai jamais pu le trouver tout seul. Bon Weekend

 

Vote positif 0 Vote négatif

J

jfcjfc

XLDnaute Nouveau

• 16 Avril 2016

• #21

Re : tri aleatoire

merci, bon weekend.
avec ça je peut faire aussi !

 

Vote positif 0 Vote négatif

J

jfcjfc

XLDnaute Nouveau

• 17 Avril 2016

• #22

Re : tri aleatoire

Ce qui donne évidemment ça par exemple :

VB:

Sub test()
Dim TAléa() As Long, P As Long, A As Long, J As Long, Plg As Range
ReDim TAléa(1 To 20): For P = 1 To 20: TAléa(P) = P: Next P
For P = 20 To 2 Step -1
   A = Int(Rnd * P) + 1: J = TAléa(A): TAléa(A) = TAléa(P): TAléa(P) = J
   Next P
Set Plg = ActiveSheet.[A1:T1]
For P = 1 To 10
   Plg.Columns(TAléa(P)).Value = Empty
   Next P
End Sub

[/QUOTE]


j'ai besoin encore de votre aide
je voudrai pouvoir utiliser cette macro sur la ligne de mon choix
exemple
dim A,B,C as integer
A = 12163
B = 3
C = 22
''''Set Plg = ActiveSheet.[A1:T1], le changer en valeur numérique.
'du style : Range(Cells(A, B), Cells(A, C)).Select
' la boucle For P doit prendre en compte ce changement aussi.
'Plg.Columns(TAléa(P)).Value = Empty, doit être aussi changer,Il me semble.
'en résumé, pouvoir utiliser la macro à mon gré sur la ligne que j'ai choisie.
Encore une fois d'avance merci pour la réponse et excusez pour le dérangement.
Cordialement

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 17 Avril 2016

• #23

Re : tri aleatoire

Bonjour.
Vous pouvez jusque changer le Set: Set Plg = ActiveSheet.Range(Cells(A, B), Cells(A, C))

 

Vote positif 0 Vote négatif

J

jfcjfc

XLDnaute Nouveau

• 17 Avril 2016

• #24

Re : tri aleatoire

Dranreb à dit:

Bonjour.
Vous pouvez jusque changer le Set: Set Plg = ActiveSheet.Range(Cells(A, B), Cells(A, C))

Cliquez pour agrandir...

merci, je débute en VBA et je m'arrache les cheveux.
si toute fois j'ai encore besoin de vous j'espère avoir votre aide.

 

Vote positif 0 Vote négatif