Discussion :

[patoche57]

bonjour,

ma question est simple, j'ai une liste de nom je voudrais créer des équipes de 2

merci de votre aide.

[helios77]

tu peux en dire plus que l'on comprenne le but et pourquoi tu coinces ?

Faut arrêter de dire "Ma question est simple" et ne pas donner 'explications
Elle peut paraitre simple à la personne qui poste le message car il est dedans mais pour une personne extérieure, un minimum d'explication est nécessaire... on est pas devin

[patoche57]

oups je rectifie, elle est pas simple

le but:

lors d'un weekend end LAN GAMES j'organise un tournois automobile genre 24h du Mans.Je vais creer un tableau avec la liste de tous les participants, et je voudrais avoir un système qui me crée automatiquement des équipes de 2.

je coince car je suis un débutant sur excel.

Merci

[helios77]

Tu les écris sur 2 colonnes tes noms
Les noms qui se retrouveront en face seront en équipe

comme çà, pas de VBA

La réponse est à la hauteur de la question...
je me doute que c'est pas tout à fait çà que tu veux faire mais bon... je vais pas imaginer (et surtout écrire) tout ce qui me passe par la tete pour ton truc... a toi de nous éclairer
Plus y aura de détails sur la manière que tu saisiras les données et comment tu comptes faires tes équipes (par age, par sexe, au hasard, par ordre d'incsripion, alphavétique,, etc ......) et plus tu auras des réponses précises

[patoche57]

Tu les écris sur 2 colonnes tes noms
Les noms qui se retrouveront en face seront en équipe

comme çà, pas de VBA

effectivement c'est le plus simple mais en fait je voudrais que les équipes soit fait au hasard.

désolé je n'ai jamais été très fort pour mettre par écris mes pensé.

merci de vous attarder sur mon problème.

[helios77]

Par exemple, tu peux faire ceci
Ca suppose :
Liste des noms en colonne A
Pas de ligne titre (genre nom des joueurs)

Tu exécutes la macro et créé des équipes de 2 en nommant l'équipe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub a()
Dim i, numEquipe As Integer
i = 1
 
While Sheets("Feuil1").Cells(i, 1).Value <> ""
    Randomize
    Cells(i, 2).Value = Rnd
    i = i + 1
Wend
 
Columns("A:B").Select
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
 
i = 1
numEquipe = 1
 
While Sheets("Feuil1").Cells(i, 1).Value <> ""
    Cells(i, 3).Value = "Equipe " & numEquipe
    If i Mod 2 = 0 Then numEquipe = numEquipe + 1
    i = i + 1
Wend
 
End Sub

[patoche57]

Merci beaucoup ça me va très bien !!!!!

[helios77]

Faudra penser à cliquer sur Résolu