RechercheH en langage VBA

[aurelien2510]

Bonjour à tous,

J'ai reçu pour le besion d'une macro a effectuer un recherchev afin de remplacer la cellule de destination. Seulement maintenant je voudrais faire exactement la même chose mais en faisant une rechercheH.

Voici le code d'origine:
Sub CreditFournisseurs()

With Sheets("Crédit Fournisseurs").Range("A:A")

Set c = .Find(what:=ThisWorkbook.Sheets("Feuil2").Range("A7"), LookIn:=xlValues)
If Not c Is Nothing Then
adr1 = c.Address
Do
c.Offset(, 2) = ThisWorkbook.Sheets("Feuil2").Range("O7")
Set c = .FindNext(c)
Exit Sub
Loop While Not c Is Nothing And c.Address <> adr1
End If
End With
End Sub

Merci d'avance à vous

 

[PascalXLD]

Re : RechercheH en langage VBA

Bonjour

par exemple pour ta ligne 1 essaies en modifiant

With Sheets("Crédit Fournisseurs").Range("A:A")

par

With Sheets("Crédit Fournisseurs").Range("A1:IV1")

 

[aurelien2510]

Re : RechercheH en langage VBA

Bon j'ai essayer et le probleme, c qu'une fois la valeur trouver il se décale de deux cellule sur la droite pour rentrer la valeur et non de deux cellules vers le bas.
Comment faire?

Merci Pascal

 

[PascalXLD]

Re : RechercheH en langage VBA

re

dans ce cas là c'est ton

c.Offset(, 2)

essaies en remplaçant par

c.Offset(2, 0)

 

[aurelien2510]

Re : RechercheH en langage VBA

Merci, ça marche comme sur des roulettes!!!