Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

jeanmimi62

XLDnaute Nouveau
extraction de cellule

Bonjour,
Le fichier d'exemple ci joint me sert à effectuer un tirage au sort d'un coupe de football. Grâce à votre aide j'avance et j'ai pratiquement fini. Il me reste un ou deux pb à résoudre. Lorsque je fais le tirage au sort à l'aide du bouton, parfois il me manque des équipes. Ce n'est pas bien grave car il y a plusieurs tours pour cette coupe mai j'aimerai que les équipes non tirées au sort apparaissent dans une colonne à la fin du tirage et là je bloque
merci de votre aide si précieuse
 

Pièces jointes

Dernière édition:
Re : Tirage au sort

Re, salut Hulk 🙂

Pas terrible l'extension .xls...

J'ai simplement ajouté à la macro Tirages le code suivant :

Code:
'---Compléments en colonne A avec les équipes non tirées---
If n1 = n Then Exit Sub
lig = Range("A65536").End(xlUp)(2).Row
Cells(lig, 1).Resize(, 2) = "Non tirées"
Cells(lig, 1).Resize(, 2).Font.Bold = True 'en gras
Set plage = Range(Cells(n + 4, 1), Cells(lig - 1, 2))
For i = 2 To n + 1
  If Application.CountIf(plage, Cells(i, 1)) = 0 Then
    lig = lig + 1
    Cells(lig, 1) = Cells(i, 1)
  End If
Next

Plus une petite modif en début de macro :

Code:
Range("A" & lig & ":B65536").[COLOR="Red"]Clear[/COLOR] 'au lieu de ClearContents

Les équipes manquantes sont toutes portées en colonne A sous "Non tirées".

Il faut ensuite définir les rencontres supplémentaires en remplissant, par Couper/Coller, la colonne B.

EDITION : pour ceux qui n'ont pas suivi l'histoire (ils sont nombreux), voici les autres fils :

https://www.excel-downloads.com/threads/extraire-donnees-sous-conditions.125503/

https://www.excel-downloads.com/threads/bloquer-une-cellule.126089/

A+
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
450
Réponses
5
Affichages
1 K
Réponses
2
Affichages
878
Réponses
6
Affichages
973
Réponses
30
Affichages
3 K
Réponses
13
Affichages
4 K
S
Réponses
1
Affichages
5 K
Réponses
3
Affichages
1 K
Retour