Aller au contenu
  • Pas encore inscrit ?

    Pourquoi ne pas vous inscrire ? C'est simple, rapide et gratuit.
    Pour en savoir plus, lisez Les avantages de l'inscription... et la Charte de Zébulon.
    De plus, les messages que vous postez en tant qu'invité restent invisibles tant qu'un modérateur ne les a pas validés. Inscrivez-vous, ce sera un gain de temps pour tout le monde, vous, les helpeurs et les modérateurs ! :wink:

Copie de données entre 2 fichiers XLS


Bell@tor
 Share

Messages recommandés

bjr a ts, et bonne anniversaire Zebulon !

 

Bon prenons l'exemple suivant : j'ai 2 fichiers XLS A et B ; l'un, A, contient une liste d'utilisateurs et leur mot de passe de l'année derniere, et l'autre, B, contient des noms d'utilisateurs et des mots de passes de cette année. Chacuns des fichiers possède 2 colonnes une nom et l'autre code. il y a t-il un moyen de modifier le fichier A à partir du fichier B de manière a faire une comparaison des 2 fichiers et de modifier, ds le fichier A, que ce qui a changé ? :P:P

merci pour vos futur réponses !

Lien vers le commentaire
Partager sur d’autres sites

Salut,

A mon avis tout dépend du temps que tu peux y passer, de la répétitivité de la tâche ou de la taille de ta liste...

 

"A la main"

tu recopies ta colonne de colonne de codes de B vers A ce qui te crée une 3e colonne. Dans la 4e, tu mets un test du genre =SI(B1=C1;"oui";"non") qui va te dire si le code a changé. Dans la 5e (et attention à la 5e colonne!!!) la valeur que tu veux retenir =SI(D1="oui";B1;C1)

ensuite tu fais un collage spécial (valeurs) de ta colonne 5 à la place de la colonne2 et tu vires les autres.

 

"Avec une macro"

tu te bricoles une petite macro qui compare les valeurs des cellules de A et B et tu remets la nouvelle valeur dans A

 

exemple :

Sub remplace()

Worksheets("A.xls").Select

ligne = 1

Do Until Range("A" & ligne) = ""

'récupère le code dans la feuille B

Worksheets("B.xls").Select

Val_B = Range("B" & ligne).Value

'récupère le code dans la feuille A

Worksheets("A.xls").Select

val_A = Range("B" & ligne).Value

'Compare les deux et remplace, dans la feuille A, la valeur

' si elles sont différentes

If val_A <> Val_B Then

Range("B" & ligne).Value = Val_B

End If

 

ligne = ligne + 1

Loop

 

End Sub

Modifié par korentin
Lien vers le commentaire
Partager sur d’autres sites

Join the conversation

You are posting as a guest. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Invité
Répondre à ce sujet…

×   Collé en tant que texte enrichi.   Coller en tant que texte brut à la place

  Seulement 75 émoticônes maximum sont autorisées.

×   Votre lien a été automatiquement intégré.   Afficher plutôt comme un lien

×   Votre contenu précédent a été rétabli.   Vider l’éditeur

×   Vous ne pouvez pas directement coller des images. Envoyez-les depuis votre ordinateur ou insérez-les depuis une URL.

 Share

  • En ligne récemment   0 membre est en ligne

    • Aucun utilisateur enregistré regarde cette page.
×
×
  • Créer...