Formule qui s'efface apres macro

Bonsoir,
Il faudrait joindre votre code pour se faire une idée.
@+

Voila mon code, je précise que celui-ci fonctionne très bien, mon soucis se passe avec 2 autres colonnes ( qui ne sont pas dans la macro), mais qui se sert des résultats de la macro.

Sub test()
Dim F1 As Range
Dim F2 As Range
Dim F3 As Range
Dim F4 As Range

Dim i%, j%, k%, l%, m%, col%

Dim DL As Long
DL = Sheets("Arrivées").Range("A" & Rows.Count).End(xlUp).Row
Set F1 = Sheets("blanc").Range("A7:U7")
Set F2 = Sheets("rouge").Range("A7:U7")
Set F3 = Sheets("bleu").Range("A7:U7")
Set F4 = Sheets("vert").Range("A7:U7")
Sheets("blanc").Range("AA7:AF" & DL).ClearContents
Sheets("blanc").Range("AA7:AD" & DL).Font.ColorIndex = 1
Application.Calculation = xlCalculationManual
For l = 1 To DL - 1
col = 33
For j = 7 To 21 Step 4
For k = 7 To 21 Step 4
For m = 7 To 21 Step 4
If F2(l, j).Value = F3(l, k).Value And F2(l, j).Value = F4(l, m).Value Then
F1(l, col).Value = F2(l, j).Value
If F1(l, col).Value = F1(l, 7).Value Then
F1(l, 27).Value = F1(l, col).Value
F1(l, col).Value = ""
End If
If F1(l, col).Value = F1(l, 11).Value Then
F1(l, 28).Value = F1(l, col).Value
F1(l, col).Value = ""
End If
If F1(l, col).Value = F1(l, 15).Value Then
F1(l, 29).Value = F1(l, col).Value
F1(l, col).Value = ""
End If
If F1(l, col).Value = F1(l, 19).Value Then
F1(l, 30).Value = F1(l, col).Value
F1(l, col).Value = ""
End If

F1(l, 31).Value = F1(l, 31).Value + F2(l, j + 1).Value
F1(l, 32).Value = F1(l, 32).Value + F2(l, j + 2).Value
col = col + 1
End If
Next m
Next k
Next j
Next l
For col = 33 To 36
For l = 1 To DL - 1
If F1(l, col) <> "" Then
If F1(l, 27) = "" Then
F1(l, 27) = F1(l, col)
F1(l, 27).Font.ColorIndex = 3
F1(l, col) = ""
Else
If F1(l, 28) = "" Then
F1(l, 28) = F1(l, col)
F1(l, 28).Font.ColorIndex = 3
F1(l, col) = ""
Else
If F1(l, 29) = "" Then
F1(l, 29) = F1(l, col)
F1(l, 29).Font.ColorIndex = 3
F1(l, col) = ""
Else
If F1(l, 30) = "" Then
F1(l, 30) = F1(l, col)
F1(l, 30).Font.ColorIndex = 3
F1(l, col) = ""
End If
End If
End If
End If
End If
Next l
Next col
Application.Calculation = xlCalculationAutomatic
End Sub

Bonjour le forum, Dg62, Dakota

Dakota
sans fichier et sans savoir ce qui est effacé, je dirais
DL = Sheets("Arrivées").Range("A" & Rows.Count).End(xlUp).Row
et après
Sheets("blanc").Range("AA7:AF" & DL).ClearContents

pour la solution, je fais comme toi, devines.

Bien cordialement

Bonjour Yahoo, Dakota

Yeahou à dit:

sans fichier et sans savoir ce qui est effacé, je dirais
DL = Sheets("Arrivées").Range("A" & Rows.Count).End(xlUp).Row
et après
Sheets("blanc").Range("AA7:AF" & DL).ClearContents

Cliquez pour agrandir...

D’accord avec toi

@+

Bonjour,

Merci pour vos réponse, mon fichier st assez lourd, je vois pour envoyer au moins un exemple.

Bonjour le fil, le forum

@Dakota
Un ficher exemple de 14 Mo 😱 !
ca fait beaucoup, non?
Tu peux pas l'alléger encore un peu, stp?

re,

je pense que votre problème vient de cette boucle :

@+

Bonjour Staple1600, bonjour le forum,

Le fichier moins lourd 🙂,
Cordialement

Re DG62,

Tu aurais une idée pour pour pouvoir corriger ? moi la je sèche....

Bonjour Dg62

D’accord avec toi 😉
mais le comportement me semble normal

Re

@Dakota
Merci pour le fichier passé en mode régime
Mais est-ce qu'entretemps la proposition de dg62 a résolu ton problème?

re,
Ta boucle à un moment ou un autre efface des cellules. Tu dois revoir l'analyse de ta boucle.

dg62 à dit:

F1(l, col) = ""

Cliquez pour agrandir...

Re,
Oui effectivement, car des lignes sont rajoutées régulièrement pour enrichir le fichier, donc la macro efface les données pour recalculer les nouvelles.

Re,
La macro une fois effectuée, ce que je comprends pas c'est que les formules en AH et AI s'effacent ? et pas à toute les lignes ? ces colonnes devraient être recalculées après la macro et ne font pas parties de la macro.