Discussion :

[_developpeur_]

Bonjour, j'ai deux fichier excel pour lesquelles je dois controler que je retrouve bien des informations dans les deux.

Ex: j'ai l'information "FFR" dans la colonne D du 1er fichier excel. Est-ce que je le retrouve bien dans la colonne F du deuxieme fichier excel.
Les colonnes sont prédéfinies.

Y-a t-il une fonction en Vb qui permet de faire ce check ?
Ou dois-je créer une macro dans un des fichiers, ensuite boucler sur la colonne des informations sources, ouvrir le deuxieme fichier, boucler sur la colonne des informations cibles et controler que l'information existe ?

Merci beaucoup pour votre aide

[ouskel'n'or]

Ou dois-je créer une macro dans un des fichiers, ensuite boucler sur la colonne des informations sources, ouvrir le deuxieme fichier, boucler sur la colonne des informations cibles et controler que l'information existe ?

Si tu veux simplement savoir si Oui ou Non, la donnée existe, par formule tu as RechercheH ou V. Mais ne connaissant pas le contexte, je ne sais pas si celà correspondra à ton désir
Par macro, tu as find
Un petit et tu auras, une fois pour RechercheV, dans Excel, et une fois pour Find, dans VBA, une explication pour les deux...

A+

[_developpeur_]

j'ai trouvé dans la faq, la ligne de code suivante

Code :

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

vtemp = xlSheet.Columns("E").Find("sdklmjflskdjklfjklsdjfksdfj").Row

Seulement quand la valeur recherché n'existe pas dans la colonne j'ai une erreur variable objet ou varable de bloc with non définie.

Voici tout le code:

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
    'Ouvrir le fichier excel
    Dim xlApp As Excel.Application
    Dim xlSheet As Excel.Worksheet
    Dim xlBook As Excel.Workbook
    Dim vtemp As Variant
 
    'J'initialise mes variables + ouverture du fichier
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("T:\EF ESES RGV\ESES RGV R4 Settlement Custody\11.Perso\DMO\temp\Matching_fonctionnel_technique v0.1.xls")
    Set xlSheet = xlBook.Sheets("Gérer Pouvoir Achat Position ")
 
    MsgBox xlSheet.Cells(1, 1)
 
 
    'Touver une valeur dans une colonne
    vtemp = xlSheet.Columns("E").Find("sdklmjflskdjklfjklsdjfksdfj").Row

Si vous pouvez m'aider, je vous en remercie

[SfJ5Rpw8]

tu peu tester si la recherche à été fructueuse avant d'utiliser le .row... :

Code :

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

1
2
3
4
5
6
Set vTemp = xlSheet.Columns("E").Find("toto")
If vTemp Is Nothing Then
  MsgBox "Introuvable"
  Else
  MsgBox "trouvé ligne " & vTemp.Row
End If