Tris aléatoire d'une colonne qui devrait se limiter jusqu'à la première cellule vide

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion bellenm
  • Date de début Date de début

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 !

S'inscrire
bellenm

bellenm

XLDnaute Impliqué
Bonjour à tous,

Je cherchais un moyen pour trier aléatoirement une colonne, je l'ai trouver sur ce forum MAIS il y a une chose qui ne vas pas car ce système de tris fonctionne sur toute une colonne jusqu’à la fin de la feuille.

Hors j'ai une limite, une liste de nom à trier aléatoirement mais ce tri ne devrait plus prendre les noms ce situant après une cellule trouvée vide ou ayant une notification du style "***" .

Voici un exemple en fichier joint.

Merci d'avance pour le temps passer a me lire.

Marc..
 

Pièces jointes

Trier par date Trier par votes
Re : Tris aléatoire d'une colonne qui devrait se limiter jusqu'à la première cellule

Bonjour PAF et JHA,

pour PAF, excuse je joint le fichier qui ouvre aussi les macros necessaire la feuille se trouve dans l'onglet " TIRAGELISTING".
pour JHA, je ne comprend pas la méthode et ne vois pas où tu veux en venir.

Je vous explique ce que j'aimerais faire:
- dans un premier temps mais cela ne concerne pas ce problème, j'encode des noms sur une autre feuille "joueurs" pour les importer après avoir trier si le joueur est bien présent, résultat en colonne "A"
- sur cette feuille je les mélange aléatoirement pour obtenir la colonne "B".

Il faudrait que le tris aléatoire de cette colonne "A" s’arrête dés qu'il y a "***" car les noms mis après les trois "*" sont absent SAUF si le nombre atteint est impair alors insérer la ligne "***" elle servira de joker!
- ensuite il faudrait refaire un tris sur la colonne "m2:m13" et mettre le résultat dans la colonne "n2:n13" et également pour la suite "m16:m21" dans la colonne "n16:n21".

J'espère qu'on me comprend, c'est pour un tournoi de double avec maximun 24 participants joueurs tiré au sort pour chaque tour. Les joueurs ayant perdus leurs rencontres sont éliminé.

PS: si quelqu'un saurait comment bougé le petit cadre avec Tirage sur fond orange , merciiii.
Marc.
 

Pièces jointes

Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Tris aléatoire d'une colonne qui devrait se limiter jusqu'à la première cellule

Re,

pour ne prendre, dans la colonne A de la feuille TIRAGELISTING, que jusqu'à la valeur "***", un essai:

dans la Sub TirageNoms():

remplacer
Code: 
With Sheets("TIRAGELISTING")
lig = .Range("A65536").End(xlUp).Row
TabNom = .Range("A3:A" & lig)
.Range("B3:B" & lig).ClearContents
' Fin de liste
n = .Range("A65536").End(xlUp).Row
' Nombre de joueurs inscrits
Nbinscrits = n - 1
End With
par
Code: 
With Sheets("TIRAGELISTING")
Set c = .Range("A:A").Find("~***", LookIn:=xlValues)
If c Is Nothing Then Exit Sub
TabNom = .Range("A3:A" & c.Row)
.Range("B3:B" & c.Row).ClearContents
' Fin de liste
' Nombre de joueurs inscrits
Nbinscrits = c.Row - 1
End With

pas regardé les implications de cette modif dans les résultats affichés

A+
 
Vote positif 0 Vote négatif
Re : Tris aléatoire d'une colonne qui devrait se limiter jusqu'à la première cellule

Re bonjour PAF,

Ta solution fonctionne, il reste plus que le tri à faire sur les cellules "m3:m13 et m16:m21" et sachant que la les 3 * se transforme en "0" .

Tu aurais une idée sur le petit rectangle orange? (pour le suprimer)

Déjà merci pour la formule

Marc
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Tris aléatoire d'une colonne qui devrait se limiter jusqu'à la première cellule

