Discussion :

[badr.]

Bonjour à tous,

Je bloque sur une formule vba pour rapporter le contenu d'une colonne dans une feuille d'un autre classeur.

voilà le bout de langage que j'ai fait mais ça fontionne pas j'ai une erreur 438,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub recherche()
Dim i As Integer
 
Set Cells("D" & i) = Workbooks("MacroAlaCon.xlsm").Sheet("COMPTE3CHIFFRE").Range("A1:C370").Find(What:="N" & i, Lookat:=xlWhole)
 
NextFind
 
 
 
End Sub

L'idée est que sur une feuille d'un classeur " Machin.xls" ou ya indiquer dans la colonne N des numéros de compte.
J'ai besoin qu'excel me rapporte les montants indiqués par rapport à ces numéros de compte dans un autre classeur ( autre que celui ou sont indiqué les numéro colonne N) Classeur="MacroAlaCon.xlsm"; et qu'il me renseigne les montant dans le classeur " Machin.xls" colonne D à partir de la cellule 10.

et qu'il continue à rechercher pour les cellules suivante.

Merci

[badr.]

Je suis ouvert à toute proposition les amis,

Je viens d'essayer avec ce bout de code mais ça ne marche pas non plus:

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
 
Sub recherchett()
Dim i As Integer
 
For i = 11 To 59
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC14,[MacroAlaCon.xlsm]COMPTE3CHIFFRE!R1C1:R105C3,3,0)"
    Range("D" & i).Select
    Selection.AutoFill Destination:=Range(":D" & i)
    Range("N" & i).Select
    Windows("MacroAlaCon.xlsm").Activate
    Cells.Find(What:="239", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
    Windows("Machin.xls").Activate
    Range("D11").Select
   Next i
End Sub

[badr.]

Les amis, svp c'est un truc hyper urgent;

[Youni92]

Avant d'utiliser ton code VBA, as-tu vérifier que ton vlookup marche manuellement ?

De plus, pour copier ta formule, tu n'a pas besoin d'une boucle:

Code :

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

Range("A11:A59").Formula = "=VLOOKUP..."

D'après la description de ton problème, un vlookup seul est suffisant, je ne comprend pas pourquoi ta fonction est si compliquée (exemple en PJ).

Book.xlsx

[badr.]

Bjr Youni,

Oui la fontion Vlookup marche manuellement mais le problème comme j'ai expliquer en début du message:

J'ai des numéros dans cette feuille par exemple dans la colonne N pour lesquels je dois renseigner les montant qui eux se trouve dans une feuille dans un autre classeur.

PJ poour plus de détails.

Pour ta réponse stp, le fichier que j'ai reçu là ya aucune macro dedans.

Merci

[Youni92]

Le fait que les données soient dans 2 fichiers ne change rien.
Si ton Vlookup marche, il suffit simplement d'entrer la formule (je ne vois pas l'intérêt d'une macro dans ce cas).

Code :

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

1
2
3
Sub MTest1()
Range("E7:E14").Formula = "=VLOOKUP(RC2,'[Book2.xlsx]Feuil1'!R5C2:R113C4,3,FALSE)"
End Sub

Book.xlsxBook2.xlsx

[Marc-L]

Bonjour,

sinon pour la méthode Find, il suffit juste de respecter son fonctionnement comme indiqué dans son aide et son exemple …