Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Mise à jour de fichiers

  • Initiateur de la discussion Initiateur de la discussion emmanuel75
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

E

emmanuel75

Guest
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...🙂
 
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
 

Pièces jointes

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+
 
Dernière édition:
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
 
Re : Mise à jour de fichiers

Bonjour à tous,

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

Code:
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+
 
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
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
12
Affichages
801
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…