blord
XLDnaute Impliqué
Bonjour à tous,
J'utilise une boucle pour trouver une valeur dans une plage de cellules. Une fois cette valeur trouvée, j'aimerais récupérer la valeur de la ligne 1 de la colonne où cette valeur a été trouvée.
Voici la boucle que j'utilise présentement mais qui me retourne la valeur de la cellule trouvée au lieu de la valeur de la ligne 1 :
Dans le fichier ci-joint, on fait la recherche à partir de la feuille data
On cherche la valeur de la cellule B
On retourne le résultat de la recherche dans la colonne G (Le résultat affiché est ce que j'aimerais avoir, si vous roulez la macro, vous obtiendrez la valeur du compte....)
Merci pour votre aide...
Benoit Lord
J'utilise une boucle pour trouver une valeur dans une plage de cellules. Une fois cette valeur trouvée, j'aimerais récupérer la valeur de la ligne 1 de la colonne où cette valeur a été trouvée.
Voici la boucle que j'utilise présentement mais qui me retourne la valeur de la cellule trouvée au lieu de la valeur de la ligne 1 :
Code:
Dim Compte As String
Dim CompteTrouve
Dim CelluleCourante1 As Range
Dim CelluleSuivante1 As Range
Set CelluleCourante1 = Sheets("data").Range("B2")
Do Until CelluleCourante1.Value = ""
Set CelluleSuivante1 = CelluleCourante1.Offset(1, 0)
Compte = CelluleCourante1.Value
Set CompteTrouve = Sheets("test1").Range("A:Z").Find(What:=Compte)
On Error Resume Next
'ICI au lieu du CompteTrouve.Value j'aimerais récupérer la valeur de la ligne a du CompteTrouve
'Je ne sais jamais`à qu'elle ligne la valeur se trouve
CelluleCourante1.Offset(0, 5).Value = CompteTrouve.Value
Set CelluleCourante1 = CelluleSuivante1
Loop
Dans le fichier ci-joint, on fait la recherche à partir de la feuille data
On cherche la valeur de la cellule B
On retourne le résultat de la recherche dans la colonne G (Le résultat affiché est ce que j'aimerais avoir, si vous roulez la macro, vous obtiendrez la valeur du compte....)
Merci pour votre aide...
Benoit Lord