Discussion :

[emowpya]

Bonjour,

J'ai deux fichiers excel A.xls et B.xls ,
Dans le fichier A.xls j'ai 4 colonnes A=table,B=column,C=Type,D=Exemple
Dans le fichier B.xls J'ai 4 colonnes E=table,F=column,G=Type,H=Exemple

Je cherche une fonction excel ou un code VBA qui permet la mise à jours automatique des colonnes C et D du fichier A.xls à partir des colonne G et H du fichier B.xls, en effectuant une recherche avec les deux critères table et column.

Merci .

[Daranc]

dans A en C

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=[B]Feuil1!G2

mais après quelle recherche? quels critères
si le truc est gros une solution VBA est envisageable

[keygen08]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub nouveau()
Dim Cls As Workbook
Dim Cld As Workbook
Dim cell As Range
 
 
'set Cls = ("c:\'chemin du classeur"), true
Cld = ThisWorkbook
 
For Each cell In Cls.Sheets("feuil1").Range("a1:a" & Cls.Sheets("feuil1").Range("a65000").End(xlUp).Row)
  '    Set c = cld.Feuil10.Range("a:a").Find(cell.Value2, LookIn:=xlValues, LookAt:=xlWhole)
    '     If Not c Is Nothing Then i = c.Row
        'if cld.col2.value = cls.col2.value then
        'Cld.col3.Value = Cls.col3.Value
        'Cld.col4.Value = Cls.col4.Value
    Else
    'goto next value in cld
  Next cell
End Sub

Désolé, je finirai plus tard, travail oblige.

[emowpya]

Merci . mais j'ai besoin de copier par exp dans la colonne C(A.xls)= la valeur de la colonne G(B.xls) where A(A.xls)=E(B.xls) et B(A.xls)=F(B.xls) ??

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub nouveau()
Dim Cls As Workbook
Dim Cld As Workbook
Dim cell As Range
 
 
'set Cls = ("c:\'chemin du classeur"), true
Cld = ThisWorkbook
 
For Each cell In Cls.Sheets("feuil1").Range("a1:a" & Cls.Sheets("feuil1").Range("a65000").End(xlUp).Row)
  '    Set c = cld.Feuil10.Range("a:a").Find(cell.Value2, LookIn:=xlValues, LookAt:=xlWhole)
    '     If Not c Is Nothing Then i = c.Row
        'if cld.col2.value = cls.col2.value then
        'Cld.col3.Value = Cls.col3.Value
        'Cld.col4.Value = Cls.col4.Value
    Else
    'goto next value in cld
  Next cell
End Sub

Désolé, je finirai plus tard, travail oblige.

[emowpya]

Bonjour,

J'ai deux fichiers excel A.xls et B.xls ,
Dans le fichier A.xls j'ai 4 colonnes A=table,B=column,C=Type,D=Exemple
Dans le fichier B.xls J'ai 4 colonnes E=table,F=column,G=Type,H=Exemple

Je cherche une fonction excel ou un code VBA qui permet la mise à jours automatique des colonnes C et D du fichier A.xls à partir des colonne G et H du fichier B.xls, en effectuant une recherche avec les deux critères table et column.

Merci

[NVCfrm]

Bonjour,

J'ai deux fichiers excel A.xls et B.xls ,
Dans le fichier A.xls j'ai 4 colonnes A=table,B=column,C=Type,D=Exemple
Dans le fichier B.xls J'ai 4 colonnes E=table,F=column,G=Type,H=Exemple

Je cherche une fonction excel ou un code VBA qui permet la mise à jours automatique des colonnes C et D du fichier A.xls à partir des colonne G et H du fichier B.xls, en effectuant une recherche avec les deux critères table et column.

Merci

bonsoir,

si la grandeur du nombre de données à ramener n'est pas trop grand (voir jusqu'à 500 lignes) tu peux utiliser une formule matricielle semblable à ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SIERREUR(INDEX('C:\Users\emowpya\Mon dossier\[Creation dynamiques.xlsb]Paramètres1'!$G$1:$H$13;PETITE.VALEUR(SI('C:\Users\emowpya\Documents\[Creation dynamiques.xlsb]Paramètres1'!$H$1:$H$13=1;LIGNE('C:\Users\emowpya\Mon dossier\[Creation dynamiques.xlsb]Paramètres1'!$H$1:$H$13));LIGNE(1:100));{1.2});"")

