rechercher et modifier la valeur d'une cellule

[micky]

Bonjour a tous !

malgré plusieurs recherches sur le web (quelques heures quand mm), je me tourne encore vers vous.
voici le problème:

je voudrais faire une macro qui:
a partir d'une cellule A1 de la feuil1
retrouver dans le tableau de la feuil2 col A, la valeur de A1
et dans la colonne B (en croisement avec la ligne ou se trouve A1)
insérer une valeur qui se trouve dans la feuil1 en B1.

j'ai beaucoup essayer avec ce code:

Sub test()
 With Sheets("Feuil1")
     .Range("B1").Value = WorksheetFunction.VLookup(.Range("A1").Value, Sheets("Feuil2").Range("A1:B100"), 2, False)
 End With
 End Sub

ici le probleme c'est qu'il va rechercher la valeur et me l'a renvoyer. il faudrait modifier...
je ne sais pas comment modifier pour arriver a mes objetifs.

merci de votre aide !

 

[Compte Supprimé 979]

Re : rechercher et modifier la valeur d'une cellule

Bonjour Micky

Tu n'utilises pas la bonne fonction et le bon code

Essaye ceci

Sub test()  Dim Lig As Long, vSearch As String
  ' Mémoriser la valeur à chercher
  vSearch = Sheets("Feuil1").Range("A1").Value
  ' en cas d'erreur pour trouver la valeur, on arrête la procédure
  On Error GoTo FinProc
  ' Utiliser la fonction EQUIV() pour trouver la ligne
  Lig = WorksheetFunction.Match(vSearch, Sheets("Feuil2").Range("A:A"), 0)
  ' Inscrire dans la cellule B de la ligne la valeur B1 de la feuille 1
  Sheets("Feuil2").Range("B" & Lig).Value = Sheets("Feuil1").Range("B1").Value
FinProc:
  ' Termine ici la procédure si rien trouvé
 End Sub

A+

 

[CBernardT]

Re : rechercher et modifier la valeur d'une cellule

Bonjour micky,

Salut BrunoM45

A tester !
Sub test()
Dim ValA, ValB, i As Integer
With Sheets("Feuil1")
ValA = .Range("A1")
ValB = Sheets("Feuil1").Range("B1")
End With
With Sheets("Feuil2")
derlig = .Range("A10000").End(xlUp).Row
For i = 1 To derlig
If .Cells(i, 1) = ValA Then
.Cells(i, 2) = ValB
Exit Sub
End If
Next i
End With
End Sub

 

[micky]

Re : rechercher et modifier la valeur d'une cellule

merci pour vos réponses rapide !
j'ai utilisé le code BrunoM45, c'est parfait.
merci a vous deux.