Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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 !
Sub Affiche_Equipes()
For j = 1 To 38
With Sheets("J" & j)
For i = 2 To 11
Cells(i + 10 * (j - 1), "A") = .Cells(2 + i, "A")
Next
End With
Next
End Sub
Bonsoir spitnolan08
Ca fonctionne à moitié,les équipes s'affichent bien mais il faut terminer par un débugage
( erreur d'exécution "9" l'indice n'appartient pas à la sélection).
Merci.
Ca fonctionne à moitié,les équipes s'affichent bien mais il faut terminer par un débugage
( erreur d'exécution "9" l'indice n'appartient pas à la sélection).
il suffit de le réduire avec 3 feuilles: J1 et J2 et la recap (Si bien compris le fonctionnement) et d'alléger les données par feuille si vraiment nécessaire.
- 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