Bonjour,
Je cherche un moyen de scinder sur deux lignes le résultat qui s'affiche sur une seule ligne. (Voir Fichier précédent intitulé Loto sous mon pseudo).
Ce code affiche 70 numéros contigus sur la ligne CC2. Je voudrais qu'elle affiche 35 premiers numéros sur la cc2 et les 35 derniers sur la cc3 afin d'éviter d'alourdir le code pour la scinder en utilisant copier et coller.
Merci
T2 = Application.Transpose(Array(Dico.Keys, Dico.Items))
While OK = False
OK = True
For i = LBound(T2, 1) To UBound(T2, 1) - 1
If T2(i, 2) < T2(i + 1, 2) Then
tmp1 = T2(i, 1)
tmp2 = T2(i, 2)
T2(i, 1) = T2(i + 1, 1)
T2(i, 2) = T2(i + 1, 2)
T2(i + 1, 1) = tmp1
T2(i + 1, 2) = tmp2
OK = False
End If
Next
Wend
.[cc2].Resize(, 70) = Application.Transpose(T2)
End With