Tri alphabétique
Bonjour a tous!
Alors voila mon problème, j'ai un fichier excel comportant à partir de la colonne Z des données. Je vous joint une photo pour que vous compreniez mieux comment sont repartie mes données.
Il y a deux colonnes vides entre chaque différentes données. Et chaque donnée contient deux colonnes. Ces données sont aussi classés dans l'ordre alphabétique. J'aimerai pouvoir rajouter un autre nom et que celui se range tout seul dans l'ordre alphabétique. Imaginons je veux rajouter un "Corentin" j'aimerai que le vba parcours les lignes 1 des colonnes Z a ... et qu'une fois qu'il aura trouver ou doit se situer le bon nom, il insère quatre colonnes et écrit "Corentin" à la bonne place.
Mettre "Corentin" dans la mème police, couleur... que les autres données n'est pas important car j'ai un autre programme vba qui s'en charge. Par contre il ne faudrait pas que le style des données d'a coté soit impacté.
Merci pour votre aide!
Bonne journée!
bonjour,
A l'avenir, merci de mettre un fichier plutot que des photos.
voici une proposition
Sub aargh()
n = InputBox("prenom à ajouter")
i = 1
Do Until Cells(1, i) > n Or Cells(1, i) = ""
i = i + 4
Loop
Range(Columns(i), Columns(i + 3)).Insert Shift:=xlToRight
Cells(1, i) = n
End Subbonjour,
A l'avenir, merci de mettre un fichier plutot que des photos.
voici une proposition
Sub aargh() n = InputBox("prenom à ajouter") i = 1 Do Until Cells(1, i) > n Or Cells(1, i) = "" i = i + 4 Loop Range(Columns(i), Columns(i + 3)).Insert Shift:=xlToRight Cells(1, i) = n End Sub
Merci, ça marche parfaitement ! Bonne journée (je passe en résolu)