sinon essayes avec Microsoft Query pour renvoyer un objet QueryTable
souvent j'utilises cette technique particulièrement efficace et moins contraignante, bien que peu doué dans les syntaxes de requêtes SQL.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
    Dim expt As ListObject, data As QueryTable
 
    Set data = ActiveSheet.ListObjects.Add(SourceType:=0, _
    source:=Array(Array("ODBC;DSN=Excel Files;" _
    & "DBQ=C:\Users\emowpya\Desktop\Mon dossier\Noyau.xlsb;" _
    & "DefaultDir=C:\Users\emowpya\Desktop\Mon dossier"), _
    Array(" dossier;" _
    & "DriverId=1046;" _
    & "MaxBufferSize=2048;" _
    & "PageTimeout=5;")), _
    Destination:=Range("$B$3")).QueryTable
 
    'la commande suivante définit certains champs de la table en ignorant d'autres
    'définit les critères, et l'ordre de tri
    With data
        .CommandText = Array( _
            "SELECT Table_Reference.`Nom public`, Table_Reference.Titre, Table_Reference.Prenom, Table_Reference.Nom, Table_Reference.Téléphone, Table_Reference.Statut" _
            & Chr(13) & "" & Chr(10) & "FROM Table_Reference Table_Reference" & Chr(13) & "" & Chr(10) _
            & "WHERE ", "(Table_Reference.Prenom='Paul') AND (Table_Reference.Nom<>'Dupont')" & Chr(13) & "" & Chr(10) _
            & "ORDER BY Table_Reference.Prenom, Table_Reference.Nom")
 
        '.AdjustColumnWidth = False
        '.FillAdjacentFormulas = True ' propriété très utile qui me permet d'actualiser les formules à droite de l'objet
        '.MaintainConnection = False
        .Refresh
        .Refresh BackgroundQuery:=False
        .Delete 'supprime la connection
    End With
 
 
    Set expt = ActiveSheet.ListObjects(1)
    expt.Unlink
    expt.TableStyle = ""
    expt.Unlist 'transforme la liste en plage ordinaire

[keygen08]

Bonjour

j'ai besoin de copier par exp dans la colonne C(A.xls)= la valeur de la colonne G(B.xls) where A(A.xls)=E(B.xls) et B(A.xls)=F(B.xls) ??

C'est l'idée que j'ai develloper,... est eu le temps de terminer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub nouveau()
Dim Cls As Workbook
Dim Cld As Workbook
Dim cell As Range
Dim num As Integer
 
Set Cld = ThisWorkbook
'ouvre le classeur source en lecture seule
Set Cls = Application.Workbooks.Open("d:\classeurB.xls", , True)
'pour toutes les cellules classeurA, colonne a:a
For Each cell In Cld.Sheets("feuil1").Range("a2:a" & Cld.Sheets("feuil1").Range("a65000").End(xlUp).Row)
i = 2
autre:
'cherche si la valeur clasA A2 se trouve dans le clasB,colE
      Set c = Cls.Sheets(1).Range("e" & i & ":e50").Find(cell.Text, LookIn:=xlValues, LookAt:=xlWhole)
      If Not c Is Nothing Then i = c.Row
'si la valeur existe, compare les valeurs des colonne clasA colB avec clasB colF
            If Cld.Sheets(1).Range("b" & cell.Row).Value = Cls.Sheets(1).Range("f" & i).Value Then
'si les valeur comparé sont exactes alors on inscrit sur clas A col C et COL D
            Cld.Sheets(1).Range("c" & cell.Row).Value = Cls.Sheets(1).Range("g" & i).Value
            Cld.Sheets(1).Range("d" & cell.Row).Value = Cls.Sheets(1).Range("h" & i).Value
                Else
'sinon l'on cherche dans le reste du tableau
                i = i + 1
                GoTo autre
            End If
 
    Next cell
  Cls.Close
End Sub