Discussion :

[jimmycarrey]

Bonjour à tous,

J'essai de programmer en vba une fonction qui pourrait récupérer les coordonnées de la cellule ou se trouve le mot que je recherche (et que j'ai renseigné dans ma feuille de base) afin de récupérer la données correspondante située juste dans la cellule à droite (ces données se trouve sur un deuxième fichier Excel).

ex :

Classeur1 Feuill1 (en A1 le mot à trouver, et en D1 le résultat(fonction))

______A______B______C______D
1___TOTO__________________A3
2
3

Classeur2 Feuill1 (la liste des mots)

______A
1___TUTU
2___TATA
3___TOTO
4___TITI

Merci d'avance pour votre aide.

[Qwazerty]

SAlut et bienvenu (ça recrute sec en se moment )
Il y a déjà pas mal de sujet dont tu peux t'inspirer pour faire ta macro en voila un, crée ta macro et si tu rencontre un problème n'hésite pas a nous montrer ton travail et nous ferons notre possible pour t'aider.
A++
Qwaz

[jimmycarrey]

Bonjour,

Le Problème c'est que j'y connait rien, alors voici les premières trames de ce que j'ai pu faire mais si quelqu'un pouvait m'aider à faire fonctionner cette macro Excel, je lui en serais très reconnaissant.

Ca n'a surement aucun sens mais ce peux servir de Base ...

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
35
36
37
38
39
40
41
42
43
44
Public xlMyApp As Excel.Application
Public xlMyBooks As Excel.Workbooks
Public xlMyBook As Excel.Workbook
 
Type Resultats
    Lignes  As Long
    Adresse As String
    Valeur As Variant
End Type
 
 
Function RechercheExcel( _
        Chemin As String, _
        Fichier As String, _
        Feuille As String, _
        MotRecherche As String) As Variant
 
Application.Volatile
 
Dim Cible As String, PlagedeRecherche As String
Dim CelluleTrouve As Range
 
Feuille = Feuille & "$"
 
PlagedeRecherche = "A:A" & Range("A1").End(xlDown).Row
With Range(PlagedeRecherche)
    Set CelluleTrouve = .Find(What:=Cellule.Value, LookIn:=MotRecherche)
End With
 
If Not (CelluleTrouve Is Nothing) Then
    VarBte.Ligne = CelluleTrouve.Row
    VarBte.Adresse = CelluleTrouve.Address
Else
    VarBte.Ligne = 0
End If
Set CelluleTrouve = Nothing
 
If xlMyApp Is Nothing Then
    Set Source = CreateObject("Excel.Application")
    Set xlMyBooks = xlMyApp.Workbooks
    xlMyApp.Visible = True
End If
 
End Function

Merci d'avance

[ouskel'n'or]

Ok, je viens de relire ta question et il y a "distant"
Donc faut modifier
Tu n'es pas obligé de déclarer le classeur distant en public
Je reprends ton code et le mien

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
35
36
37
38
39
40
41
42
Sub CopierLeMot()
Dim XlApp As Object
Dim XlCl1 As Workbook 'Classeur distant
Dim CL2 As Workbook 'Classeur contenant la macro
Dim FL1 As Worksheet 'Feuil1 classeur distant
Dim FL2 As Worksheet 'Feuil1 du classeur CL2
     'Traitement classeur distant
     Set XlApp = CreateObject("Excel.Application") ' L'appli Excel distante
     DoEvents
     'Ouverture du classeur distant
     Set XlCl1  = XlApp.Workbooks.Open("Chemin distant\LeClasseur.xls")
     DoEvents

     'Instance de la feuil1 du classeur distant
     Set FL1 = XlApp. XlCl1.Worksheets("Feuil1")

     'Plage de recherche dans le classeur distant
     Plage = FL1.range("A1:A" & FL1.Range("A65536").end(xlup).row)

     'Instance de la feuil1 du Classeur contenant la macro
     Set FL2 = Workbooks("NomDuClasseur2.xls").worksheets("feuil1")
'ou (tu as le choix...)
     Set CL2 = Thisworkbook 'classeur contenant les macros
     Set FL2 = CL2.worksheets("feuil1")
     'Parcours de la colonne A dans le classeur contenant la macro
     For each Cell in FL2.range("A1:A" & FL2.Range("A65536").end(xlup).row)
          Cell.Offset(0, 3) = Trouver(Cell, FL1, Plage)
     Next

     XlCl1.Close False 'ou true si tu veux enregistrer le classeur distant
     XlAppli.Quit 'fermeture appli distante

     'Enregistrement des données classeur actif
     Activeworkbook.save 

     'Supp des instances
     Set FL1 = Nothing
     Set FL2 = Nothing
     Set XlAppli = Nothing
     Set XlCl = Nothing
     Set Xlfl = Nothing
End sub

toujours sans filet.
Tu peux tester pour nous et nous indiquer ce qui ne va pas ?
A+

[cafeine]

Hello,

et un truc du genre :

Code :

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

=ADRESSE(EQUIV(A1;'[classeur.xls]onglet'!$A:$A;FAUX);1)

[cafeine]

Absolutely my dear, mais ça marche aussi sur un classeur fermé