Mise à jour de fichiers

[emmanuel75]

Voilà, je dispose d'un fichier de référence (comportant dix colonnes "1"-"2"-"3"..."10" comprenant chacune une dizaine de lignes) et un autre fichier du même type (mêmes colonnes mais dans le désordre).
Quelle macro pourrait m'aider à remettre ce deuxième fichier dans le même ordre que le fichier de référence ? c'est-à-dire colonnes "1","2","3"......"10".

Un grand merci à celui qui arrivera à trouver la solution...🙂

 

[skoobi]

Re : Mise à jour de fichiers

Bonjour,

avec le fichier zippé < 48.8 ko on pourra sûrement faire qqchse.

 

[emmanuel75]

Re : Mise à jour de fichiers

Bonsoir Skooby,
Je prends note de votre message et j'envoie donc en zippé le fichier de référence "14 décembre" et le fichier sur lequel on doit exécuter la macro: "15 décembre"...

Emmanuel🙂

 

[pierrejean]

Re : Mise à jour de fichiers

bonjour emmanuel

Salut Skoobi 🙂

j'avais travaillé avant d'avoir les fichiers d'emmanuel
voila deja a quoi je suis arrivé
la macro est dans emmanuel1
dans emmanuel2 la feuil4 sert a se souvenir de l'ordre avant execution de la macro
les 2 fichiers doivent etre ouverts
je regarde avec ses fichiers

 

[JCGL]

Re : Mise à jour de fichiers

Bonjour à tous,
Salut PJ 🙂,

J'avais commencé donc je dépose mais je vais paraître ridicule face à l'ami PJ
Pas grave, je vais apprendre des choses en ouvrant son fichier

Pensez à renseigner les valeurs Source et Cible.... en H1 et H2

A+

 

[pierrejean]

Re : Mise à jour de fichiers

re
Ave JC 🙂

tu vas surtout apprendre comment on se plante
A la lumière de l'exercice sur les fichiers d'emmanuel j'ais des corrections (je les ferais demain ,ce soir pas le temps)
dans l'immediat les fichiers d'Emmanuel

 

[emmanuel75]

Re : Mise à jour de fichiers

A JCGL et PierreJean un grand merci...
La macro pour remettre en ordre les colonnes...est très efficace...bravo.
J'ai enregistré les deux fichiers et je vais étudier plus en détail le code.
Mille merci.

Emmanuel

 

[JCGL]

Re : Mise à jour de fichiers

Bonjour à tous,

Après relecture de ton problème, je me demande si :

Option Explicit

Sub TriLigne1()
    Range("A1:E10").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
        DataOption1:=xlSortNormal
    Range("A1").Select
End Sub

ne serait pas suffisant.

Tri sur la ligne 1

A+

 

[pierrejean]

Re : Mise à jour de fichiers

bonjour emmanuel
Salut JC 🙂

Comme promis:
correction des fichiers emmanuel1 et emmanuel2
j'avais réussi le tour de force de classer un decembre (sans accent) à la place du décembre avec accent
mais au prix d'une macro qui foirait bien evidemment dès que les données était normales

Je signale egalement pour ceux que cela interesse :
lorsque l'on ecrit:
Set c = ...Find("..", LookIn:=xlValues, lookat:=xlWhole)
le c est réévalué en permanence
si bien que si l'on deplace la cellule ou l'on a fait la trouvaille, l'adresse de c suit

ça m'a retardé un moment et c'est pour cela que dans la macro je passe par une variable (col) pour figer le numero de colonne apres avoir trouvé l'en_tete