XL 2019 Remplacer valeur d'une cellule

sylvanu à dit:

Bonsoir NetParty,
Un essai en PJ avec :

VB:

Sub Nettoie()
    Application.ScreenUpdating = False
    DL = Range("C65500").End(xlUp).Row
    For L = 5 To DL
        If Cells(L, "D") = "." Then Cells(L, "D") = Cells(L, "C")
    Next L
    Columns("C:C").Delete Shift:=xlToLeft
    [A1].Select
End Sub

Cliquez pour agrandir...

Lolote83 à dit:

Salut NETPARTY,
Peut être comme ça.

VB:

Sub Test()
    For Each xCell In Range("D4:D35")
        If xCell.Value = "." Then
            xCell.Value = xCell.Offset(0, -1)
        End If
    Next xCell
End Sub

@+ Lolote83

Cliquez pour agrandir...

netparty à dit:

si je lance une deuxième fois la macro par erreur de ne pas re supprimer la colonne

Cliquez pour agrandir...

sylvanu à dit:

Pour cela il faut avoir un indicateur.
En PJ, je fais le traitement que si D4 contient DI objet, sinon je ne fais rien. Donc ce n'est fait qu'une fois.

Cliquez pour agrandir...