Comparaison de données entre deux fichiers

Résolu
DGVDR Messages postés 158 Date d'inscription   Statut Membre Dernière intervention   -  
DGVDR Messages postés 158 Date d'inscription   Statut Membre Dernière intervention   -
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:

5 réponses

Réponse 1 / 5
DGVDR Messages postés 158 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Réponse 2 / 5
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
0
Réponse 3 / 5
DGVDR Messages postés 158 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Réponse 4 / 5
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

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

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   Statut Membre Dernière intervention  
 
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
0