Boucle + ordre croissant

[julien974]

Bonjour,

Après quelques semaines d‘absence sur le Forum (ce qui est positif !), je reviens vers vous concernant une nouvelle demande.

Dans la feuille N1, une liste de données en colonne ordonnées dans l’ordre croissant.
Dans la feuille E1, une liste de données en ligne que l’on doit actualiser grâce à la première.
En clair, il faudrait ajouter dans E1 les nouveaux lieux se situant dans N1, dans le même ordre, en insérant une colonne au bon endroit puis en collant le nom. (Dans l'exemple il s'agit de Bordeaux)

Ceci est à faire quelque soit le nombre de données à traiter.

Ci-joint le fichier.

Merci de votre aide,

Juli3n 974

 

[pierrejean]

Re : Boucle + ordre croissant

bojour Julien

Par macro evenementielle a l'activation de la feuille E1

Private Sub Worksheet_Activate()
ActiveSheet.Range("B1:IV1").ClearContents
For n = 2 To Sheets("N1").Range("A65536").End(xlUp).Row
 ActiveSheet.Cells(1, n) = Sheets("N1").Range("A" & n)
Next n
End Sub

 

[julien974]

Re : Boucle + ordre croissant

Bonjour et merci de ta réponse pierrejean,

En fait ce n'est pas tout à fait cela...
Je souhaiterais que la colonne entière s'insert pour que les valeurs qu'il y aura en dessous restent sous les bonnes données...
Par ailleurs, un bonton d'actualisation suffira pour l'activation de la macro

Merci encore,

Juli3n974

 

[pierrejean]

Re : Boucle + ordre croissant

Re

Je ne comprends pas
Que veux-tu dire par colonne entiere ?
Quant a la cde par bouton il te suffit de transferer la macro en Commandbutton_click

 

[julien974]

Re : Boucle + ordre croissant

Je me suis mal expimé.

Voici en clair ce à quoi je veux parvenir.

Merci,

Juli3n 974

 

[pierrejean]

Re : Boucle + ordre croissant

Re

Teste ceci
nb : essaie plusieurs configurations
pour ma part j'en ai testé 1 ou 2 (les tests ne sont pas mon point fort !!)