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

klorane

XLDnaute Occasionnel
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.
 

Pièces jointes

  • rech.xlsm
    9.4 KB · Affichages: 23
  • rech.xlsm
    9.4 KB · Affichages: 24
Dernière édition:

klorane

XLDnaute Occasionnel
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
 

klorane

XLDnaute Occasionnel
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
 

klorane

XLDnaute Occasionnel
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...

XLDnaute Barbatruc
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
Code:
Sub Macro2()
  Dim R As Range
  For Each R In [B1:B13] 'à adapter
    If R = [AV1] Then R(1, 2) = [AW1]
  Next
End Sub
 

Discussions similaires

Réponses
4
Affichages
261