Bonjour à tous,

Paf m'a résolu le premier problème, mais pourquoi même en modifiant le code pour les cellules adéquate à savoir le tri aléatoire sur la colonne "A" et le résultat sur la colonne "B" sur la feuille "TIRAGELISTING"

Mais il me reste deux tris aléatoire à faire sur les cellules "N2:N13" résultat en colonne "O2:O13"et une autre sur les cellules "N16:N21" résultat en " O16:O21".

voici ce qui a été fait pour le premier tri:
Code: 
Sub TirageNoms()
Dim TabNom As Variant, temp As Variant, lig As Integer, i As Byte, j As Integer, k As Integer, l As Integer
Dim n As Integer, x As Double, Z As Byte, Nbinscrits As Byte
Randomize
With Sheets("TIRAGELISTING")
Set c = .Range("A:A").Find("~***", LookIn:=xlValues)
If c Is Nothing Then Exit Sub
TabNom = .Range("A3:A" & c.Row)
.Range("B3:B" & c.Row).ClearContents
' Fin de liste
' Nombre de joueurs inscrits
Nbinscrits = c.Row - 1
End With
' Mise en tableau des noms et des nombres aléatoires
ReDim Tablo(1 To UBound(TabNom), 1 To 3)
For j = 1 To UBound(TabNom)
        Tablo(j, 1) = Cells(j + 1, 1)
        Z = 0
            Do
            x = Rnd
               For k = 1 To j
               If Tablo(k, 2) = x Then
               Z = 0
               Else
               Z = 1
               End If
               Next k
            Loop Until Z = 1
        Tablo(j, 2) = x
        Tablo(j, 3) = x
    Next j
' Placer les nombres dans l'ordre décroissant dans la colonne 3 du tableau
For k = 1 To UBound(Tablo)
        For l = 1 To UBound(Tablo)
            If Tablo(k, 3) < Tablo(l, 3) Then
                    temp = Tablo(k, 3)
                    Tablo(k, 3) = Tablo(l, 3)
                    Tablo(l, 3) = temp
            End If
        Next l
Next k
' Mise en place des noms en colonne B
For i = 1 To UBound(Tablo)
      For j = 1 To UBound(Tablo)
         If Tablo(i, 3) = Tablo(j, 2) Then
         Cells(i + 1, 2) = Tablo(j, 1)
         End If
      Next j
Next i
End Sub

j'ai essayer pour le deuxième tri, mais il lance le débogueur et là je comprend pas où le code ne peut ce faire où ce n'est pas la bonne formule :
Code: 
Sub TirageNoms2()
Dim TabNom As Variant, temp As Variant, lig As Integer, i As Byte, j As Integer, k As Integer, l As Integer
Dim n As Integer, x As Double, Z As Byte, Nbinscrits As Byte
Randomize
 ' voici le code de PAF que j'ai modifier avec les cellules adéquate mais ne fonctionne pas!
  With Sheets("TIRAGELISTING")
  Set c = .Range("N:N").Find("~***", LookIn:=xlValues)
  If c Is Nothing Then Exit Sub
  TabNom = .Range("N:N" & c.Row)
  .Range("O:O" & c.Row).ClearContents
  ' Fin de liste
  ' Nombre de joueurs inscrits
  Nbinscrits = c.Row - 1
  End With
' Mise en tableau des noms et des nombres aléatoires
ReDim Tablo(1 To UBound(TabNom), 1 To 3)
For j = 1 To UBound(TabNom)
        Tablo(j, 1) = Cells(j + 1, 1)
        Z = 0
            Do
            x = Rnd
               For k = 1 To j
               If Tablo(k, 2) = x Then
               Z = 0
               Else
               Z = 1
               End If
               Next k
            Loop Until Z = 1
        Tablo(j, 2) = x
        Tablo(j, 3) = x
    Next j
