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...
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é ^^
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
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