Recherchev Dans un autre classeur
Bonjour ,
j'ai deux classeurs dans le même répertoire : Classeur1 ( change de nom régulièrement ) .
et classeur2 ( qui ne change jamais de nom ) .
je souhaite récuperer dans A2,A3 et A4 3 valeurs du classeur2 en fonction de la valeur de la cellule A1 du classeur1
je voudrais que la macro prenne la valeur de la cellule A1 , scann le classeur2 pour trouver cette meme valeur et me recopie en A2 A3 et A4 les trois valeurs correspondante dans le classeur1
cela me semble facile , mais je tricote depuis deux jours dessus sans succès .
Merci d'avance .
Bonjour
Reste pour nous à connaitre la conception du classeur2
On cherche dans quelle feuille et dans quelles colonnes?
Cordialement
Bjr, on cherche la valeur dans la feuille 1
Colonnes À, les valeurs à récupérer sont sur les colonnes b, c et d
Cdlt
Bonjour
Pourquoi une macro? Alors que la fonction RECHERCHEV marche classeur source ouvert ou fermé.
Méthode
Tu ouvres tes deux classeurs sur une même fenêtre partagée.
En A2 de Classeur1 (ici xls) tu changeras si besoin
=RECHERCHEV($A$1;[Classeur2.xls]Feuil1!$A:$D;LIGNE();0)Tu incrémentes vers le bas sur A3 et A4
Tu fermes le classeur2. Excel modifie automatiquement les formules en y incluant le chemin d'accès.
Tu enregistres Classeur1.
Tes modifications ultérieures impacteront directement les formules dès l'ouverture du classeur contenant les formules
Cordialement
ben si , une macro .
j'ai sur mon premier classeur une macro qui scann et effectue une tache sur la 100ène de feuille de ce dernier .
je voudrais agrémenter cette marco par celle demandée sur ce forum pour qu'elle s'effectue à chaque feuille scannée .
La formule rechecrhe fonctionne t elle dans une macro ????
Merci d'avance
Bonjour
La formule rechecrhe fonctionne t elle dans une macro ????
Peut-être, mais là, c'est sans moi, désolé.
Mais d'autres plus pointus que moi en VBA pourront répondre
Cordialement
Bonjour , j'ai enfin réussi à faire ce que je voulais , ci joint la macro ( adapter suivant vos besoins )
Sub AjoutXYZ()
Dim wbfiches As Workbook 'le fichier Support
Dim wsfiches As Worksheet 'la feuille Support
Dim wbgps As Workbook 'le fichier GPS
Dim wsgps As Worksheet 'la feuille GPS
Dim trouve As Range 'ID coté GPS
Dim idpoteau As String 'ID coté Support
Set wbfiches = ThisWorkbook
Set wbgps = Workbooks.Open(Filename:=ThisWorkbook.Path & "\GPS.xls")
Set wsfiches = wbfiches.Worksheets("FICHES")
Set wsgps = wbgps.Worksheets("GPS")
idpoteau = "Point " & wsfiches.Range("F5") 'Changer le range
With wsgps.Range("A:A") 'colonne dans laquelle on cherche
Set trouve = .Find(What:=idpoteau, LookIn:=xlValues)
If Not trouve Is Nothing Then
wsgps.Cells(trouve.Row, 2).Copy wsfiches.Cells(2, 2) 'on récupère les valeurs en col 2/3/4
wsgps.Cells(trouve.Row, 3).Copy wsfiches.Cells(2, 3) 'on les copie dans les fiches
wsgps.Cells(trouve.Row, 4).Copy wsfiches.Cells(2, 4) 'A ajuster selon la fiche
End If
End With
wbgps.Close
End Sub