Comparaison de données entre deux fichiers

Résolu/Fermé

DGVDR Messages postés 158 Date d'inscription vendredi 10 août 2012 Statut Membre Dernière intervention 20 juillet 2015 - 12 févr. 2014 à 14:21
DGVDR Messages postés 158 Date d'inscription vendredi 10 août 2012 Statut Membre Dernière intervention 20 juillet 2015 - 13 févr. 2014 à 14:56

Bonjour,

Et merci de votre temps,

J'ai deux documents .xls

Un premier appelé "DRM EARL" et un second "Tableau DRM-UNICID"

J'aimerai qu'en fonction de ma case E3 de "DRM EARL" je puisse récupérer un n° de colonne dans l'autre document.

Je m'explique:

la case E3 de "DRM EARL" est une date.

Ces dates réapparaissent dans la ligne 5 de l'onglet "2013-2014" de "Tableau DRM-UNICID"

J'aimerai donc attribuer ma date contenue en E3 à une variable et dès que je retrouves cette date dans la ligne 5 de mon autre fichier EXCEL, qui serait balayer colonne par colonne, je récupères le n° de colonne dans laquelle elle se trouve.

La finalité est de récupérer d'autres valeurs de cette colonne pour les amener dans mon document "DRM EARL". En enregistrant une macro j'ai obtenu cette formalisation :

Range("B12").Select
    ActiveCell.FormulaR1C1 = "='[Tableau DRM-UNICID.xlsx]2013-2014'!R102C8"

A voir comment modifier cette procédure avec ma variable...

Merci à ceux qui prendront le temps de m'aider.

DGVDR

A voir également:

Comparaison de données entre deux fichiers
Wetransfer gratuit fichiers lourd - Guide
Deux comptes whatsapp - Guide
Fusionner deux fichiers excel - Guide
Explorateur de fichiers - Guide
Renommer plusieurs fichiers - Guide

5 réponses

Réponse 1 / 5

DGVDR Messages postés 158 Date d'inscription vendredi 10 août 2012 Statut Membre Dernière intervention 20 juillet 2015
12 févr. 2014 à 16:30

J'ai tenté :

Sub test2()
'
' test2 Macro
Dim d As Date 'date
Dim Nb As Integer

d = Range("E" & 3).Value

For i = 5 To 16

If ([Tableau DRM-UNICID.xlsx]2013-2014!R5C & i )= d then

    ([Tableau DRM-UNICID.xlsx]2013-2014!R5C & i ).select

    Nb = ActiveCell.Column

Next d

Il semble que ma nomenclature :

 ([Tableau DRM-UNICID.xlsx]2013-2014!R5C & i )

, ne soit pas correcte...

Des idées ?

Merci,

DGVDR

Réponse 2 / 5

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 12/02/2014 à 17:10

Bonjour,

sauf erreur,

Sub test2()
    Dim d As Date 'date
    Dim Nb As Integer

    d = Range("E" & 3).Value

    For i = 5 To 16
        If Workbooks("Tableau DRM-UNICID.xlsx").Worksheets("2013-2014").Cells(5, i) = d Then
            Nb = i
        End If
    Next i
End Sub

Une fois d trouve, il faudrait peut-etre sortir de la boucle

Réponse 3 / 5

DGVDR Messages postés 158 Date d'inscription vendredi 10 août 2012 Statut Membre Dernière intervention 20 juillet 2015
13 févr. 2014 à 10:16

Bonjour f894009,

Merci beaucoup pour ton aide,

J'arrive bien à récupérer ma valeur et à récupérer le numéro de la colonne.

Cependant je n'arrive pas à réexploiter derrière cette info...

Je veux incrémenter mon document "DRM EARL" grâce à Tableau "DRM-UNICID"

J'ai tenté, par exemple :

Workbooks("DRM EARL.xlsx").Worksheets("Feuil1").Range("B12") = Workbooks("Tableau DRM-UNICID.xlsx").Worksheets("2013-2014").Cells(i, 102).Value

Ca ne marche pas...

Des idées ?

Peut-être que mon code peut être simplifié...

Merci beaucoup,

DGVDR

Réponse 4 / 5

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
13 févr. 2014 à 12:08

Bonjour,

Ca ne marche pas... Qu'est ce qui ne marche pas ????

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

DGVDR Messages postés 158 Date d'inscription vendredi 10 août 2012 Statut Membre Dernière intervention 20 juillet 2015
13 févr. 2014 à 14:56

Bonjour,

J'ai modifié la correspondance par :

Workbooks("DRM EARL.xlsx").Worksheets("Feuil1").Range("B12").Value = Workbooks("Tableau DRM-UNICID.xlsx").Worksheets("2013-2014").Cells(102, Nb).Value

-> C'était un problème de nomenclature sur le Cells(ligne,colonne)

Merci beaucoup f894009 , je suis arrivé à faire ce que je voulais.

Bonne journée,

Résolu !

DGVDR

Discussions similaires

Un seul de mes écouteurs marche. Que faire ?

comment donner les droits sur fichier partage

Exemple de base de données access

Discussions similaires

Newsletters