' Placer les nombres dans l'ordre décroissant dans la colonne 3 du tableau
For k = 1 To UBound(Tablo)
        For l = 1 To UBound(Tablo)
            If Tablo(k, 3) < Tablo(l, 3) Then
                    temp = Tablo(k, 3)
                    Tablo(k, 3) = Tablo(l, 3)
                    Tablo(l, 3) = temp
            End If
        Next l
Next k
' Mise en place des noms en colonne B
For i = 1 To UBound(Tablo)
      For j = 1 To UBound(Tablo)
         If Tablo(i, 3) = Tablo(j, 2) Then
         Cells(i + 1, 2) = Tablo(j, 1)
         End If
      Next j
Next i
End Sub

Quelqu'un aurait'il la solution ?

Merci

Marc
 
Vote positif 0 Vote négatif
Re : Tris aléatoire d'une colonne qui devrait se limiter jusqu'à la première cellule

re,

mais il lance le débogueur et là je comprend pas où le code ne peut ce faire...
Cliquez pour agrandir...

il aurait été bien de préciser la ligne surligné en jaune par le 'debogueur'.

a priori, ça se situerait bien là:

.Range("O:O" & c.Row).ClearContents on précise la fin de la plage en colonne O, mais pas le début .

peut-être : .Range("O3:O" & c.Row).ClearContents

Bonne suite
 
Vote positif 0 Vote négatif
Re : Tris aléatoire d'une colonne qui devrait se limiter jusqu'à la première cellule

Bonjour PAF,

j'ai essayer avec ".Range"O3:O" & c.Row).ClearContents" alors c'est la ligne juste au dessus qui buge j'ai donc mis "TabNom = .Range("N3:N" & c.Row)" mais alors c'est comme si je lançais ta formule et donc bien la colonne "B" qui ce met en tris et pas la colonne demandée "O".

Ou trouver la solution ou bien avec "alea()" pour cette rangée de donnée mais je cherche la formule sur le forum j'ai déjà et c'est simple su mettre de valeur aléatoire mais faut encore les trier après pour que les noms soit bien aléatoire tout en sachant que dès qu'il y a un "0" la liste est finie!

Merci d'avance
Marc.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Tris aléatoire d'une colonne qui devrait se limiter jusqu'à la première cellule

Bonjour à Tous,

- PAF j'ai réfléchis pendant le WE et peut-être trouvé solution mais pour ce faire il me faudrait la même liste que la colonne "B" mais non Trier en colonne "AC"

voici le code de départ avec une seul modification dans le nom de "Find" j'ai rajouter"FIN DE LISTE ***"

Code: 
Sub TirageNoms()
Dim TabNom As Variant, temp As Variant, lig As Integer, i As Byte, j As Integer, k As Integer, l As Integer
Dim n As Integer, x As Double, Z As Byte, Nbinscrits As Byte
Randomize
With Sheets("TIRAGELISTING")
Set c = .Range("A:A").Find("~*** FIN DE LISTE ***", LookIn:=xlValues)
If c Is Nothing Then Exit Sub
TabNom = .Range("A3:A" & c.Row)
.Range("B3:B" & c.Row).ClearContents
' Fin de liste
' Nombre de joueurs inscrits
Nbinscrits = c.Row - 1
End With
' Mise en tableau des noms et des nombres aléatoires
ReDim Tablo(1 To UBound(TabNom), 1 To 3)
For j = 1 To UBound(TabNom)
        Tablo(j, 1) = Cells(j + 1, 1)
        Z = 0
            Do
            x = Rnd
               For k = 1 To j
               If Tablo(k, 2) = x Then
               Z = 0
               Else
               Z = 1
               End If
               Next k
            Loop Until Z = 1
        Tablo(j, 2) = x
        Tablo(j, 3) = x
    Next j
' Placer les nombres dans l'ordre décroissant dans la colonne 3 du tableau
For k = 1 To UBound(Tablo)
        For l = 1 To UBound(Tablo)
            If Tablo(k, 3) < Tablo(l, 3) Then
                    temp = Tablo(k, 3)
                    Tablo(k, 3) = Tablo(l, 3)
                    Tablo(l, 3) = temp
            End If
        Next l
