[Résolu] Rechercher valeur dans une colonne et écrire en face

[klorane]

Bonjour forum,

j'ai dans une colonne "B" des valeurs.

Dans une cellule ("AV1") une valeur
Dans une cellule ("AW1") une valeur

Je voudrais par une macro rechercher la valeur AV1 dans la colonne "B" et lorsqu elle est trouvée indiquée en face dans la colonne "C" la valeur ("AW1).

(Voir fichier joint)

Ex : AV1 = 13 et AW1 = 24 donc C6 =24 car "B6" = 13 etc...

Merci

Klorane.

 

[R@chid]

Re : Rechercher valeur dans une colonne et écrire en face

Bonjour,
une formule classique peut faire l'affaire si tu veux.
en C1 :

=SIERREUR(RECHERCHEV(B1;AV:AW;2;0);"")

@ tirer vers le bas


@ + +

 

[eastwick]

Re : Rechercher valeur dans une colonne et écrire en face

Bonjour, je vous propose ceci...

 

[klorane]

Re : Rechercher valeur dans une colonne et écrire en face

merci eastwick et rachid.

Soucis c'est qu il faut que je passe par une macro car ça va être intégré dans un ensemble déjà existant.
Le fichier que j 'ai fourni est très épuré ^^

Mais l idée est là 🙂

Klorane

 

[eastwick]

Re : Rechercher valeur dans une colonne et écrire en face

La même chose avec une macro, cliquer sur votre gros bouton gris !

 

[klorane]

Re : Rechercher valeur dans une colonne et écrire en face

merci Eastwick.

le principe est bon.
Par contre il ne faudrait pas que les valeurs dans les autres cellules de la colonne C s'effacent.

(car au fur et à mesure que la macro va être lancée la colonne C va se compléter)

Sinon c'est ça.

Klorane

 

[eastwick]

Re : Rechercher valeur dans une colonne et écrire en face

la macro va jusqu'à la ligne 500, faites un essai.

 

[klorane]

Re : Rechercher valeur dans une colonne et écrire en face

La recherche fonctionne mais le souci est que si j'ai déja une valeur par exemple en C4 je me retrouve avec inexistant à la place alors que je voudrais conserver cette valeur

C6 =24 mais le contenu de C4 disparu....

 

[Si...]

Re : Rechercher valeur dans une colonne et écrire en face

Salut
à tester
avec valeur trouvée une fois
Sub Macro1()
Dim R As Range
Set R = [B:B].Find([AV1])
If Not R Is Nothing Then R(1, 2) = [AW1]
End Sub
avec valeur trouvée plusieurs fois

Sub Macro2()
  Dim R As Range
  For Each R In [B1:B13] 'à adapter
    If R = [AV1] Then R(1, 2) = [AW1]
  Next
End Sub

 

[klorane]

Re : Rechercher valeur dans une colonne et écrire en face

Merci Si... c'est se qu il me fallait.

Merci aussi Eastwick qui a planché aussi sur mon sujet et qui a poussé ma curiosité sur la fonction ActiveWindow.ScrollRow

Klorane