bonjour
J'ai besoin de votre aide pour accélerer ce bout de code.
En gros je reçois de différent labo des analyses d'huile que j'importe et je retraite pour homégéniser les résultats de différents labo.
Cette partie de ma macro est celle qui consomme le plus de temps pouvez vous svp m'aider à l'optimiser
Cette procédure aussi prends énormement de temps
J'ai besoin de votre aide pour accélerer ce bout de code.
En gros je reçois de différent labo des analyses d'huile que j'importe et je retraite pour homégéniser les résultats de différents labo.
Cette partie de ma macro est celle qui consomme le plus de temps pouvez vous svp m'aider à l'optimiser
Code:
Sub Symboles()
Columns("F:AP").Select
Selection.Replace What:="9999", Replacement:="1", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="~*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="-", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="<1", Replacement:="0,9", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="<0", Replacement:="0", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="/", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("a1").Activate
Application.Calculate
End Sub
Cette procédure aussi prends énormement de temps
Code:
Sub Formats()
Dim derligne As Integer
derligne = Range("B3000").End(xlUp).Row
For Each c In Range("F2:AP" & derligne).Cells
If c.Value <> "" Then
c.Value = c.Value * 1
End If
Next
Debug.Print "format " & ActiveSheet.Name
Application.Calculate
End Sub
Dernière édition: