Trie & insert Row

[Temjeh]

Trie & insert Row

Bonjour à tous

Je cherche une macro un peut spécial:
J'ai des donné col A à H sur beaucoup de lignes

Je cherche à faire un trie de la col D ...si il y a des données pareil il met la série a la prochaine quarantaine +1

EX: Si de
D1 à D12 j'ai "COCO"
D13 à D19 j'ai "JOJO"
D28 à D37 j'ai "BOBO"

Il insère des ligne vide jusqu'à 40 et "JOJO" et les donné de sa ligne se retrouve à ligne 41 et "BOBO" et les donné de sa ligne se retrouve en ligne 81 et aisi de suite pour au moins 700 lignes

Chais pas si j'ai été asser flou

A++ Temjeh

 

[sousou]

Re: Trie & insert Row

Bonjour

<Un petit exemple pour orienter ta réflexion:
Ici le pas est 5 et ont travail sur la colonne d précédemment triée

Sub debut()
Set deb = ActiveSheet.Range("d1")
While deb <> ""
n = 0
While deb = deb.Offset(1, 0)
Set deb = deb.Offset(1, 0)
n = n + 1
Wend
ActiveSheet.Range(deb.Offset(1, 0), deb.Offset(5 - (n + 2), 0)).EntireRow.Insert

Set deb = deb.Offset(5 - (n + 1), 0)
MsgBox deb
Wend
End Sub

 

[Temjeh]

Re: Trie & insert Row

Merci je te redonne des nouvelles

 

[Temjeh]

Re: Trie & insert Row

Merci pour ce code qui en modifiant le 5 par 41 fonctionne pour les 3 premiers mais je ne comprend pas avec 41 il met la suite a:
41
81
127(voici le bug au lieu de 121)
168(voici le bug au lieu de 161)
208(voici le bug au lieu de 201)

Merci a plus

 

[Temjeh]

Re: Trie & insert Row

Je comprend pas trop le bug mais là ca marche

Merci beaucoup

Temjeh