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