Tableau Excel à remplir aleatoirement
Résolu/Fermé
Angelsephy
Messages postés
1
Date d'inscription
mercredi 18 avril 2007
Statut
Membre
Dernière intervention
18 avril 2007
-
18 avril 2007 à 12:59
Angelsephy - 24 avril 2007 à 12:28
Angelsephy - 24 avril 2007 à 12:28
A voir également:
- Tableau à remplir en ligne
- Tableau croisé dynamique - Guide
- Vente en ligne particulier - Guide
- Aller à la ligne excel - Guide
- Tableau ascii - Guide
- Partage de photos en ligne - Guide
5 réponses
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
19 avril 2007 à 10:35
19 avril 2007 à 10:35
bonjour,
une solution en vba
dans déclaration
Dim pointeur() as boolean
Sub sélectionAléatoir()
Dim num As Integer, i As Integer
Dim NBnom As Integer
NBnom = 200 'changer si le nombre de nom change
ReDim pointeur(NBnom)
For i = 1 To NBnom
pointeur(i) = True
Next i
Randomize
For i = 1 To 50
UnAutre:
num = Int((NBnom * Rnd) + 1)
If pointeur(num) Then
'le nom n'a pas encore été sélectionner
'en supposant que les noms sont dans la colonne A
Worksheets("Sheet1").Range("A" & num).Copy _
Destination:=Worksheets("Sheet2").Range("A" & i)
pointeur(num) = False
Else
GoTo UnAutre
End If
Next i
End Sub
le tableau sert à éviter les doublons
A+
louis
une solution en vba
dans déclaration
Dim pointeur() as boolean
Sub sélectionAléatoir()
Dim num As Integer, i As Integer
Dim NBnom As Integer
NBnom = 200 'changer si le nombre de nom change
ReDim pointeur(NBnom)
For i = 1 To NBnom
pointeur(i) = True
Next i
Randomize
For i = 1 To 50
UnAutre:
num = Int((NBnom * Rnd) + 1)
If pointeur(num) Then
'le nom n'a pas encore été sélectionner
'en supposant que les noms sont dans la colonne A
Worksheets("Sheet1").Range("A" & num).Copy _
Destination:=Worksheets("Sheet2").Range("A" & i)
pointeur(num) = False
Else
GoTo UnAutre
End If
Next i
End Sub
le tableau sert à éviter les doublons
A+
louis
Ca peut sembler assez barbare, mais tu peux passer par un script perl pour générer ton fichier Excel.. Spreadsheet::Excel
Maintenant, y'a peut-être une solution avec Excel; et c'est celle-là que tu préfèrerais...
Maintenant, y'a peut-être une solution avec Excel; et c'est celle-là que tu préfèrerais...
Bonjour,
Je test ceci sur mon poste de travail cette apres midi et je redonne des nouvelles en soirees.
Merci beaucoup
Cordialement
Je test ceci sur mon poste de travail cette apres midi et je redonne des nouvelles en soirees.
Merci beaucoup
Cordialement
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question