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