Simplification de macro excel 2010 pour gagner en rapidité d'exe
Fermé
steph62880
Messages postés13Date d'inscriptiondimanche 11 mai 2014StatutMembreDernière intervention13 mai 2014
-
Modifié par pijaku le 12/05/2014 à 08:34
michel_m
Messages postés16603Date d'inscriptionlundi 12 septembre 2005StatutContributeurDernière intervention16 décembre 2023
-
13 mai 2014 à 10:16
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:
Simplification de macro excel 2010 pour gagner en rapidité d'exe
pijaku
Messages postés12263Date d'inscriptionjeudi 15 mai 2008StatutModérateurDernière intervention 4 janvier 20242 744 12 mai 2014 à 08:48
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.
pijaku
Messages postés12263Date d'inscriptionjeudi 15 mai 2008StatutModérateurDernière intervention 4 janvier 20242 744 Modifié par pijaku le 12/05/2014 à 08:58
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"
steph62880
Messages postés13Date d'inscriptiondimanche 11 mai 2014StatutMembreDernière intervention13 mai 2014
>
pijaku
Messages postés12263Date d'inscriptionjeudi 15 mai 2008StatutModérateurDernière intervention 4 janvier 2024 12 mai 2014 à 15:01
Parce que sinon sa ne fonctionne pas tout simplement.
steph62880
Messages postés13Date d'inscriptiondimanche 11 mai 2014StatutMembreDernière intervention13 mai 2014 12 mai 2014 à 15:04
michel_m
Messages postés16603Date d'inscriptionlundi 12 septembre 2005StatutContributeurDernière intervention16 décembre 20233 303 Modifié par michel_m le 12/05/2014 à 09:02
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
pijaku
Messages postés12263Date d'inscriptionjeudi 15 mai 2008StatutModérateurDernière intervention 4 janvier 20242 744 Modifié par pijaku le 12/05/2014 à 09:30
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
steph62880
Messages postés13Date d'inscriptiondimanche 11 mai 2014StatutMembreDernière intervention13 mai 2014 12 mai 2014 à 15:31
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 ?
michel_m
Messages postés16603Date d'inscriptionlundi 12 septembre 2005StatutContributeurDernière intervention16 décembre 20233 303 12 mai 2014 à 11:10
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
pijaku
Messages postés12263Date d'inscriptionjeudi 15 mai 2008StatutModérateurDernière intervention 4 janvier 20242 744 12 mai 2014 à 11:16
re Michel,
Perso, j'avais lu L puis i...
En attente toutefois d'une réponse de l'auteur.
steph62880
Messages postés13Date d'inscriptiondimanche 11 mai 2014StatutMembreDernière intervention13 mai 2014 12 mai 2014 à 15:08
Normalement non mais je sais qu'il envoie sur le colonne I MAIS DANS 2 feuilles différentes
michel_m
Messages postés16603Date d'inscriptionlundi 12 septembre 2005StatutContributeurDernière intervention16 décembre 20233 303 12 mai 2014 à 16:30
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
:-(
steph62880
Messages postés13Date d'inscriptiondimanche 11 mai 2014StatutMembreDernière intervention13 mai 2014
>
michel_m
Messages postés16603Date d'inscriptionlundi 12 septembre 2005StatutContributeurDernière intervention16 décembre 2023 12 mai 2014 à 16:49
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 ?
michel_m
Messages postés16603Date d'inscriptionlundi 12 septembre 2005StatutContributeurDernière intervention16 décembre 20233 303 12 mai 2014 à 16:54
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
Modifié par pijaku le 12/05/2014 à 08:58
Pourquoi avoir utilisé des majuscules et des minuscules dans tes tests :
12 mai 2014 à 15:01
12 mai 2014 à 15:04