bonjour voici la macro dont j'aimerai limiter l'action à 400 lignes, pour
accéler le traitement (et non pas sur les 65000 lignes)
For Each cel In Range("e1:" & Range("e1").End(xlDown).Address)
If cel.Value = 411920 Then
cel.Offset(0, 5).Formula = cel.Offset(0, 4).Value
Else
cel.Offset(0, 5).Formula = ""
End If
Next
For Each cel In Range("g1:" & Range("g1").End(xlDown).Address)
If cel.Value = 411920 Then
cel.Offset(0, 4).Formula = cel.Offset(0, 2).Value
Else
cel.Offset(0, 4).Formula = ""
End If
Next
(le reste de la macro étant de la mise en forme genre
suppression de colonnes)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Clément Marcotte
for i = 1 to 400 if cells(i,5).value = 411920 then cells(i, 6).formula = cells(i,4).value else cells(i,6).formula = "" end if if cells(i,7).value = 411920 then cells(i, 11).formula = cells(i,9).value else cells(i,11).formula = "" end if next
"JC" a écrit dans le message de news:41598e7e$0$25682$
bonjour voici la macro dont j'aimerai limiter l'action à 400 lignes, pour
accéler le traitement (et non pas sur les 65000 lignes)
For Each cel In Range("e1:" & Range("e1").End(xlDown).Address) If cel.Value = 411920 Then cel.Offset(0, 5).Formula = cel.Offset(0, 4).Value Else cel.Offset(0, 5).Formula = "" End If
Next For Each cel In Range("g1:" & Range("g1").End(xlDown).Address) If cel.Value = 411920 Then cel.Offset(0, 4).Formula = cel.Offset(0, 2).Value Else cel.Offset(0, 4).Formula = "" End If Next
(le reste de la macro étant de la mise en forme genre suppression de colonnes)
merci par avance
for i = 1 to 400
if cells(i,5).value = 411920 then
cells(i, 6).formula = cells(i,4).value
else
cells(i,6).formula = ""
end if
if cells(i,7).value = 411920 then
cells(i, 11).formula = cells(i,9).value
else
cells(i,11).formula = ""
end if
next
"JC" <jc@sportif.net> a écrit dans le message de
news:41598e7e$0$25682$626a14ce@news.free.fr...
bonjour voici la macro dont j'aimerai limiter l'action à 400 lignes,
pour
accéler le traitement (et non pas sur les 65000 lignes)
For Each cel In Range("e1:" & Range("e1").End(xlDown).Address)
If cel.Value = 411920 Then
cel.Offset(0, 5).Formula = cel.Offset(0, 4).Value
Else
cel.Offset(0, 5).Formula = ""
End If
Next
For Each cel In Range("g1:" & Range("g1").End(xlDown).Address)
If cel.Value = 411920 Then
cel.Offset(0, 4).Formula = cel.Offset(0, 2).Value
Else
cel.Offset(0, 4).Formula = ""
End If
Next
(le reste de la macro étant de la mise en forme genre
suppression de colonnes)
for i = 1 to 400 if cells(i,5).value = 411920 then cells(i, 6).formula = cells(i,4).value else cells(i,6).formula = "" end if if cells(i,7).value = 411920 then cells(i, 11).formula = cells(i,9).value else cells(i,11).formula = "" end if next
"JC" a écrit dans le message de news:41598e7e$0$25682$
bonjour voici la macro dont j'aimerai limiter l'action à 400 lignes, pour
accéler le traitement (et non pas sur les 65000 lignes)
For Each cel In Range("e1:" & Range("e1").End(xlDown).Address) If cel.Value = 411920 Then cel.Offset(0, 5).Formula = cel.Offset(0, 4).Value Else cel.Offset(0, 5).Formula = "" End If
Next For Each cel In Range("g1:" & Range("g1").End(xlDown).Address) If cel.Value = 411920 Then cel.Offset(0, 4).Formula = cel.Offset(0, 2).Value Else cel.Offset(0, 4).Formula = "" End If Next
(le reste de la macro étant de la mise en forme genre suppression de colonnes)
