Bonsoir à toutes et à tous,
j'aimerais savoir si il est possible de réduire le nombre de boucle dans ma macro. Je poste que la partie qui prend du temps.
Merci de votre aide
@+
j'aimerais savoir si il est possible de réduire le nombre de boucle dans ma macro. Je poste que la partie qui prend du temps.
Merci de votre aide
@+
Code:
With Worksheets("Feuil1")
Set c = .Range("D2")
Do While c.Offset(0, -1) <> ""
c = c(1, 0) & "-" & Format(c(1, 23), "000")
Set c = c.Offset(1, 0)
Loop
Set c = .Range("D2")
Do While c.Offset(0, 0) <> ""
If c(1, 25) = "C" Or c(1, 25) = "x" Or c(1, 25) = "X" Then
c(1, 25) = "c"
End If
Set c = c.Offset(1, 0)
Loop
Set c = .Range("D2")
Do While c.Offset(0, 0) <> ""
If c(1, 3) = c(1, 4) And c(1, 25) = "c" Then
c(1, 3) = 0
c(1, 4) = 0
End If
Set c = c.Offset(1, 0)
Loop
End With