Simplification de macro excel 2010 pour gagner en rapidité d'exe

steph62880 Messages postés 13 Date d'inscription   Statut Membre Dernière intervention   -  
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
Je suis sapeurs pompiers volontaire, a ce jour nous utilisons excel 2013 pour géré nos intervention ect..., mais à la remise a 0 celui ci prend 9 minutes afin de tout remettre à 0.

Sachant que nous avons une très grande liste de macro pour effectué cette tâche.
Pourriez vous simplifier cette liste afin que l'exécution soi beaucoup plus rapide ?

cordialement

voici la macro: 
If Sheets("feuil13").Range("b1") = Sheets("dispo").Range("a9") And Sheets("feuil13").Range("b3") <> "ACTIVITE DE SERVICE" And Sheets("feuil13").Range("b3") <> "RECUPERATION DE MATERIEL" Then
Sheets("sa").Range("39:39").Insert
Sheets("sa").Range("a39").Value = Sheets("feuil13").Range("e2")
Sheets("sa").Range("b39").Value = Sheets("feuil13").Range("b9")
Sheets("sa").Range("c39").Value = Sheets("feuil13").Range("b12")
Sheets("sa").Range("d39").Value = Sheets("feuil13").Range("e7")
Sheets("sa").Range("e39").Value = Sheets("feuil13").Range("b3")
Sheets("sa").Range("h39").Value = Sheets("feuil13").Range("b5")
End If
If Sheets("feuil13").Range("b1") = Sheets("dispo").Range("a10") And Sheets("feuil13").Range("b3") <> "ACTIVITE DE SERVICE" And Sheets("feuil13").Range("b3") <> "RECUPERATION DE MATERIEL" Then
Sheets("di").Range("39:39").Insert
Sheets("di").Range("a39").Value = Sheets("feuil13").Range("e2")
Sheets("di").Range("b39").Value = Sheets("feuil13").Range("b9")
Sheets("di").Range("c39").Value = Sheets("feuil13").Range("b12")
Sheets("di").Range("d39").Value = Sheets("feuil13").Range("e7")
Sheets("di").Range("e39").Value = Sheets("feuil13").Range("b3")
Sheets("di").Range("h39").Value = Sheets("feuil13").Range("b5")
End If
If Sheets("feuil13").Range("b1") = Sheets("dispo").Range("a11") And Sheets("feuil13").Range("b3") <> "ACTIVITE DE SERVICE" And Sheets("feuil13").Range("b3") <> "RECUPERATION DE MATERIEL" Then
Sheets("lu").Range("39:39").Insert
Sheets("lu").Range("a39").Value = Sheets("feuil13").Range("e2")
Sheets("lu").Range("b39").Value = Sheets("feuil13").Range("b9")
Sheets("lu").Range("c39").Value = Sheets("feuil13").Range("b12")
Sheets("lu").Range("d39").Value = Sheets("feuil13").Range("e7")
Sheets("lu").Range("e39").Value = Sheets("feuil13").Range("b3")
Sheets("lu").Range("h39").Value = Sheets("feuil13").Range("b5")
End If
If Sheets("feuil16").Range("b2") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("c2").Value = Sheets("feuil16").Range("b2")
End If
If Sheets("feuil16").Range("b3") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("c3").Value = Sheets("feuil16").Range("b3")
End If
If Sheets("feuil16").Range("b4") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("c4").Value = Sheets("feuil16").Range("b4")
End If
If Sheets("feuil16").Range("b5") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("c5").Value = Sheets("feuil16").Range("b5")
End If
If Sheets("feuil16").Range("b6") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("c6").Value = Sheets("feuil16").Range("b6")
End If
If Sheets("feuil16").Range("b7") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("c7").Value = Sheets("feuil16").Range("b7")
End If
If Sheets("feuil16").Range("b8") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("c8").Value = Sheets("feuil16").Range("b8")
End If
If Sheets("feuil16").Range("b9") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("c9").Value = Sheets("feuil16").Range("b9")
End If
If Sheets("feuil16").Range("b10") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("c10").Value = Sheets("feuil16").Range("b10")
End If
If Sheets("feuil16").Range("b11") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("c11").Value = Sheets("feuil16").Range("b11")
End If
If Sheets("feuil16").Range("b12") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("c12").Value = Sheets("feuil16").Range("b12")
End If
If Sheets("feuil16").Range("b13") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("c13").Value = Sheets("feuil16").Range("b13")
End If
If Sheets("feuil16").Range("b14") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("c14").Value = Sheets("feuil16").Range("b14")
End If
If Sheets("feuil16").Range("b15") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("c15").Value = Sheets("feuil16").Range("b15")
End If
If Sheets("feuil16").Range("b16") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("c16").Value = Sheets("feuil16").Range("b16")
End If
If Sheets("feuil16").Range("b17") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("c17").Value = Sheets("feuil16").Range("b17")
End If
If Sheets("feuil16").Range("b18") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("c18").Value = Sheets("feuil16").Range("b18")
End If
If Sheets("feuil16").Range("c2") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("f2").Value = Sheets("feuil16").Range("c2")
End If
If Sheets("feuil16").Range("c3") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("f3").Value = Sheets("feuil16").Range("c3")
End If
If Sheets("feuil16").Range("c4") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("f4").Value = Sheets("feuil16").Range("c4")
End If
If Sheets("feuil16").Range("c5") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("f5").Value = Sheets("feuil16").Range("c5")
End If
If Sheets("feuil16").Range("c6") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("f6").Value = Sheets("feuil16").Range("c6")
End If
If Sheets("feuil16").Range("c7") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("f7").Value = Sheets("feuil16").Range("c7")
End If
If Sheets("feuil16").Range("c8") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("f8").Value = Sheets("feuil16").Range("c8")
End If
If Sheets("feuil16").Range("c9") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("f9").Value = Sheets("feuil16").Range("c9")
End If
If Sheets("feuil16").Range("c10") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("f10").Value = Sheets("feuil16").Range("c10")
End If
If Sheets("feuil16").Range("c11") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("f11").Value = Sheets("feuil16").Range("c11")
End If
If Sheets("feuil16").Range("c12") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("f12").Value = Sheets("feuil16").Range("c12")
End If
If Sheets("feuil16").Range("c13") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("f13").Value = Sheets("feuil16").Range("c13")
End If
If Sheets("feuil16").Range("c14") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("f14").Value = Sheets("feuil16").Range("c14")
End If
If Sheets("feuil16").Range("c15") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("f15").Value = Sheets("feuil16").Range("c15")
End If
If Sheets("feuil16").Range("c16") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("f16").Value = Sheets("feuil16").Range("c16")
End If
If Sheets("feuil16").Range("c17") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("f17").Value = Sheets("feuil16").Range("c17")
End If
If Sheets("feuil16").Range("c18") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("f18").Value = Sheets("feuil16").Range("c18")
End If
If Sheets("feuil16").Range("d2") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("l2").Value = Sheets("feuil16").Range("d2")
End If
If Sheets("feuil16").Range("d3") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("l3").Value = Sheets("feuil16").Range("d3")
End If
If Sheets("feuil16").Range("d4") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("l4").Value = Sheets("feuil16").Range("d4")
End If
If Sheets("feuil16").Range("d5") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("l5").Value = Sheets("feuil16").Range("d5")
End If
If Sheets("feuil16").Range("d6") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("l6").Value = Sheets("feuil16").Range("d6")
End If
If Sheets("feuil16").Range("d7") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("l7").Value = Sheets("feuil16").Range("d7")
End If
If Sheets("feuil16").Range("d8") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("l8").Value = Sheets("feuil16").Range("d8")
End If
If Sheets("feuil16").Range("d9") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("l9").Value = Sheets("feuil16").Range("d9")
End If
If Sheets("feuil16").Range("d10") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("l10").Value = Sheets("feuil16").Range("d10")
End If
If Sheets("feuil16").Range("d11") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("l11").Value = Sheets("feuil16").Range("d11")
End If
If Sheets("feuil16").Range("d12") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("l12").Value = Sheets("feuil16").Range("d12")
End If
If Sheets("feuil16").Range("d13") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("l13").Value = Sheets("feuil16").Range("d13")
End If
If Sheets("feuil16").Range("d14") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("l14").Value = Sheets("feuil16").Range("d14")
End If
If Sheets("feuil16").Range("d15") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("l15").Value = Sheets("feuil16").Range("d15")
End If
If Sheets("feuil16").Range("d16") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("l16").Value = Sheets("feuil16").Range("d16")
End If
If Sheets("feuil16").Range("d17") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("l17").Value = Sheets("feuil16").Range("d17")
End If
If Sheets("feuil16").Range("d18") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("l18").Value = Sheets("feuil16").Range("d18")
End If
If Sheets("feuil16").Range("e2") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("i2").Value = Sheets("feuil16").Range("e2")
End If
If Sheets("feuil16").Range("e3") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("i3").Value = Sheets("feuil16").Range("e3")
End If
If Sheets("feuil16").Range("e4") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("i4").Value = Sheets("feuil16").Range("e4")
End If
If Sheets("feuil16").Range("e5") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("i5").Value = Sheets("feuil16").Range("e5")
End If
If Sheets("feuil16").Range("e6") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("i6").Value = Sheets("feuil16").Range("e6")
End If
If Sheets("feuil16").Range("e7") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("i7").Value = Sheets("feuil16").Range("e7")
End If
If Sheets("feuil16").Range("e8") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("i8").Value = Sheets("feuil16").Range("e8")
End If
If Sheets("feuil16").Range("e9") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("i9").Value = Sheets("feuil16").Range("e9")
End If
If Sheets("feuil16").Range("e10") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("i10").Value = Sheets("feuil16").Range("e10")
End If
If Sheets("feuil16").Range("e11") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("i11").Value = Sheets("feuil16").Range("e11")
End If
If Sheets("feuil16").Range("e12") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("i12").Value = Sheets("feuil16").Range("e12")
End If
If Sheets("feuil16").Range("e13") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("i13").Value = Sheets("feuil16").Range("e13")
End If
If Sheets("feuil16").Range("e14") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("i14").Value = Sheets("feuil16").Range("e14")
End If
If Sheets("feuil16").Range("e15") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("i15").Value = Sheets("feuil16").Range("e15")
End If
If Sheets("feuil16").Range("e16") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("i16").Value = Sheets("feuil16").Range("e16")
End If
If Sheets("feuil16").Range("e17") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("i17").Value = Sheets("feuil16").Range("e17")
End If
If Sheets("feuil16").Range("e18") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("i18").Value = Sheets("feuil16").Range("e18")
End If
If Sheets("feuil16").Range("f2") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("p2").Value = Sheets("feuil16").Range("f2")
End If
If Sheets("feuil16").Range("f3") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("p3").Value = Sheets("feuil16").Range("f3")
End If
If Sheets("feuil16").Range("f4") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("p4").Value = Sheets("feuil16").Range("f4")
End If
If Sheets("feuil16").Range("f5") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("p5").Value = Sheets("feuil16").Range("f5")
End If
If Sheets("feuil16").Range("f6") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("p6").Value = Sheets("feuil16").Range("f6")
End If
If Sheets("feuil16").Range("f7") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("p7").Value = Sheets("feuil16").Range("f7")
End If
If Sheets("feuil16").Range("f8") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("p8").Value = Sheets("feuil16").Range("f8")
End If
If Sheets("feuil16").Range("f9") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("p9").Value = Sheets("feuil16").Range("f9")
End If
If Sheets("feuil16").Range("f10") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("p10").Value = Sheets("feuil16").Range("f10")
End If
If Sheets("feuil16").Range("f11") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("p11").Value = Sheets("feuil16").Range("f11")
End If
If Sheets("feuil16").Range("f12") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("p12").Value = Sheets("feuil16").Range("f12")
End If
If Sheets("feuil16").Range("f13") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("p13").Value = Sheets("feuil16").Range("f13")
End If
If Sheets("feuil16").Range("f14") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("p14").Value = Sheets("feuil16").Range("f14")
End If
If Sheets("feuil16").Range("f15") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("p15").Value = Sheets("feuil16").Range("f15")
End If
If Sheets("feuil16").Range("f16") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("p16").Value = Sheets("feuil16").Range("f16")
End If
If Sheets("feuil16").Range("f17") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("p17").Value = Sheets("feuil16").Range("f17")
End If
If Sheets("feuil16").Range("f18") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("p18").Value = Sheets("feuil16").Range("f18")
End If
If Sheets("feuil13").Range("b3") <> "ACTIVITE DE SERVICE" And Sheets("feuil13").Range("b3") <> "RECUPERATION DE MATERIEL" Then
Sheets("départ").Range("1:1").Insert
Sheets("départ").Range("a1").Value = Sheets("feuil13").Range("e7")
Sheets("départ").Range("b1").Value = Sheets("feuil13").Range("h1") & " " & Sheets("feuil13").Range("e7")
Sheets("départ").Range("c1").Value = Sheets("feuil13").Range("h2") & " " & Sheets("feuil13").Range("e7")
Sheets("départ").Range("d1").Value = Sheets("feuil13").Range("h3") & " " & Sheets("feuil13").Range("e7")
Sheets("départ").Range("e1").Value = Sheets("feuil13").Range("h4") & " " & Sheets("feuil13").Range("e7")
Sheets("départ").Range("f1").Value = Sheets("feuil13").Range("h5") & " " & Sheets("feuil13").Range("e7")
Sheets("départ").Range("g1").Value = Sheets("feuil13").Range("h6") & " " & Sheets("feuil13").Range("e7")
Sheets("départ").Range("h1").Value = Sheets("feuil13").Range("i1") & " " & Sheets("feuil13").Range("e8")
Sheets("départ").Range("i1").Value = Sheets("feuil13").Range("i2") & " " & Sheets("feuil13").Range("e8")
Sheets("départ").Range("j1").Value = Sheets("feuil13").Range("i3") & " " & Sheets("feuil13").Range("e8")
Sheets("départ").Range("k1").Value = Sheets("feuil13").Range("i4") & " " & Sheets("feuil13").Range("e8")
Sheets("départ").Range("l1").Value = Sheets("feuil13").Range("i5") & " " & Sheets("feuil13").Range("e8")
Sheets("départ").Range("m1").Value = Sheets("feuil13").Range("i6") & " " & Sheets("feuil13").Range("e8")
Sheets("départ").Range("o1").Value = Sheets("feuil13").Range("t18")
Sheets("départ").Range("p1").Value = Sheets("feuil13").Range("h7")
Sheets("départ").Range("q1").Value = Sheets("feuil13").Range("i7")
Sheets("départ").Range("r1").Value = Sheets("feuil13").Range("b1")
Sheets("départ").Range("s1").Value = Sheets("feuil13").Range("b8")
Sheets("départ").Range("t1").Value = Sheets("feuil13").Range("b5")
Sheets("départ").Range("u1").Value = Sheets("feuil13").Range("b6")
Sheets("départ").Range("v1").Value = Sheets("feuil13").Range("b9")
Sheets("départ").Range("w1").Value = Sheets("feuil13").Range("b10")
Sheets("départ").Range("x1").Value = Sheets("feuil13").Range("b11")
Sheets("départ").Range("y1").Value = Sheets("feuil13").Range("b12")
Sheets("départ").Range("ae1").Value = Sheets("feuil13").Range("a22")
Sheets("départ").Range("af1").Value = Sheets("feuil13").Range("a27")
Sheets("départ").Range("ag1").Value = Sheets("feuil13").Range("a32")
Sheets("départ").Range("ah1").Value = Sheets("feuil13").Range("a37")
Sheets("départ").Range("ai1").Value = Sheets("feuil13").Range("a42")
Sheets("départ").Range("aj1").Value = Sheets("feuil13").Range("a47")
Sheets("départ").Range("ak1").Value = Sheets("feuil13").Range("e10")
Sheets("départ").Range("al1").Value = Sheets("feuil13").Range("e12")
Sheets("départ").Range("am1").Value = Sheets("feuil13").Range("e14")
Sheets("départ").Range("an1").Value = Sheets("feuil13").Range("e1")
Sheets("départ").Range("ao1").Value = Sheets("feuil13").Range("e2")
Sheets("départ").Range("ap1").Value = Sheets("feuil13").Range("b3")
Sheets("départ").Range("ba1").Value = Sheets("feuil13").Range("fc1")
Sheets("départ").Range("bb1").Value = Sheets("feuil13").Range("fd1")
Sheets("départ").Range("bc1").Value = Sheets("feuil13").Range("fe1")
Sheets("départ").Range("bd1").Value = Sheets("feuil13").Range("ff1")
Sheets("feuil57").Range("2:2").Insert
Sheets("feuil57").Range("a2") = Sheets("feuil13").Range("e1").Value
Sheets("feuil57").Range("b2") = Sheets("feuil13").Range("e2").Value
Sheets("feuil57").Range("c2").Value = Sheets("feuil13").Range("b5")
Sheets("feuil57").Range("d2").Value = Sheets("feuil13").Range("b6")
Sheets("feuil57").Range("e2").Value = Sheets("feuil13").Range("a2")
Sheets("feuil57").Range("f2").Value = Sheets("feuil13").Range("b9")
Sheets("feuil57").Range("g2").Value = Sheets("feuil13").Range("b10")
Sheets("feuil57").Range("h2").Value = Sheets("feuil13").Range("b12")
Sheets("feuil57").Range("i2").Value = Sheets("tickets départs").Range("c7")
Sheets("feuil57").Range("j2").Value = Sheets("tickets départs").Range("d7")
Sheets("feuil57").Range("k2").Value = Sheets("feuil13").Range("b9")
Sheets("feuil57").Range("l2").Value = Sheets("feuil13").Range("b12")
Sheets("feuil57").Range("m2").Value = Sheets("motif").Range("c46")
Sheets("feuil57").Range("n2").Value = Sheets("motif").Range("d46")
Sheets("feuil57").Range("o2").Value = Sheets("feuil13").Range("fg9")
Sheets("feuil57").Range("p2").Value = Sheets("feuil13").Range("fg12")
Sheets("feuil57").Range("k2").Value = Sheets("feuil13").Range("b9")
Sheets("feuil57").Range("q2").Value = Sheets("feuil13").Range("c15")
Sheets("feuil57").Range("r2").Value = Sheets("feuil13").Range("c16")
Sheets("feuil57").Range("s2").Value = Sheets("feuil13").Range("c17")
Sheets("feuil57").Range("t2").Value = Sheets("feuil13").Range("c18")
Sheets("feuil57").Range("u2").Value = Sheets("feuil13").Range("c19")
Sheets("feuil57").Range("v2").Value = Sheets("feuil13").Range("c20")
Sheets("feuil57").Range("w2").Value = Sheets("feuil13").Range("e15")
Sheets("feuil57").Range("x2").Value = Sheets("feuil13").Range("e16")
Sheets("feuil57").Range("y2").Value = Sheets("feuil13").Range("e17")
Sheets("feuil57").Range("z2").Value = Sheets("feuil13").Range("e18")
Sheets("feuil57").Range("aa2").Value = Sheets("feuil13").Range("e19")
Sheets("feuil57").Range("ab2").Value = Sheets("feuil13").Range("e20")
Sheets("feuil57").Range("ae2").Value = Sheets("feuil13").Range("e12")
Sheets("feuil57").Range("af2").Value = Sheets("feuil13").Range("e14")
Sheets("feuil57").Range("ac2").Value = Sheets("feuil13").Range("c15")
Sheets("feuil57").Range("ad2").Value = Sheets("feuil13").Range("e52")


