Remplacer si case = "X"

Bonjour,

NOM1 x

NOM2 x

NOM3

NOM4

NOM5 x

Je veux remplacer x par le nom qui lui est associé (seulement si la case = "X").

Soir je voudrai :

NOM1 NOM1

NOM2 NOM2

NOM3

NOM4

NOM5 NOM5

(x est dans une case différente)

Cordialement

Bonjour,

Les noms en colonne A de la feuille "Feuil1" :

Sub Test()

    Dim Plage As Range
    Dim Cel As Range

    With Worksheets("Feuil1"): Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With

    For Each Cel In Plage

        If UCase(Cel.Offset(, 1).Value) = "X" Then Cel.Offset(, 1).Value = Cel.Value

    Next Cel

End Sub

Bonjour,

Mon modèle de ce que je voudrai faire ressemble plutôt à ceci :

TEST1 X X

TEST2 X X X

TEST3 X X

je veux appliquer une formules sur toutes ces cellules qui contiennent "X" et les remplacer par la valeur de gauche pour avoir en retour ceci :

Voici la formule que j'ai essayé : =SI(TROUVE("X";CASEACTUELLE)CASEACTUELLE=$ACOLACTUELLE;" ")

Format souhaité :

TEST1 TEST1 TEST1

TEST2 TEST2 TEST2 TEST2

TEST3 TEST3 TEST3