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

steph62880 Messages postés 15 Statut Membre -  
michel_m Messages postés 18903 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")


3 réponses

  1.
    pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    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
    1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      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
      1. steph62880 Messages postés 15 Statut Membre > pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention  
         
        Parce que sinon sa ne fonctionne pas tout simplement.
        0
    2. steph62880 Messages postés 15 Statut Membre
       
      Regarder sur le systel tout les codes y sont ?
      0
  2. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
    1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      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
    2. steph62880 Messages postés 15 Statut Membre
       
      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
  3. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
    1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      re Michel,

      Perso, j'avais lu L puis i...
      En attente toutefois d'une réponse de l'auteur.
      0
    2. steph62880 Messages postés 15 Statut Membre
       
      Normalement non mais je sais qu'il envoie sur le colonne I MAIS DANS 2 feuilles différentes
      0
    3. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      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
    4. steph62880 Messages postés 15 Statut Membre > michel_m Messages postés 18903 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
    5. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      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