Aléatoire

[davy]

Bonjour,

Je voudrais à partir d'un fichier Excel:
-->Une colonne par exemple A de 500 lignes avec que des noms de personnes.
Je veux créer une macro qui redispose tous les noms aléatoirement.
Comment puis je faire?

Merci

 

[Zon]

Bonsoir à tous,
Voilà ,Davy un bout de code à adapter


Sub creer()

Dim nom1, nom2 As String
Set wk = Workbooks("davy") 'on définit le nom du classeur où sont les données
Set ws = wk.Sheets("feuil1") 'on définit le nom de la feuille où sont les données
nom1 = "F1" 'Nom qu'aura le 1er fichier
nom2 = "F2"

'''''''copie des 50 premières lignes
Set wk1 = Workbooks.Add
ws.Activate
Range("A1", "A50").Copy Destination:=wk1.Sheets("feuil1").Range("A1")
With wk1
.SaveAs Filename:="c:\mesdocuments\" & nom1 'le chemin d'accés au répertoire est à adapter aussi
.FileFormat = xls
End With
''''''''copie de la 50 à la 100 e lignes
Set wk2 = Workbooks.Add
ws.Activate
Range("A51", "A100").Copy Destination:=wk2.Sheets("feuil1").Range("A1")
With wk1
.SaveAs Filename:="c:\mesdocuments\" & nom2
.FileFormat = xls
End With

''etc ..................
End Sub

 

[Zon]

Oh désolé j'ai oublié d'expliquer une chose :

Mon code sert à copier les valeurs dans d'autres classeurs (ici 2), mais ne tient pas compte du dernier message d'andré où là il y a beaucoup plus de choses à faire pour pouivoir à chaque nouveau classeur des users aléatoires....



A+++

 

[andré]

Salut Zon,

C'est très bien ce que tu as fait, mais davy débute en Excel !

Je crois que c'est C@thy qui disait dernièrement que la meilleure macro, c'est de ne pas en faire (ou quelque chose du genre, en tout cas cela répondait exactement à ma philosophie de l'informatique).

Oups, la mousse descend, il est temps que j'en commande une autre avant de finir la premiere.

Ândré.

 

[Zon]

Salut André, tu m'as donné envie de boire un Pastis, aprés tout c'est l'heure de l'apéro, à la tienne!!!!!


Je sais bien que sur le forum il y a deux groupes trés complémentaires :
les adeptes des formules et ceux de la macro.

Je nai fais pas uniquement cette macro pour Davy mais aussi pour tout le monde dans un but pédagogique (afin je l'espère) comme le fait très bien (entre autres) @Thierry sur la partie la plus ardue (les USF)....


A++++

 

[andré]

Resalut Zon,

J'aime bien aussi le pastis, mais chez moi il fait encore une peu froid.
Je ne l'apprécie à sa vrai valeur que dans le midi.

Et puis, j'aime bien la mousse, surtout des bières régionales de chez nous.

Il faudrait qu'on ouvre un post spécial pour les recettes régionales, je vous apprendrai à apprécier le "waterzooi (à la gantoise)", les "asperges à la flamande (dites de malines)", les "soles à l'ostendaise (avec des crevettes)", les "chicons au four", et surtout ... un faisan à la brabançonne (petits chicons braisés ... hum)!

Je ne vide pas ma dernièure chope, je rentre manger !

Ândré.

 

[davy]

Merci tout le monde
Je vais essayer tout ca.

A bientot pour de nouvelles questions.

Davy

 

[davy]

La méthode avec la macro est bien mais quand je l'execute , il apparait un fichier avec dans les colonnes que des :

#REF!
#REF!
#REF!
#REF!
#REF!
#REF!
#REF!
#REF!
...

Comment se fait -il?

Merci

davy

 

[Zon]

Bonsoir à tous et Davy,


Joins moi ton fichier sur ce post ou dans ma BAL, je regarderai ce qui cloche...

A++++