Scinder une ligne de données en deux avec application.Transpose
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
Bonjour,
Pas cherché et donc pas trouvé le fichier en question.
Qu'est ce qu'on trouve dans dico.keys et dico. item ( ou bien dans chaque "colonne" de T2) ?
A+
Bonjour Algoplus,
Je crois que cela va être plus simple de te répondre avec un fichier.
Merci
A la place de :
.[cc2].Resize(, 70) = Application.Transpose(T2)coller cette modif:
For i = 36 To 70
T2(i - 35, 2) = T2(i, 1)
Next
.[c2].Resize(2, 35) = Application.Transpose(T2)Attention [cc2] dans le code de la discussion et [c2] dans le classeur
A+