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

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

merci pour tes exemples... je vais essayer cette macro...

bon j'ai essayé cette macro et Visual basic me renvoi une erreur sur la ligne "Worksheets("A.xls").Select".... :P .... que ce passe t-il ?

 

merci encore

Modifié par Bell@tor
Lien vers le commentaire
Partager sur d’autres sites

Rejoindre la conversation

Vous publiez en tant qu’invité. Si vous avez un compte, connectez-vous maintenant pour publier avec votre compte.
Remarque : votre message nécessitera l’approbation d’un modérateur avant de pouvoir être 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.

  • En ligne récemment   0 membre est en ligne

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