utilisation de index et match

Le
marchepied
Bonjour,
j'ai la macro ci-dessous qui fonctionne bien. je récupère "trouvé"
quand il trouve la devise dans la table.
mais au lieu de "trouvé" je voudrai mettre le taux qui correspond à la
devise.
je dois rajouter "index" à la ligne "reponse = Application.Match(C,
devise, 0)" je pense.
pouvez-vous m'aider sur la structure de cette ligne pour obtenir donc
le taux.
merci.


Sub fetch_rate()
Dim devise As Range
Dim taux As Range
With Sheets("DEV")
Set devise = .Range("A5:A" & .Range("A65536").End(xlUp).Row)
Set taux = .Range("B5:B" & .Range("A65536").End(xlUp).Row)
End With
With Sheets("FINAL")
Set devise_final = .Range("A21:A" & .Range("A65536").End
(xlUp).Row)
End With
On Error Resume Next
For Each C In devise_final
Err.Clear
reponse = Application.Match(C, devise, 0)
If reponse = "" Then
C.Offset(0, 1).Value = "erreur"
Else
C.Offset(0, 1).Value = "trouvé"
End If
Error.Clear
Next
End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
marchepied
Le #19626291
On 24 juin, 10:00, marchepied wrote:
Bonjour,
j'ai la macro ci-dessous qui fonctionne bien. je récupère "trouvé"
quand il trouve la devise dans la table.
mais au lieu de "trouvé" je voudrai mettre le taux qui correspond à l a
devise.
je dois rajouter "index" à la ligne "reponse = Application.Match(C,
devise, 0)" je pense.
pouvez-vous m'aider sur la structure de cette ligne pour obtenir donc
le taux.
merci.

Sub fetch_rate()
Dim devise As Range
Dim taux As Range
 With Sheets("DEV")
    Set devise = .Range("A5:A" & .Range("A65536").End(xlUp).Row)
    Set taux = .Range("B5:B" & .Range("A65536").End(xlUp).Row)
    End With
With Sheets("FINAL")
    Set devise_final = .Range("A21:A" & .Range("A65536").End
(xlUp).Row)
    End With
  On Error Resume Next
  For Each C In devise_final
Err.Clear
reponse = Application.Match(C, devise, 0)
If reponse = "" Then
 C.Offset(0, 1).Value = "erreur"
 Else
 C.Offset(0, 1).Value = "trouvé"
End If
Error.Clear
Next
End Sub




Ignoré ma question, j'ai trouvé !

je dois simplement rajouter la ligne:

c.Offset(0, 1).Value = Application.Index(taux, reponse).Value
Publicité
Poster une réponse
Anonyme