A voir également:

3 réponses

Réponse 1 / 3
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Bonjour,

Ce code fait partie d'une macro plus longue?
Je demandes parce que ça m'étonnerai que cette partie de code dure 9 minutes. Le problème doit se situer ailleurs...

Cependant, la syntaxe de cette partie peut être revue, pas forcément pour en améliorer la durée d'exécution, mais pour le rendre plus lisible.

0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Une seconde question :
Pourquoi avoir utilisé des majuscules et des minuscules dans tes tests : 
Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel"

If Sheets("feuil13").Range("b3") <> "ACTIVITE DE SERVICE" And Sheets("feuil13").Range("b3") <> "RECUPERATION DE MATERIEL"
0
steph62880 Messages postés 13 Date d'inscription   Statut Membre Dernière intervention   > pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention  
 
Parce que sinon sa ne fonctionne pas tout simplement.
0
steph62880 Messages postés 13 Date d'inscription   Statut Membre Dernière intervention  
 
Regarder sur le systel tout les codes y sont ?
0
Réponse 2 / 3
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour,

Déjà, commence ta macro par
Application.Screenupdating= False qui te feras gagner pas mal de temps

un début 
Option Explicit
Option Base 1
Private T_13()
'-----

Sub remettre_a_zero()
Dim Test_b13 As Boolean, Idx As Byte
ReDim T_13(5)

