XL 2013 Copier une valeur avec condition

[Elodie195]

Bonjour à tous,

Je sollicite votre aide pour une macro Excel.

J'ai un tableau de 3 colonnes.
Dans la première colonne, j'ai des "x"
Je souhaiterais remplacer tous ces "x" par la valeur se trouvant en colonne B "TEXTE A RECUPERER"

Le premier "x" doit doit récupérer B3, le second "x" B11 et ainsi de suite.
C'est toujours le même déplacement, quand on est sur un "x" en colonne A, il faut remonter de 4 puis basculer en colonne B pour récupérer la bonne valeur.

Merci pour votre aide.

Bonne journée.

 

[vgendron]

Hello
essaie avec ce code

Sub remplace()

With Sheets("Feuil1")
    fin = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = fin To 2 Step -1
        If .Range("A" & i) = "x" Then
            .Range("A" & i) = .Range("A" & i).End(xlUp).Offset(-1, 1)
        End If
    Next i
End With
End Sub

 

[pierrejean]

Bonjour Elodie
Formule a mettre A7 puis copier et coller en lieu et place des x
=DECALER(A7;-4;1)

Edit: Salut vgendron

 

[Elodie195]

Bonjour vgendron et pierrejean,

Merci pour votre aide.
Votre macro fonctionne parfaitement

Bonne journée.