Sujet Précédent Sujet Suivant

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

Fermé
steph62880 Messages postés 13 Date d'inscription dimanche 11 mai 2014 Statut Membre Dernière intervention 13 mai 2014 - Modifié par pijaku le 12/05/2014 à 08:34
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 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:

3 réponses

Réponse 1 / 3
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 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.

0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 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"
0
steph62880 Messages postés 13 Date d'inscription dimanche 11 mai 2014 Statut Membre Dernière intervention 13 mai 2014 > pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024
12 mai 2014 à 15:01
Parce que sinon sa ne fonctionne pas tout simplement.
0
steph62880 Messages postés 13 Date d'inscription dimanche 11 mai 2014 Statut Membre Dernière intervention 13 mai 2014
12 mai 2014 à 15:04
Regarder sur le systel tout les codes y sont ?
0
Réponse 2 / 3
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 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
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 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
0
steph62880 Messages postés 13 Date d'inscription dimanche 11 mai 2014 Statut Membre Dernière intervention 13 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 ?
0
Réponse 3 / 3
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 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
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 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.
0
steph62880 Messages postés 13 Date d'inscription dimanche 11 mai 2014 Statut Membre Dernière intervention 13 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
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 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
:-(
0
steph62880 Messages postés 13 Date d'inscription dimanche 11 mai 2014 Statut Membre Dernière intervention 13 mai 2014 > michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 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 ?
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 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
0

Discussions similaires

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

6 réponses