Application.ScreenUpdating = False
With Sheets("feuil3")
     If .Range("B3") <> "activite de sercice" And .Range("B3") <> "RECUPERATION DE MATERIEL" Then
          For Idx = 1 To 5
               T_13(Idx) = Choose(Idx, .Range("E2"), .Range("B9"), .Range("B12"), .Range("E7"), .Range("b3"))
          Next
          
          If .Range("B1") = Sheets("dispo").Range("a9") Then copier1 Sheets("sa")
          If .Range("B1") = Sheets("dispo").Range("a10") Then copier1 Sheets("di")
          If .Range("B1") = Sheets("dispo").Range("a11") Then copier1 Sheets("lu")
    '.................. la suite + tard
          
     End If
End With
End Sub
'-------

Sub copier1(feuille)
     feuille.Columns(19).Insert
     feuille.Range("A9").Resize(1, 5) = T_13
     feuille.Range("H9") = Sheets("feuil3").Range("B5")
End Sub

Pas mal mal de truc à faire aujourdhui sois patient

Salut, Frank, excuses moi je n'avais pas rafraichi
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Salut Michel,

Pas de souci, au contraire c'est toujours un plaisir.

Par contre, je ne comprends pas ta procédure copier1...
De ce que j'ai vu dans la macro donnée au départ, il insère les données en ligne 39, et toi, tu les insères en ligne 9 après avoir créé une nouvelle colonne... Aurais tu des infos que nous n'avons pas?

