rechercher et modifier la valeur d'une cellule

micky · 4 Septembre 2015

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:

PHP:

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 · 4 Septembre 2015

Re : rechercher et modifier la valeur d'une cellule

Bonjour Micky

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

Essaye ceci

Code:

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 · 4 Septembre 2015

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 · 4 Septembre 2015

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.

rechercher et modifier la valeur d'une cellule

micky

XLDnaute Nouveau

Compte Supprimé 979

Guest

CBernardT

XLDnaute Barbatruc

micky

XLDnaute Nouveau

Discussions similaires

rechercher et modifier la valeur d'une cellule

micky

XLDnaute Nouveau

Compte Supprimé 979

Guest

CBernardT

XLDnaute Barbatruc

micky

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency