• Initiateur de la discussion Initiateur de la discussion MARGAR
  • 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 !

M

MARGAR

Guest
Bonjour le forum,

J'ai un petit souci avec mon fichier.
J'aimerai que mon affichage reste logique mais après plusieurs essais, je n'y parviens toujours pas.

Je vous joins 2 copies d'écrans et le code qui pause problème.

Merci d'avance

Cordialement

Margar

Voici le code :
Code:
For I = 1 To rencontre Step 1
        For J = 1 To NbJ Step 1
            If bigtablo(J, L + 16) = I Then
                If Sheets("P" & L).Cells(3 + I, 1).Value = "" Then
                    Sheets("P" & L).Cells(3 + I, 1).Value = bigtablo(J, 1)
                    numequipe = bigtablo(J, L + 1)
                Else
                    If bigtablo(J, L + 1) = numequipe Then
                        If Sheets("P" & L).Cells(3 + I, 2).Value = "" Then
                            Sheets("P" & L).Cells(3 + I, 2).Value = bigtablo(J, 1)
                        Else
                            If Sheets("P" & L).Cells(3 + I, 3).Value = "" Then
                                Sheets("P" & L).Cells(3 + I, 3).Value = bigtablo(J, 1)
                            End If
                        End If
                    Else
                        If Sheets("P" & L).Cells(3 + I, 4).Value = "" Then
                            Sheets("P" & L).Cells(3 + I, 4).Value = bigtablo(J, 1)
                        Else
                            If Sheets("P" & L).Cells(3 + I, 5).Value = "" Then
                                Sheets("P" & L).Cells(3 + I, 5).Value = bigtablo(J, 1)
                            Else
                                Sheets("P" & L).Cells(3 + I, 6).Value = bigtablo(J, 1)
                            End If
                        End If
                    End If
                End If
            End If
            
        Next J
    Next I
 

Pièces jointes

  • Affichage  OK.PNG
    Affichage OK.PNG
    26.1 KB · Affichages: 125
  • Affichage pas OK.PNG
    Affichage pas OK.PNG
    25.4 KB · Affichages: 122
Re : Affichage inversé

bonjour Margar
changer code label(userform_initialize) et ajouter triplette/doublette dans tirage,pour avoir un bon affichage dans les feuilles P1 à P5
 

Pièces jointes

Re : Affichage inversé

bonjour Margar
ajout d'une feuille tirage complet ,code dans module1
quand tu m'auras confirmé que c'est bon,je ferais quelques petits changements
pour éliminer cette étape(tirage dans la feuille)
 

Pièces jointes

- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
7
Affichages
174
Réponses
15
Affichages
782
Réponses
8
Affichages
390
Réponses
5
Affichages
909
Réponses
4
Affichages
732
Réponses
8
Affichages
780
Retour