Aléatoire

  • Initiateur de la discussion davy
  • Date de début
D

davy

Guest
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
 
Z

Zon

Guest
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
 
Z

Zon

Guest
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+++
 
A

andré

Guest
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é.
 
Z

Zon

Guest
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++++
 
A

andré

Guest
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é.
 
D

davy

Guest
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
 

Discussions similaires

Réponses
16
Affichages
824

Statistiques des forums

Discussions
312 836
Messages
2 092 633
Membres
105 475
dernier inscrit
ramzi slama