Next k
' Mise en place des noms en colonne B
For i = 1 To UBound(Tablo)
      For j = 1 To UBound(Tablo)
         If Tablo(i, 3) = Tablo(j, 2) Then
         Cells(i + 1, 2) = Tablo(j, 1)
         End If
      Next j
Next i
End Sub

Merci de me dire si c'est faisable ou pas.

Merci d'avance.

Marc
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

O
  • Question Question
Autres VBA test et action selon valeur de la première cellule visible en colonne A après un tri
Réponses
8
Affichages
1 K
Oko
O
D
  • Question Question
Microsoft 365 Si une cellule est vide faire ressortie la valeur d'une autre cellule
2
Réponses
16
Affichages
2 K
job75
job75
B
  • Résolu(e)
Autres Récuperer la valeur de la derniere cellule non vide d'une colonne
2
Réponses
29
Affichages
2 K
TooFatBoy
TooFatBoy
M
  • Question Question
Microsoft 365 Formatage conditionnel jusqu'à la dernière cellule non vide.
Réponses
2
Affichages
728
chris
chris
V
  • Question Question
XL 2019 Se déplacer automatiquement à la valeur cherché dans une liste
Réponses
10
Affichages
1 K
ValyRabary
V
T
  • Question Question
Microsoft 365 Renseigner les cellules d'une colonne en fonction du contenu de la cellule de la colonne voisine
Réponses
5
Affichages
1 K
Robert
Robert
A
  • Question Question
Autres Ne conserver que la première données d'une colonne
Réponses
5
Affichages
820
alain.pierrephie
A
Potentis
  • Question Question
Autres [2003] Colorer la cellule d'une plage selon le résultat d'une formule isolée en haut de la colonne
Réponses
7
Affichages
999
Potentis
Potentis
A
  • Question Question
XL 2016 [Débutant vba] Copier-Coller une cellule dans la première cellule vide d'une colonne
2
Réponses
17
Affichages
3 K
AlexandreB94
A
D
  • Question Question
Dans un calcul, comment remplacer la valeur d'une cellule vide par la première cellule non-vide au dessus
Réponses
12
Affichages
5 K
Delphine2688
D
P
  • Question Question
XL 2010 Suppression aléatoire d'une cellule parmi d'autres (non vides) dans une plage "discontinue"
Réponses
2
Affichages
1 K
Polo45
P
R
  • Question Question
Comment récupérer valeur de dernière ligne non vide d'une colonne avec filtres activés ds une table
Réponses
4
Affichages
4 K
Renardy
R
C
  • Question Question
XL 2010 masquer ligne jusqu'à la prochaine cellule non vide d'une colonne
Réponses
8
Affichages
1 K
CHTING
C
W
  • Question Question
XL 2010 Effacer la ligne si cellule vide
Réponses
1
Affichages
820
cathodique
cathodique
chifounou
  • Question Question
VBA scan prochaine cellule vide double colonne
Réponses
4
Affichages
966
chifounou
chifounou
M
  • Question Question
Liste combobox à partir d'une colonne jusqu'a 1ère cellule vide
Réponses
3
Affichages
1 K
Modeste
Modeste
R
  • Question Question
Interdire dans la saisie dans une cellule non vide d'une colonne (clé primaire)
Réponses
3
Affichages
2 K
rcan7412
R
D
  • Question Question
copier le resultat de la derniere cellule non vide d'une colonne
Réponses
7
Affichages
10 K
dubdub22
D
E
  • Question Question
répeter des valeurs dans une colonne jusqu'à cellule non vide
Réponses
3
Affichages
4 K
eldorado
E
B
  • Question Question
Macro pour sélectionner la première cellule vide d'une ligne.
Réponses
6
Affichages
40 K
Broch002
B
Retour