A adapter également par le demandeur : 
With Sheets("feuil13")
au lieu de 
With Sheets("feuil3")
dans la Sub remettre a zéro
0
steph62880 Messages postés 13 Date d'inscription   Statut Membre Dernière intervention  
 
D'accord Michel aucun soucis, par contre faut il que je mette la totalité des codes que tu as donner ? Faut il mettre application. Screenupdating= trie a la fin ?
0
Réponse 3 / 3
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
OK, sur ma maquette de W j'ai utilisé feuil3 au lieu de feuil13; m^me chose pour 9 et 39.... je rectifie

Par contre, STeph
est il normal que tu envoies 2 fois dans la colonne "i" 
If Sheets("feuil16").Range("d18") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("l18").Value = Sheets("feuil16").Range("d18")
End If
If Sheets("feuil16").Range("e2") <> "" And Sheets("feuil13").Range("b3") <> "activite de sercice" And Sheets("feuil13").Range("b3") <> "recuperation de materiel" Then
Sheets("sorties").Range("i2").Value = Sheets("feuil16").Range("e2")
End If,
--
Michel
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
re Michel,

Perso, j'avais lu L puis i...
En attente toutefois d'une réponse de l'auteur.
0
steph62880 Messages postés 13 Date d'inscription   Statut Membre Dernière intervention  
 
Normalement non mais je sais qu'il envoie sur le colonne I MAIS DANS 2 feuilles différentes
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
On va pas passer des heures à recommencer des codes (et c'est le cas avec la feuille départ où je venais pour proposer la suite) parce que tu envoies des trucs faux :
alors démènes toi un peu et rapidement si tu veux qu'on t'aide
Sans rectifications exactes avant ce soir, j'abandonne le suivi; les s gras n'ont pas été mis pour faire joli
:-(
0
steph62880 Messages postés 13 Date d'inscription   Statut Membre Dernière intervention   > michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention  
 
Le soucis est que je ne souhaite pas faire n'importe quoi surtout avec sa d'où les questions que je pose Michel, je fais mon possible je travail dessus sans arrêt .
Vous me dites que je donne des choses fausse a quel niveau ?
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
qui a écris ca:
Normalement non mais je sais qu'il envoie sur le colonne I MAIS DANS 2 feuilles différentes
peut-^tre est ce trop te demander de d'indiquer quelle feuille ?

et quand je marque rectification au pluriel: tu fais une vérif complère de ce que tu as marqué au besoin en te faisant aider; par ton gradé ça l'occupera
0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses