XL 2019 Remplacer valeur d'une cellule

[netparty]

Bonjour à tous
Je me demande si cela est possible par macro de remplacer la valeur d'une cellule par la valeur d'une autre cellule sur condition.

Je m'explique, je voudrai remplacer : si ma cellule D4 ne contient que la valeur . alors je remplace le . par la valeur de la cellule C4 et ensuite je supprime la colonne C

Je joint un petit fichier modèle.

Merci d'avance

 

[sylvanu]

Bonsoir NetParty,
Un essai en PJ avec :

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

 

[Lolote83]

Salut NETPARTY,
Peut être comme ça.

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

 

[netparty]

Bonsoir NetParty,
Un essai en PJ avec :

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

Bonjour sylvanu

Merci pour ton code c'est impeccable, est-il possible si je lance une deuxième fois la macro par erreur de ne pas re supprimer la colonne ?

Merci

 

[netparty]

Salut NETPARTY,
Peut être comme ça.

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

bonjour Lolote83

Merci c'est impeccable aussi.

Bonne fin de journée

 

[sylvanu]

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

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.

 

[netparty]

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.

Un tout grand merci

Bonne soirée