Simplification de code VBA
s
Bonjour,
Je suis débutant en la matière
Comment puis-je simplifier ce code afin que sa s’exécute beaucoup plus vite ?
Voici la liste de code:
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")
Merci de vos réponses .
Bonjour,
A tester et me dire.
Option Explicit
Public Sub test()
Dim f1 As Worksheet, f2 As Worksheet, f3 As Worksheet
Dim calcState As Integer
Dim eventsState As Boolean
Dim screenUpdateState As Boolean
Dim statusBarState As Boolean
' -----------------------------------------------------------------
On Error GoTo gestion_erreur
screenUpdateState = Application.ScreenUpdating
statusBarState = Application.DisplayStatusBar
calcState = Application.Calculation
eventsState = Application.EnableEvents
With Application
.Calculation = xlCalculationManual
.DisplayStatusBar = False
.EnableEvents = False
.ScreenUpdating = False
End With
' -----------------------------------------------------------------
Set f1 = Worksheets("départ")
Set f2 = Worksheets("feuil13")
Set f3 = Worksheets("feuil57")
With f1
.Rows(1).Insert
.Range("a1") = f2.Range("e7")
.Range("b1") = f2.Range("h1") & Chr(32) & f2.Range("e7")
.Range("c1") = f2.Range("h2") & Chr(32) & f2.Range("e7")
.Range("d1") = f2.Range("h3") & Chr(32) & f2.Range("e7")
.Range("e1") = f2.Range("h4") & Chr(32) & f2.Range("e7")
.Range("f1") = f2.Range("h5") & Chr(32) & f2.Range("e7")
.Range("g1") = f2.Range("h6") & Chr(32) & f2.Range("e7")
.Range("h1") = f2.Range("i1") & Chr(32) & f2.Range("e8")
.Range("i1") = f2.Range("i2") & Chr(32) & f2.Range("e8")
.Range("j1") = f2.Range("i3") & Chr(32) & f2.Range("e8")
.Range("k1") = f2.Range("i4") & Chr(32) & f2.Range("e8")
.Range("l1") = f2.Range("i5") & Chr(32) & f2.Range("e8")
.Range("m1") = f2.Range("i6") & Chr(32) & f2.Range("e8")
.Range("o1") = f2.Range("t18")
.Range("p1") = f2.Range("h7")
.Range("q1") = f2.Range("i7")
.Range("r1") = f2.Range("b1")
.Range("s1") = f2.Range("b8")
.Range("t1") = f2.Range("b5")
.Range("u1") = f2.Range("b6")
.Range("v1") = f2.Range("b9")
.Range("w1") = f2.Range("b10")
.Range("x1") = f2.Range("b11")
.Range("y1") = f2.Range("b12")
.Range("ae1") = f2.Range("a22")
.Range("af1") = f2.Range("a27")
.Range("ag1") = f2.Range("a32")
.Range("ah1") = f2.Range("a37")
.Range("ai1") = f2.Range("a42")
.Range("aj1") = f2.Range("a47")
.Range("ak1") = f2.Range("e10")
.Range("al1") = f2.Range("e12")
.Range("am1") = f2.Range("e14")
.Range("an1") = f2.Range("e1")
.Range("ao1") = f2.Range("e2")
.Range("ap1") = f2.Range("b3")
.Range("ba1") = f2.Range("fc1")
.Range("bb1") = f2.Range("fd1")
.Range("bc1") = f2.Range("fe1")
.Range("bd1") = f2.Range("ff1")
End With
With f3
.Rows(2).Insert
.Range("a2") = f2.Range("e1")
.Range("b2") = f2.Range("e2")
.Range("c2") = f2.Range("b5")
.Range("d2") = f2.Range("b6")
.Range("e2") = f2.Range("a2")
.Range("f2") = f2.Range("b9")
.Range("g2") = f2.Range("b10")
.Range("h2") = f2.Range("b12")
.Range("i2") = Worksheets("tickets départs").Range("c7")
.Range("j2") = Worksheets("tickets départs").Range("d7")
.Range("k2") = f2.Range("b9")
.Range("l2") = f2.Range("b12")
.Range("m2") = Worksheets("motif").Range("c46")
.Range("n2") = Worksheets("motif").Range("d46")
.Range("o2") = f2.Range("fg9")
.Range("p2") = f2.Range("fg12")
.Range("k2") = f2.Range("b9")
.Range("q2") = f2.Range("c15")
.Range("r2") = f2.Range("c16")
.Range("s2") = f2.Range("c17")
.Range("t2") = f2.Range("c18")
.Range("u2") = f2.Range("c19")
.Range("v2") = f2.Range("c20")
.Range("w2") = f2.Range("e15")
.Range("x2") = f2.Range("e16")
.Range("y2") = f2.Range("e17")
.Range("z2") = f2.Range("e18")
.Range("aa2") = f2.Range("e19")
.Range("ab2") = f2.Range("e20")
.Range("ae2") = f2.Range("e12")
.Range("af2") = f2.Range("e14")
.Range("ac2") = f2.Range("c15")
.Range("ad2") = f2.Range("e52")
End With
' -----------------------------------------------------------------
With Application
.Calculation = calcState
.DisplayStatusBar = statusBarState
.EnableEvents = eventsState
.ScreenUpdating = screenUpdateState
End With
Set f1 = Nothing: Set f2 = Nothing: f3 = Nothing
Exit Sub
'-----------------------------------------------------------------------
gestion_erreur:
With Application
.Calculation = calcState
.DisplayStatusBar = statusBarState
.EnableEvents = eventsState
End With
Set f1 = Nothing: Set f2 = Nothing: f3 = Nothing
End Sub
s
Bonjour,
Le code que vous m'avez fait s'intègre bien mais me fait planter le Excel complètement
Bonjour,
Je vais vous fournir, la liste complète de code du début à la fin, ce sera peux être mieux pour vous
Private Sub ch_Click()
hospital.Show
End Sub
Private Sub CommandButton1_Click()
Sheets("feuil13").Range("e10").Value = Time
End Sub
Private Sub CommandButton2_Click()
Sheets("feuil13").Range("e12").Value = Time
End Sub
Private Sub CommandButton3_Click()
Sheets("feuil13").Range("e14").Value = Time
End Sub
Private Sub CommandButton4_Click()
perso1.Show
End Sub
Private Sub CommandButton5_Click()
perso2.Show
End Sub
Private Sub CommandButton6_Click()
Application.ScreenUpdating = False
UserForm3.Show
Sheets("feuil13").Range("c52").Value = Time
Sheets("feuil13").printout
gestion1.Hide
If Sheets("feuil13").Range("b3") <> "ACTIVITE DE SERVICE" And Sheets("feuil13").Range("b3") <> "RECUPERATION DE MATERIEL" Then
If Sheets("feuil13").Range("b1") = Sheets("dispo").Range("a4") Then
With Sheets("feuil10")
.Rows(39).Insert
.Range("a39").Value = Sheets("feuil13").Range("e2")
.Range("b39").Value = Sheets("feuil13").Range("b9")
.Range("c39").Value = Sheets("feuil13").Range("b12")
.Range("d39").Value = Sheets("feuil13").Range("e7")
.Range("e39").Value = Sheets("feuil13").Range("b3")
.Range("h39").Value = Sheets("feuil13").Range("b5")
End With
ElseIf Sheets("feuil13").Range("b1") = Sheets("dispo").Range("a5") Then
With Sheets("ma")
.Rows(39).Insert
.Range("a39").Value = Sheets("feuil13").Range("e2")
.Range("b39").Value = Sheets("feuil13").Range("b9")
.Range("c39").Value = Sheets("feuil13").Range("b12")
.Range("d39").Value = Sheets("feuil13").Range("e7")
.Range("e39").Value = Sheets("feuil13").Range("b3")
.Range("h39").Value = Sheets("feuil13").Range("b5")
End With
ElseIf Sheets("feuil13").Range("b1") = Sheets("dispo").Range("a6") Then
With Sheets("me")
.Rows(39).Insert
.Range("a39").Value = Sheets("feuil13").Range("e2")
.Range("b39").Value = Sheets("feuil13").Range("b9")
.Range("c39").Value = Sheets("feuil13").Range("b12")
.Range("d39").Value = Sheets("feuil13").Range("e7")
.Range("e39").Value = Sheets("feuil13").Range("b3")
.Range("h39").Value = Sheets("feuil13").Range("b5")
End With
ElseIf Sheets("feuil13").Range("b1") = Sheets("dispo").Range("a7") Then
With Sheets("je")
.Rows(39).Insert
.Range("a39").Value = Sheets("feuil13").Range("e2")
.Range("b39").Value = Sheets("feuil13").Range("b9")
.Range("c39").Value = Sheets("feuil13").Range("b12")
.Range("d39").Value = Sheets("feuil13").Range("e7")
.Range("e39").Value = Sheets("feuil13").Range("b3")
.Range("h39").Value = Sheets("feuil13").Range("b5")
End With
ElseIf Sheets("feuil13").Range("b1") = Sheets("dispo").Range("a8") Then
With Sheets("ve")
.Rows(39).Insert
.Range("a39").Value = Sheets("feuil13").Range("e2")
.Range("b39").Value = Sheets("feuil13").Range("b9")
.Range("c39").Value = Sheets("feuil13").Range("b12")
.Range("d39").Value = Sheets("feuil13").Range("e7")
.Range("e39").Value = Sheets("feuil13").Range("b3")
.Range("h39").Value = Sheets("feuil13").Range("b5")
End With
ElseIf Sheets("feuil13").Range("b1") = Sheets("dispo").Range("a9") Then
With Sheets("sa")
.Rows(39).Insert
.Range("a39").Value = Sheets("feuil13").Range("e2")
.Range("b39").Value = Sheets("feuil13").Range("b9")
.Range("c39").Value = Sheets("feuil13").Range("b12")
.Range("d39").Value = Sheets("feuil13").Range("e7")
.Range("e39").Value = Sheets("feuil13").Range("b3")
.Range("h39").Value = Sheets("feuil13").Range("b5")
End With
ElseIf Sheets("feuil13").Range("b1") = Sheets("dispo").Range("a10") Then
With Sheets("di")
.Rows(39).Insert
.Range("a39").Value = Sheets("feuil13").Range("e2")
.Range("b39").Value = Sheets("feuil13").Range("b9")
.Range("c39").Value = Sheets("feuil13").Range("b12")
.Range("d39").Value = Sheets("feuil13").Range("e7")
.Range("e39").Value = Sheets("feuil13").Range("b3")
.Range("h39").Value = Sheets("feuil13").Range("b5")
End With
ElseIf Sheets("feuil13").Range("b1") = Sheets("dispo").Range("a11") Then
With Sheets("lu")
.Rows(39).Insert
.Range("a39").Value = Sheets("feuil13").Range("e2")
.Range("b39").Value = Sheets("feuil13").Range("b9")
.Range("c39").Value = Sheets("feuil13").Range("b12")
.Range("d39").Value = Sheets("feuil13").Range("e7")
.Range("e39").Value = Sheets("feuil13").Range("b3")
.Range("h39").Value = Sheets("feuil13").Range("b5")
End With
End If
If Sheets("feuil16").Range("b2") <> "" Then
Sheets("sorties").Range("c2").Value = Sheets("feuil16").Range("b2")
End If
If Sheets("feuil16").Range("b3") <> "" Then
Sheets("sorties").Range("c3").Value = Sheets("feuil16").Range("b3")
End If
If Sheets("feuil16").Range("b4") <> "" Then
Sheets("sorties").Range("c4").Value = Sheets("feuil16").Range("b4")
End If
If Sheets("feuil16").Range("b5") <> "" Then
Sheets("sorties").Range("c5").Value = Sheets("feuil16").Range("b5")
End If
If Sheets("feuil16").Range("b6") <> "" Then
Sheets("sorties").Range("c6").Value = Sheets("feuil16").Range("b6")
End If
If Sheets("feuil16").Range("b7") <> "" Then
Sheets("sorties").Range("c7").Value = Sheets("feuil16").Range("b7")
End If
If Sheets("feuil16").Range("b8") <> "" Then
Sheets("sorties").Range("c8").Value = Sheets("feuil16").Range("b8")
End If
If Sheets("feuil16").Range("b9") <> "" Then
Sheets("sorties").Range("c9").Value = Sheets("feuil16").Range("b9")
End If
If Sheets("feuil16").Range("b10") <> "" Then
Sheets("sorties").Range("c10").Value = Sheets("feuil16").Range("b10")
End If
If Sheets("feuil16").Range("b11") <> "" Then
Sheets("sorties").Range("c11").Value = Sheets("feuil16").Range("b11")
End If
If Sheets("feuil16").Range("b12") <> "" Then
Sheets("sorties").Range("c12").Value = Sheets("feuil16").Range("b12")
End If
If Sheets("feuil16").Range("b13") <> "" Then
Sheets("sorties").Range("c13").Value = Sheets("feuil16").Range("b13")
End If
If Sheets("feuil16").Range("b14") <> "" Then
Sheets("sorties").Range("c14").Value = Sheets("feuil16").Range("b14")
End If
If Sheets("feuil16").Range("b15") <> "" Then
Sheets("sorties").Range("c15").Value = Sheets("feuil16").Range("b15")
End If
If Sheets("feuil16").Range("b16") <> "" Then
Sheets("sorties").Range("c16").Value = Sheets("feuil16").Range("b16")
End If
If Sheets("feuil16").Range("b17") <> "" Then
Sheets("sorties").Range("c17").Value = Sheets("feuil16").Range("b17")
End If
If Sheets("feuil16").Range("b18") <> "" Then
Sheets("sorties").Range("c18").Value = Sheets("feuil16").Range("b18")
End If
If Sheets("feuil16").Range("c2") <> "" Then
Sheets("sorties").Range("f2").Value = Sheets("feuil16").Range("c2")
End If
If Sheets("feuil16").Range("c3") <> "" Then
Sheets("sorties").Range("f3").Value = Sheets("feuil16").Range("c3")
End If
If Sheets("feuil16").Range("c4") <> "" Then
Sheets("sorties").Range("f4").Value = Sheets("feuil16").Range("c4")
End If
If Sheets("feuil16").Range("c5") <> "" Then
Sheets("sorties").Range("f5").Value = Sheets("feuil16").Range("c5")
End If
If Sheets("feuil16").Range("c6") <> "" Then
Sheets("sorties").Range("f6").Value = Sheets("feuil16").Range("c6")
End If
If Sheets("feuil16").Range("c7") <> "" Then
Sheets("sorties").Range("f7").Value = Sheets("feuil16").Range("c7")
End If
If Sheets("feuil16").Range("c8") <> "" Then
Sheets("sorties").Range("f8").Value = Sheets("feuil16").Range("c8")
End If
If Sheets("feuil16").Range("c9") <> "" Then
Sheets("sorties").Range("f9").Value = Sheets("feuil16").Range("c9")
End If
If Sheets("feuil16").Range("c10") <> "" Then
Sheets("sorties").Range("f10").Value = Sheets("feuil16").Range("c10")
End If
If Sheets("feuil16").Range("c11") <> "" Then
Sheets("sorties").Range("f11").Value = Sheets("feuil16").Range("c11")
End If
If Sheets("feuil16").Range("c12") <> "" Then
Sheets("sorties").Range("f12").Value = Sheets("feuil16").Range("c12")
End If
If Sheets("feuil16").Range("c13") <> "" Then
Sheets("sorties").Range("f13").Value = Sheets("feuil16").Range("c13")
End If
If Sheets("feuil16").Range("c14") <> "" Then
Sheets("sorties").Range("f14").Value = Sheets("feuil16").Range("c14")
End If
If Sheets("feuil16").Range("c15") <> "" Then
Sheets("sorties").Range("f15").Value = Sheets("feuil16").Range("c15")
End If
If Sheets("feuil16").Range("c16") <> "" Then
Sheets("sorties").Range("f16").Value = Sheets("feuil16").Range("c16")
End If
If Sheets("feuil16").Range("c17") <> "" Then
Sheets("sorties").Range("f17").Value = Sheets("feuil16").Range("c17")
End If
If Sheets("feuil16").Range("c18") <> "" Then
Sheets("sorties").Range("f18").Value = Sheets("feuil16").Range("c18")
End If
If Sheets("feuil16").Range("d2") <> "" Then
Sheets("sorties").Range("l2").Value = Sheets("feuil16").Range("d2")
End If
If Sheets("feuil16").Range("d3") <> "" Then
Sheets("sorties").Range("l3").Value = Sheets("feuil16").Range("d3")
End If
If Sheets("feuil16").Range("d4") <> "" Then
Sheets("sorties").Range("l4").Value = Sheets("feuil16").Range("d4")
End If
If Sheets("feuil16").Range("d5") <> "" Then
Sheets("sorties").Range("l5").Value = Sheets("feuil16").Range("d5")
End If
If Sheets("feuil16").Range("d6") <> "" Then
Sheets("sorties").Range("l6").Value = Sheets("feuil16").Range("d6")
End If
If Sheets("feuil16").Range("d7") <> "" Then
Sheets("sorties").Range("l7").Value = Sheets("feuil16").Range("d7")
End If
If Sheets("feuil16").Range("d8") <> "" Then
Sheets("sorties").Range("l8").Value = Sheets("feuil16").Range("d8")
End If
If Sheets("feuil16").Range("d9") <> "" Then
Sheets("sorties").Range("l9").Value = Sheets("feuil16").Range("d9")
End If
If Sheets("feuil16").Range("d10") <> "" Then
Sheets("sorties").Range("l10").Value = Sheets("feuil16").Range("d10")
End If
If Sheets("feuil16").Range("d11") <> "" Then
Sheets("sorties").Range("l11").Value = Sheets("feuil16").Range("d11")
End If
If Sheets("feuil16").Range("d12") <> "" Then
Sheets("sorties").Range("l12").Value = Sheets("feuil16").Range("d12")
End If
If Sheets("feuil16").Range("d13") <> "" Then
Sheets("sorties").Range("l13").Value = Sheets("feuil16").Range("d13")
End If
If Sheets("feuil16").Range("d14") <> "" Then
Sheets("sorties").Range("l14").Value = Sheets("feuil16").Range("d14")
End If
If Sheets("feuil16").Range("d15") <> "" Then
Sheets("sorties").Range("l15").Value = Sheets("feuil16").Range("d15")
End If
If Sheets("feuil16").Range("d16") <> "" Then
Sheets("sorties").Range("l16").Value = Sheets("feuil16").Range("d16")
End If
If Sheets("feuil16").Range("d17") <> "" Then
Sheets("sorties").Range("l17").Value = Sheets("feuil16").Range("d17")
End If
If Sheets("feuil16").Range("d18") <> "" Then
Sheets("sorties").Range("l18").Value = Sheets("feuil16").Range("d18")
End If
If Sheets("feuil16").Range("e2") <> "" Then
Sheets("sorties").Range("i2").Value = Sheets("feuil16").Range("e2")
End If
If Sheets("feuil16").Range("e3") <> "" Then
Sheets("sorties").Range("i3").Value = Sheets("feuil16").Range("e3")
End If
If Sheets("feuil16").Range("e4") <> "" Then
Sheets("sorties").Range("i4").Value = Sheets("feuil16").Range("e4")
End If
If Sheets("feuil16").Range("e5") <> "" Then
Sheets("sorties").Range("i5").Value = Sheets("feuil16").Range("e5")
End If
If Sheets("feuil16").Range("e6") <> "" Then
Sheets("sorties").Range("i6").Value = Sheets("feuil16").Range("e6")
End If
If Sheets("feuil16").Range("e7") <> "" Then
Sheets("sorties").Range("i7").Value = Sheets("feuil16").Range("e7")
End If
If Sheets("feuil16").Range("e8") <> "" Then
Sheets("sorties").Range("i8").Value = Sheets("feuil16").Range("e8")
End If
If Sheets("feuil16").Range("e9") <> "" Then
Sheets("sorties").Range("i9").Value = Sheets("feuil16").Range("e9")
End If
If Sheets("feuil16").Range("e10") <> "" Then
Sheets("sorties").Range("i10").Value = Sheets("feuil16").Range("e10")
End If
If Sheets("feuil16").Range("e11") <> "" Then
Sheets("sorties").Range("i11").Value = Sheets("feuil16").Range("e11")
End If
If Sheets("feuil16").Range("e12") <> "" Then
Sheets("sorties").Range("i12").Value = Sheets("feuil16").Range("e12")
End If
If Sheets("feuil16").Range("e13") <> "" Then
Sheets("sorties").Range("i13").Value = Sheets("feuil16").Range("e13")
End If
If Sheets("feuil16").Range("e14") <> "" Then
Sheets("sorties").Range("i14").Value = Sheets("feuil16").Range("e14")
End If
If Sheets("feuil16").Range("e15") <> "" Then
Sheets("sorties").Range("i15").Value = Sheets("feuil16").Range("e15")
End If
If Sheets("feuil16").Range("e16") <> "" Then
Sheets("sorties").Range("i16").Value = Sheets("feuil16").Range("e16")
End If
If Sheets("feuil16").Range("e17") <> "" Then
Sheets("sorties").Range("i17").Value = Sheets("feuil16").Range("e17")
End If
If Sheets("feuil16").Range("e18") <> "" Then
Sheets("sorties").Range("i18").Value = Sheets("feuil16").Range("e18")
End If
If Sheets("feuil16").Range("f2") <> "" Then
Sheets("sorties").Range("p2").Value = Sheets("feuil16").Range("f2")
End If
If Sheets("feuil16").Range("f3") <> "" Then
Sheets("sorties").Range("p3").Value = Sheets("feuil16").Range("f3")
End If
If Sheets("feuil16").Range("f4") <> "" Then
Sheets("sorties").Range("p4").Value = Sheets("feuil16").Range("f4")
End If
If Sheets("feuil16").Range("f5") <> "" Then
Sheets("sorties").Range("p5").Value = Sheets("feuil16").Range("f5")
End If
If Sheets("feuil16").Range("f6") <> "" Then
Sheets("sorties").Range("p6").Value = Sheets("feuil16").Range("f6")
End If
If Sheets("feuil16").Range("f7") <> "" Then
Sheets("sorties").Range("p7").Value = Sheets("feuil16").Range("f7")
End If
If Sheets("feuil16").Range("f8") <> "" Then
Sheets("sorties").Range("p8").Value = Sheets("feuil16").Range("f8")
End If
If Sheets("feuil16").Range("f9") <> "" Then
Sheets("sorties").Range("p9").Value = Sheets("feuil16").Range("f9")
End If
If Sheets("feuil16").Range("f10") <> "" Then
Sheets("sorties").Range("p10").Value = Sheets("feuil16").Range("f10")
End If
If Sheets("feuil16").Range("f11") <> "" Then
Sheets("sorties").Range("p11").Value = Sheets("feuil16").Range("f11")
End If
If Sheets("feuil16").Range("f12") <> "" Then
Sheets("sorties").Range("p12").Value = Sheets("feuil16").Range("f12")
End If
If Sheets("feuil16").Range("f13") <> "" Then
Sheets("sorties").Range("p13").Value = Sheets("feuil16").Range("f13")
End If
If Sheets("feuil16").Range("f14") <> "" Then
Sheets("sorties").Range("p14").Value = Sheets("feuil16").Range("f14")
End If
If Sheets("feuil16").Range("f15") <> "" Then
Sheets("sorties").Range("p15").Value = Sheets("feuil16").Range("f15")
End If
If Sheets("feuil16").Range("f16") <> "" Then
Sheets("sorties").Range("p16").Value = Sheets("feuil16").Range("f16")
End If
If Sheets("feuil16").Range("f17") <> "" Then
Sheets("sorties").Range("p17").Value = Sheets("feuil16").Range("f17")
End If
If Sheets("feuil16").Range("f18") <> "" Then
Sheets("sorties").Range("p18").Value = Sheets("feuil16").Range("f18")
End If
End If
End Sub
Public Sub test()
Dim f1 As Worksheet, f2 As Worksheet, f3 As Worksheet
Dim calcState As Integer
Dim eventsState As Boolean
Dim screenUpdateState As Boolean
Dim statusBarState As Boolean
' -----------------------------------------------------------------
On Error GoTo gestion_erreur
screenUpdateState = Application.ScreenUpdating
statusBarState = Application.DisplayStatusBar
calcState = Application.Calculation
eventsState = Application.EnableEvents
With Application
.Calculation = xlCalculationManual
.DisplayStatusBar = False
.EnableEvents = False
.ScreenUpdating = False
End With
' -----------------------------------------------------------------
Set f1 = Worksheets("départ")
Set f2 = Worksheets("feuil13")
Set f3 = Worksheets("feuil57")
With f1
.Rows(1).Insert
.Range("a1") = f2.Range("e7")
.Range("b1") = f2.Range("h1") & Chr(32) & f2.Range("e7")
.Range("c1") = f2.Range("h2") & Chr(32) & f2.Range("e7")
.Range("d1") = f2.Range("h3") & Chr(32) & f2.Range("e7")
.Range("e1") = f2.Range("h4") & Chr(32) & f2.Range("e7")
.Range("f1") = f2.Range("h5") & Chr(32) & f2.Range("e7")
.Range("g1") = f2.Range("h6") & Chr(32) & f2.Range("e7")
.Range("h1") = f2.Range("i1") & Chr(32) & f2.Range("e8")
.Range("i1") = f2.Range("i2") & Chr(32) & f2.Range("e8")
.Range("j1") = f2.Range("i3") & Chr(32) & f2.Range("e8")
.Range("k1") = f2.Range("i4") & Chr(32) & f2.Range("e8")
.Range("l1") = f2.Range("i5") & Chr(32) & f2.Range("e8")
.Range("m1") = f2.Range("i6") & Chr(32) & f2.Range("e8")
.Range("o1") = f2.Range("t18")
.Range("p1") = f2.Range("h7")
.Range("q1") = f2.Range("i7")
.Range("r1") = f2.Range("b1")
.Range("s1") = f2.Range("b8")
.Range("t1") = f2.Range("b5")
.Range("u1") = f2.Range("b6")
.Range("v1") = f2.Range("b9")
.Range("w1") = f2.Range("b10")
.Range("x1") = f2.Range("b11")
.Range("y1") = f2.Range("b12")
.Range("ae1") = f2.Range("a22")
.Range("af1") = f2.Range("a27")
.Range("ag1") = f2.Range("a32")
.Range("ah1") = f2.Range("a37")
.Range("ai1") = f2.Range("a42")
.Range("aj1") = f2.Range("a47")
.Range("ak1") = f2.Range("e10")
.Range("al1") = f2.Range("e12")
.Range("am1") = f2.Range("e14")
.Range("an1") = f2.Range("e1")
.Range("ao1") = f2.Range("e2")
.Range("ap1") = f2.Range("b3")
.Range("ba1") = f2.Range("fc1")
.Range("bb1") = f2.Range("fd1")
.Range("bc1") = f2.Range("fe1")
.Range("bd1") = f2.Range("ff1")
End With
With f3
.Rows(2).Insert
.Range("a2") = f2.Range("e1")
.Range("b2") = f2.Range("e2")
.Range("c2") = f2.Range("b5")
.Range("d2") = f2.Range("b6")
.Range("e2") = f2.Range("a2")
.Range("f2") = f2.Range("b9")
.Range("g2") = f2.Range("b10")
.Range("h2") = f2.Range("b12")
.Range("i2") = Worksheets("tickets départs").Range("c7")
.Range("j2") = Worksheets("tickets départs").Range("d7")
.Range("k2") = f2.Range("b9")
.Range("l2") = f2.Range("b12")
.Range("m2") = Worksheets("motif").Range("c46")
.Range("n2") = Worksheets("motif").Range("d46")
.Range("o2") = f2.Range("fg9")
.Range("p2") = f2.Range("fg12")
.Range("k2") = f2.Range("b9")
.Range("q2") = f2.Range("c15")
.Range("r2") = f2.Range("c16")
.Range("s2") = f2.Range("c17")
.Range("t2") = f2.Range("c18")
.Range("u2") = f2.Range("c19")
.Range("v2") = f2.Range("c20")
.Range("w2") = f2.Range("e15")
.Range("x2") = f2.Range("e16")
.Range("y2") = f2.Range("e17")
.Range("z2") = f2.Range("e18")
.Range("aa2") = f2.Range("e19")
.Range("ab2") = f2.Range("e20")
.Range("ae2") = f2.Range("e12")
.Range("af2") = f2.Range("e14")
.Range("ac2") = f2.Range("c15")
.Range("ad2") = f2.Range("e52")
End With
' -----------------------------------------------------------------
With Application
.Calculation = calcState
.DisplayStatusBar = statusBarState
.EnableEvents = eventsState
.ScreenUpdating = screenUpdateState
End With
Set f1 = Nothing: Set f2 = Nothing: f3 = Nothing
Exit Sub
'-----------------------------------------------------------------------
gestion_erreur:
With Application
.Calculation = calcState
.DisplayStatusBar = statusBarState
.EnableEvents = eventsState
End With
Set f1 = Nothing: Set f2 = Nothing: f3 = Nothing
End Sub
With Sheets("départ")
.Rows(1).Insert
.Range("a1").Value = Sheets("feuil13").Range("e7")
.Range("b1").Value = Sheets("feuil13").Range("h1") & " " & Sheets("feuil13").Range("e7")
.Range("c1").Value = Sheets("feuil13").Range("h2") & " " & Sheets("feuil13").Range("e7")
.Range("d1").Value = Sheets("feuil13").Range("h3") & " " & Sheets("feuil13").Range("e7")
.Range("e1").Value = Sheets("feuil13").Range("h4") & " " & Sheets("feuil13").Range("e7")
.Range("f1").Value = Sheets("feuil13").Range("h5") & " " & Sheets("feuil13").Range("e7")
.Range("g1").Value = Sheets("feuil13").Range("h6") & " " & Sheets("feuil13").Range("e7")
.Range("h1").Value = Sheets("feuil13").Range("i1") & " " & Sheets("feuil13").Range("e8")
.Range("i1").Value = Sheets("feuil13").Range("i2") & " " & Sheets("feuil13").Range("e8")
.Range("j1").Value = Sheets("feuil13").Range("i3") & " " & Sheets("feuil13").Range("e8")
.Range("k1").Value = Sheets("feuil13").Range("i4") & " " & Sheets("feuil13").Range("e8")
.Range("l1").Value = Sheets("feuil13").Range("i5") & " " & Sheets("feuil13").Range("e8")
.Range("m1").Value = Sheets("feuil13").Range("i6") & " " & Sheets("feuil13").Range("e8")
.Range("o1").Value = Sheets("feuil13").Range("t18")
.Range("p1").Value = Sheets("feuil13").Range("h7")
.Range("q1").Value = Sheets("feuil13").Range("i7")
.Range("r1").Value = Sheets("feuil13").Range("b1")
.Range("s1").Value = Sheets("feuil13").Range("b8")
.Range("t1").Value = Sheets("feuil13").Range("b5")
.Range("u1").Value = Sheets("feuil13").Range("b6")
.Range("v1").Value = Sheets("feuil13").Range("b9")
.Range("w1").Value = Sheets("feuil13").Range("b10")
.Range("x1").Value = Sheets("feuil13").Range("b11")
.Range("y1").Value = Sheets("feuil13").Range("b12")
.Range("ae1").Value = Sheets("feuil13").Range("a22")
.Range("af1").Value = Sheets("feuil13").Range("a27")
.Range("ag1").Value = Sheets("feuil13").Range("a32")
.Range("ah1").Value = Sheets("feuil13").Range("a37")
.Range("ai1").Value = Sheets("feuil13").Range("a42")
.Range("aj1").Value = Sheets("feuil13").Range("a47")
.Range("ak1").Value = Sheets("feuil13").Range("e10")
.Range("al1").Value = Sheets("feuil13").Range("e12")
.Range("am1").Value = Sheets("feuil13").Range("e14")
.Range("an1").Value = Sheets("feuil13").Range("e1")
.Range("ao1").Value = Sheets("feuil13").Range("e2")
.Range("ap1").Value = Sheets("feuil13").Range("b3")
.Range("ba1").Value = Sheets("feuil13").Range("fc1")
.Range("bb1").Value = Sheets("feuil13").Range("fd1")
.Range("bc1").Value = Sheets("feuil13").Range("fe1")
.Range("bd1").Value = Sheets("feuil13").Range("ff1")
End With
With Sheets("feuil57")
.Rows(2).Insert
.Range("a2") = Sheets("feuil13").Range("e1").Value
.Range("b2") = Sheets("feuil13").Range("e2").Value
.Range("c2").Value = Sheets("feuil13").Range("b5")
.Range("d2").Value = Sheets("feuil13").Range("b6")
.Range("e2").Value = Sheets("feuil13").Range("a2")
.Range("f2").Value = Sheets("feuil13").Range("b9")
.Range("g2").Value = Sheets("feuil13").Range("b10")
.Range("h2").Value = Sheets("feuil13").Range("b12")
.Range("i2").Value = Sheets("tickets départs").Range("c7")
.Range("j2").Value = Sheets("tickets départs").Range("d7")
.Range("k2").Value = Sheets("feuil13").Range("b9")
.Range("l2").Value = Sheets("feuil13").Range("b12")
.Range("m2").Value = Sheets("motif").Range("c46")
.Range("n2").Value = Sheets("motif").Range("d46")
.Range("o2").Value = Sheets("feuil13").Range("fg9")
.Range("p2").Value = Sheets("feuil13").Range("fg12")
.Range("k2").Value = Sheets("feuil13").Range("b9")
.Range("q2").Value = Sheets("feuil13").Range("c15")
.Range("r2").Value = Sheets("feuil13").Range("c16")
.Range("s2").Value = Sheets("feuil13").Range("c17")
.Range("t2").Value = Sheets("feuil13").Range("c18")
.Range("u2").Value = Sheets("feuil13").Range("c19")
.Range("v2").Value = Sheets("feuil13").Range("c20")
.Range("w2").Value = Sheets("feuil13").Range("e15")
.Range("x2").Value = Sheets("feuil13").Range("e16")
.Range("y2").Value = Sheets("feuil13").Range("e17")
.Range("z2").Value = Sheets("feuil13").Range("e18")
.Range("aa2").Value = Sheets("feuil13").Range("e19")
.Range("ab2").Value = Sheets("feuil13").Range("e20")
.Range("ae2").Value = Sheets("feuil13").Range("e12")
.Range("af2").Value = Sheets("feuil13").Range("e14")
.Range("ac2").Value = Sheets("feuil13").Range("c15")
.Range("ad2").Value = Sheets("feuil13").Range("e52")
End With
End If
Sheets("motif").Range("g4").Value = " "
Sheets("motif").Range("c39").Value = " "
Sheets("motif").Range("f40").Value = " "
Sheets("feuil2").Range("b1").Value = " "
Sheets("motif").Range("c47").Value = " "
Sheets("feuil11").Range("g1").Value = " "
Sheets("feuil11").Range("g2").Value = " "
Sheets("feuil11").Range("g3").Value = " "
Sheets("feuil13").Range("i1").Value = " "
Sheets("feuil13").Range("i2").Value = " "
Sheets("feuil13").Range("i3").Value = " "
Sheets("feuil13").Range("i4").Value = " "
Sheets("feuil13").Range("i5").Value = " "
Sheets("feuil13").Range("i6").Value = " "
Sheets("feuil13").Range("i7").Value = " "
Sheets("feuil13").Range("f8").Value = " "
Sheets("feuil13").Range("g8").Value = " "
Sheets("feuil13").Range("b1").Value = " "
Sheets("feuil13").Range("h1").Value = " "
Sheets("feuil13").Range("h2").Value = " "
Sheets("feuil13").Range("h3").Value = " "
Sheets("feuil13").Range("h4").Value = " "
Sheets("feuil13").Range("h5").Value = " "
Sheets("feuil13").Range("h6").Value = " "
Sheets("feuil13").Range("h7").Value = " "
Sheets("feuil13").Range("e1").Value = " "
Sheets("feuil13").Range("e2").Value = " "
Sheets("feuil13").Range("b9").Value = " "
Sheets("feuil13").Range("b10").Value = " "
Sheets("feuil13").Range("b11").Value = " "
Sheets("feuil13").Range("b12").Value = " "
Sheets("feuil13").Range("c9").Value = " "
Sheets("feuil13").Range("c10").Value = " "
Sheets("feuil13").Range("c11").Value = " "
Sheets("feuil13").Range("c12").Value = " "
Sheets("feuil13").Range("d9").Value = " "
Sheets("feuil13").Range("d10").Value = " "
Sheets("feuil13").Range("d11").Value = " "
Sheets("feuil13").Range("d12").Value = " "
Sheets("feuil13").Range("b21").Value = " "
Sheets("feuil13").Range("c21").Value = " "
Sheets("feuil13").Range("a22").Value = " "
Sheets("feuil13").Range("b26").Value = " "
Sheets("feuil13").Range("c26").Value = " "
Sheets("feuil13").Range("a27").Value = " "
Sheets("feuil13").Range("b31").Value = " "
Sheets("feuil13").Range("c31").Value = " "
Sheets("feuil13").Range("a32").Value = " "
Sheets("feuil13").Range("b36").Value = " "
Sheets("feuil13").Range("c36").Value = " "
Sheets("feuil13").Range("a37").Value = " "
Sheets("feuil13").Range("b41").Value = " "
Sheets("feuil13").Range("c41").Value = " "
Sheets("feuil13").Range("a42").Value = " "
Sheets("feuil13").Range("b46").Value = " "
Sheets("feuil13").Range("c46").Value = " "
Sheets("feuil13").Range("a47").Value = " "
Sheets("feuil13").Range("c52").Value = " "
Sheets("feuil13").Range("t18").Value = " "
Sheets("feuil13").Range("e10").Value = " "
Sheets("feuil13").Range("e12").Value = " "
Sheets("feuil13").Range("e14").Value = " "
UserForm1.TextBox1.Value = ""
UserForm1.TextBox2.Value = ""
End Sub
Private Sub dispocs_Click()
cs.Show
End Sub
Private Sub DR_Click()
retour.Show
End Sub
Private Sub mess1_Click()
message1.Show
End Sub
Private Sub mess2_Click()
message2.Show
End Sub
Private Sub mess3_Click()
message3.Show
End Sub
Private Sub mess4_Click()
message4.Show
End Sub
Private Sub mess5_Click()
message5.Show
End Sub
Private Sub mess6_Click()
message6.Show
End Sub
Private Sub motif1_Click()
UserForm5.Show
End Sub
Private Sub ri_Click()
indispo.Show
End Sub
Private Sub sll_Click()
lieux.Show
End Sub
Private Sub transit_Click()
transi.Show
End Sub
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
gestion1.Caption = Sheets("feuil13").Range("e1") & " " & Sheets("feuil13").Range("b3") & " " & Sheets("feuil13").Range("b5") & " " & Sheets("feuil13").Range("b6")
Label17.Caption = Sheets("feuil13").Range("b7")
Label18.Caption = Sheets("feuil13").Range("c7")
Label19.Caption = Sheets("feuil13").Range("d7")
If Label17.Caption = "" Then
ListBox6.Visible = False
ListBox7.Visible = False
ListBox8.Visible = False
ListBox11.Visible = False
ListBox12.Visible = False
End If
If Label18.Caption = "" Then
ListBox14.Visible = False
ListBox15.Visible = False
ListBox16.Visible = False
ListBox19.Visible = False
ListBox13.Visible = False
End If
If Label19.Caption = "" Then
ListBox20.Visible = False
ListBox22.Visible = False
ListBox23.Visible = False
ListBox26.Visible = False
ListBox21.Visible = False
Application.ScreenUpdating = True
End If
End Sub
Voila il y a tout sa que je cherche à simplifier et réduire
Re,
Regarde la modification apportée et teste
Dans la négative, donner la ligne qui fait défaut et décrire l'erreur.
Private Sub ch_Click()
hospital.Show
End Sub
Private Sub CommandButton1_Click()
Sheets("feuil13").Range("e10").Value = Time
End Sub
Private Sub CommandButton2_Click()
Sheets("feuil13").Range("e12").Value = Time
End Sub
Private Sub CommandButton3_Click()
Sheets("feuil13").Range("e14").Value = Time
End Sub
Private Sub CommandButton4_Click()
perso1.Show
End Sub
Private Sub CommandButton5_Click()
perso2.Show
End Sub
Private Sub CommandButton6_Click()
Application.ScreenUpdating = False
UserForm3.Show
Sheets("feuil13").Range("c52").Value = Time
Sheets("feuil13").PrintOut
gestion1.Hide
If Sheets("feuil13").Range("b3") <> "ACTIVITE DE SERVICE" And Sheets("feuil13").Range("b3") <> "RECUPERATION DE MATERIEL" Then
If Sheets("feuil13").Range("b1") = Sheets("dispo").Range("a4") Then
With Sheets("feuil10")
.Rows(39).Insert
.Range("a39").Value = Sheets("feuil13").Range("e2")
.Range("b39").Value = Sheets("feuil13").Range("b9")
.Range("c39").Value = Sheets("feuil13").Range("b12")
.Range("d39").Value = Sheets("feuil13").Range("e7")
.Range("e39").Value = Sheets("feuil13").Range("b3")
.Range("h39").Value = Sheets("feuil13").Range("b5")
End With
ElseIf Sheets("feuil13").Range("b1") = Sheets("dispo").Range("a5") Then
With Sheets("ma")
.Rows(39).Insert
.Range("a39").Value = Sheets("feuil13").Range("e2")
.Range("b39").Value = Sheets("feuil13").Range("b9")
.Range("c39").Value = Sheets("feuil13").Range("b12")
.Range("d39").Value = Sheets("feuil13").Range("e7")
.Range("e39").Value = Sheets("feuil13").Range("b3")
.Range("h39").Value = Sheets("feuil13").Range("b5")
End With
ElseIf Sheets("feuil13").Range("b1") = Sheets("dispo").Range("a6") Then
With Sheets("me")
.Rows(39).Insert
.Range("a39").Value = Sheets("feuil13").Range("e2")
.Range("b39").Value = Sheets("feuil13").Range("b9")
.Range("c39").Value = Sheets("feuil13").Range("b12")
.Range("d39").Value = Sheets("feuil13").Range("e7")
.Range("e39").Value = Sheets("feuil13").Range("b3")
.Range("h39").Value = Sheets("feuil13").Range("b5")
End With
ElseIf Sheets("feuil13").Range("b1") = Sheets("dispo").Range("a7") Then
With Sheets("je")
.Rows(39).Insert
.Range("a39").Value = Sheets("feuil13").Range("e2")
.Range("b39").Value = Sheets("feuil13").Range("b9")
.Range("c39").Value = Sheets("feuil13").Range("b12")
.Range("d39").Value = Sheets("feuil13").Range("e7")
.Range("e39").Value = Sheets("feuil13").Range("b3")
.Range("h39").Value = Sheets("feuil13").Range("b5")
End With
ElseIf Sheets("feuil13").Range("b1") = Sheets("dispo").Range("a8") Then
With Sheets("ve")
.Rows(39).Insert
.Range("a39").Value = Sheets("feuil13").Range("e2")
.Range("b39").Value = Sheets("feuil13").Range("b9")
.Range("c39").Value = Sheets("feuil13").Range("b12")
.Range("d39").Value = Sheets("feuil13").Range("e7")
.Range("e39").Value = Sheets("feuil13").Range("b3")
.Range("h39").Value = Sheets("feuil13").Range("b5")
End With
ElseIf Sheets("feuil13").Range("b1") = Sheets("dispo").Range("a9") Then
With Sheets("sa")
.Rows(39).Insert
.Range("a39").Value = Sheets("feuil13").Range("e2")
.Range("b39").Value = Sheets("feuil13").Range("b9")
.Range("c39").Value = Sheets("feuil13").Range("b12")
.Range("d39").Value = Sheets("feuil13").Range("e7")
.Range("e39").Value = Sheets("feuil13").Range("b3")
.Range("h39").Value = Sheets("feuil13").Range("b5")
End With
ElseIf Sheets("feuil13").Range("b1") = Sheets("dispo").Range("a10") Then
With Sheets("di")
.Rows(39).Insert
.Range("a39").Value = Sheets("feuil13").Range("e2")
.Range("b39").Value = Sheets("feuil13").Range("b9")
.Range("c39").Value = Sheets("feuil13").Range("b12")
.Range("d39").Value = Sheets("feuil13").Range("e7")
.Range("e39").Value = Sheets("feuil13").Range("b3")
.Range("h39").Value = Sheets("feuil13").Range("b5")
End With
ElseIf Sheets("feuil13").Range("b1") = Sheets("dispo").Range("a11") Then
With Sheets("lu")
.Rows(39).Insert
.Range("a39").Value = Sheets("feuil13").Range("e2")
.Range("b39").Value = Sheets("feuil13").Range("b9")
.Range("c39").Value = Sheets("feuil13").Range("b12")
.Range("d39").Value = Sheets("feuil13").Range("e7")
.Range("e39").Value = Sheets("feuil13").Range("b3")
.Range("h39").Value = Sheets("feuil13").Range("b5")
End With
End If
If Sheets("feuil16").Range("b2") <> "" Then
Sheets("sorties").Range("c2").Value = Sheets("feuil16").Range("b2")
End If
If Sheets("feuil16").Range("b3") <> "" Then
Sheets("sorties").Range("c3").Value = Sheets("feuil16").Range("b3")
End If
If Sheets("feuil16").Range("b4") <> "" Then
Sheets("sorties").Range("c4").Value = Sheets("feuil16").Range("b4")
End If
If Sheets("feuil16").Range("b5") <> "" Then
Sheets("sorties").Range("c5").Value = Sheets("feuil16").Range("b5")
End If
If Sheets("feuil16").Range("b6") <> "" Then
Sheets("sorties").Range("c6").Value = Sheets("feuil16").Range("b6")
End If
If Sheets("feuil16").Range("b7") <> "" Then
Sheets("sorties").Range("c7").Value = Sheets("feuil16").Range("b7")
End If
If Sheets("feuil16").Range("b8") <> "" Then
Sheets("sorties").Range("c8").Value = Sheets("feuil16").Range("b8")
End If
If Sheets("feuil16").Range("b9") <> "" Then
Sheets("sorties").Range("c9").Value = Sheets("feuil16").Range("b9")
End If
If Sheets("feuil16").Range("b10") <> "" Then
Sheets("sorties").Range("c10").Value = Sheets("feuil16").Range("b10")
End If
If Sheets("feuil16").Range("b11") <> "" Then
Sheets("sorties").Range("c11").Value = Sheets("feuil16").Range("b11")
End If
If Sheets("feuil16").Range("b12") <> "" Then
Sheets("sorties").Range("c12").Value = Sheets("feuil16").Range("b12")
End If
If Sheets("feuil16").Range("b13") <> "" Then
Sheets("sorties").Range("c13").Value = Sheets("feuil16").Range("b13")
End If
If Sheets("feuil16").Range("b14") <> "" Then
Sheets("sorties").Range("c14").Value = Sheets("feuil16").Range("b14")
End If
If Sheets("feuil16").Range("b15") <> "" Then
Sheets("sorties").Range("c15").Value = Sheets("feuil16").Range("b15")
End If
If Sheets("feuil16").Range("b16") <> "" Then
Sheets("sorties").Range("c16").Value = Sheets("feuil16").Range("b16")
End If
If Sheets("feuil16").Range("b17") <> "" Then
Sheets("sorties").Range("c17").Value = Sheets("feuil16").Range("b17")
End If
If Sheets("feuil16").Range("b18") <> "" Then
Sheets("sorties").Range("c18").Value = Sheets("feuil16").Range("b18")
End If
If Sheets("feuil16").Range("c2") <> "" Then
Sheets("sorties").Range("f2").Value = Sheets("feuil16").Range("c2")
End If
If Sheets("feuil16").Range("c3") <> "" Then
Sheets("sorties").Range("f3").Value = Sheets("feuil16").Range("c3")
End If
If Sheets("feuil16").Range("c4") <> "" Then
Sheets("sorties").Range("f4").Value = Sheets("feuil16").Range("c4")
End If
If Sheets("feuil16").Range("c5") <> "" Then
Sheets("sorties").Range("f5").Value = Sheets("feuil16").Range("c5")
End If
If Sheets("feuil16").Range("c6") <> "" Then
Sheets("sorties").Range("f6").Value = Sheets("feuil16").Range("c6")
End If
If Sheets("feuil16").Range("c7") <> "" Then
Sheets("sorties").Range("f7").Value = Sheets("feuil16").Range("c7")
End If
If Sheets("feuil16").Range("c8") <> "" Then
Sheets("sorties").Range("f8").Value = Sheets("feuil16").Range("c8")
End If
If Sheets("feuil16").Range("c9") <> "" Then
Sheets("sorties").Range("f9").Value = Sheets("feuil16").Range("c9")
End If
If Sheets("feuil16").Range("c10") <> "" Then
Sheets("sorties").Range("f10").Value = Sheets("feuil16").Range("c10")
End If
If Sheets("feuil16").Range("c11") <> "" Then
Sheets("sorties").Range("f11").Value = Sheets("feuil16").Range("c11")
End If
If Sheets("feuil16").Range("c12") <> "" Then
Sheets("sorties").Range("f12").Value = Sheets("feuil16").Range("c12")
End If
If Sheets("feuil16").Range("c13") <> "" Then
Sheets("sorties").Range("f13").Value = Sheets("feuil16").Range("c13")
End If
If Sheets("feuil16").Range("c14") <> "" Then
Sheets("sorties").Range("f14").Value = Sheets("feuil16").Range("c14")
End If
If Sheets("feuil16").Range("c15") <> "" Then
Sheets("sorties").Range("f15").Value = Sheets("feuil16").Range("c15")
End If
If Sheets("feuil16").Range("c16") <> "" Then
Sheets("sorties").Range("f16").Value = Sheets("feuil16").Range("c16")
End If
If Sheets("feuil16").Range("c17") <> "" Then
Sheets("sorties").Range("f17").Value = Sheets("feuil16").Range("c17")
End If
If Sheets("feuil16").Range("c18") <> "" Then
Sheets("sorties").Range("f18").Value = Sheets("feuil16").Range("c18")
End If
If Sheets("feuil16").Range("d2") <> "" Then
Sheets("sorties").Range("l2").Value = Sheets("feuil16").Range("d2")
End If
If Sheets("feuil16").Range("d3") <> "" Then
Sheets("sorties").Range("l3").Value = Sheets("feuil16").Range("d3")
End If
If Sheets("feuil16").Range("d4") <> "" Then
Sheets("sorties").Range("l4").Value = Sheets("feuil16").Range("d4")
End If
If Sheets("feuil16").Range("d5") <> "" Then
Sheets("sorties").Range("l5").Value = Sheets("feuil16").Range("d5")
End If
If Sheets("feuil16").Range("d6") <> "" Then
Sheets("sorties").Range("l6").Value = Sheets("feuil16").Range("d6")
End If
If Sheets("feuil16").Range("d7") <> "" Then
Sheets("sorties").Range("l7").Value = Sheets("feuil16").Range("d7")
End If
If Sheets("feuil16").Range("d8") <> "" Then
Sheets("sorties").Range("l8").Value = Sheets("feuil16").Range("d8")
End If
If Sheets("feuil16").Range("d9") <> "" Then
Sheets("sorties").Range("l9").Value = Sheets("feuil16").Range("d9")
End If
If Sheets("feuil16").Range("d10") <> "" Then
Sheets("sorties").Range("l10").Value = Sheets("feuil16").Range("d10")
End If
If Sheets("feuil16").Range("d11") <> "" Then
Sheets("sorties").Range("l11").Value = Sheets("feuil16").Range("d11")
End If
If Sheets("feuil16").Range("d12") <> "" Then
Sheets("sorties").Range("l12").Value = Sheets("feuil16").Range("d12")
End If
If Sheets("feuil16").Range("d13") <> "" Then
Sheets("sorties").Range("l13").Value = Sheets("feuil16").Range("d13")
End If
If Sheets("feuil16").Range("d14") <> "" Then
Sheets("sorties").Range("l14").Value = Sheets("feuil16").Range("d14")
End If
If Sheets("feuil16").Range("d15") <> "" Then
Sheets("sorties").Range("l15").Value = Sheets("feuil16").Range("d15")
End If
If Sheets("feuil16").Range("d16") <> "" Then
Sheets("sorties").Range("l16").Value = Sheets("feuil16").Range("d16")
End If
If Sheets("feuil16").Range("d17") <> "" Then
Sheets("sorties").Range("l17").Value = Sheets("feuil16").Range("d17")
End If
If Sheets("feuil16").Range("d18") <> "" Then
Sheets("sorties").Range("l18").Value = Sheets("feuil16").Range("d18")
End If
If Sheets("feuil16").Range("e2") <> "" Then
Sheets("sorties").Range("i2").Value = Sheets("feuil16").Range("e2")
End If
If Sheets("feuil16").Range("e3") <> "" Then
Sheets("sorties").Range("i3").Value = Sheets("feuil16").Range("e3")
End If
If Sheets("feuil16").Range("e4") <> "" Then
Sheets("sorties").Range("i4").Value = Sheets("feuil16").Range("e4")
End If
If Sheets("feuil16").Range("e5") <> "" Then
Sheets("sorties").Range("i5").Value = Sheets("feuil16").Range("e5")
End If
If Sheets("feuil16").Range("e6") <> "" Then
Sheets("sorties").Range("i6").Value = Sheets("feuil16").Range("e6")
End If
If Sheets("feuil16").Range("e7") <> "" Then
Sheets("sorties").Range("i7").Value = Sheets("feuil16").Range("e7")
End If
If Sheets("feuil16").Range("e8") <> "" Then
Sheets("sorties").Range("i8").Value = Sheets("feuil16").Range("e8")
End If
If Sheets("feuil16").Range("e9") <> "" Then
Sheets("sorties").Range("i9").Value = Sheets("feuil16").Range("e9")
End If
If Sheets("feuil16").Range("e10") <> "" Then
Sheets("sorties").Range("i10").Value = Sheets("feuil16").Range("e10")
End If
If Sheets("feuil16").Range("e11") <> "" Then
Sheets("sorties").Range("i11").Value = Sheets("feuil16").Range("e11")
End If
If Sheets("feuil16").Range("e12") <> "" Then
Sheets("sorties").Range("i12").Value = Sheets("feuil16").Range("e12")
End If
If Sheets("feuil16").Range("e13") <> "" Then
Sheets("sorties").Range("i13").Value = Sheets("feuil16").Range("e13")
End If
If Sheets("feuil16").Range("e14") <> "" Then
Sheets("sorties").Range("i14").Value = Sheets("feuil16").Range("e14")
End If
If Sheets("feuil16").Range("e15") <> "" Then
Sheets("sorties").Range("i15").Value = Sheets("feuil16").Range("e15")
End If
If Sheets("feuil16").Range("e16") <> "" Then
Sheets("sorties").Range("i16").Value = Sheets("feuil16").Range("e16")
End If
If Sheets("feuil16").Range("e17") <> "" Then
Sheets("sorties").Range("i17").Value = Sheets("feuil16").Range("e17")
End If
If Sheets("feuil16").Range("e18") <> "" Then
Sheets("sorties").Range("i18").Value = Sheets("feuil16").Range("e18")
End If
If Sheets("feuil16").Range("f2") <> "" Then
Sheets("sorties").Range("p2").Value = Sheets("feuil16").Range("f2")
End If
If Sheets("feuil16").Range("f3") <> "" Then
Sheets("sorties").Range("p3").Value = Sheets("feuil16").Range("f3")
End If
If Sheets("feuil16").Range("f4") <> "" Then
Sheets("sorties").Range("p4").Value = Sheets("feuil16").Range("f4")
End If
If Sheets("feuil16").Range("f5") <> "" Then
Sheets("sorties").Range("p5").Value = Sheets("feuil16").Range("f5")
End If
If Sheets("feuil16").Range("f6") <> "" Then
Sheets("sorties").Range("p6").Value = Sheets("feuil16").Range("f6")
End If
If Sheets("feuil16").Range("f7") <> "" Then
Sheets("sorties").Range("p7").Value = Sheets("feuil16").Range("f7")
End If
If Sheets("feuil16").Range("f8") <> "" Then
Sheets("sorties").Range("p8").Value = Sheets("feuil16").Range("f8")
End If
If Sheets("feuil16").Range("f9") <> "" Then
Sheets("sorties").Range("p9").Value = Sheets("feuil16").Range("f9")
End If
If Sheets("feuil16").Range("f10") <> "" Then
Sheets("sorties").Range("p10").Value = Sheets("feuil16").Range("f10")
End If
If Sheets("feuil16").Range("f11") <> "" Then
Sheets("sorties").Range("p11").Value = Sheets("feuil16").Range("f11")
End If
If Sheets("feuil16").Range("f12") <> "" Then
Sheets("sorties").Range("p12").Value = Sheets("feuil16").Range("f12")
End If
If Sheets("feuil16").Range("f13") <> "" Then
Sheets("sorties").Range("p13").Value = Sheets("feuil16").Range("f13")
End If
If Sheets("feuil16").Range("f14") <> "" Then
Sheets("sorties").Range("p14").Value = Sheets("feuil16").Range("f14")
End If
If Sheets("feuil16").Range("f15") <> "" Then
Sheets("sorties").Range("p15").Value = Sheets("feuil16").Range("f15")
End If
If Sheets("feuil16").Range("f16") <> "" Then
Sheets("sorties").Range("p16").Value = Sheets("feuil16").Range("f16")
End If
If Sheets("feuil16").Range("f17") <> "" Then
Sheets("sorties").Range("p17").Value = Sheets("feuil16").Range("f17")
End If
If Sheets("feuil16").Range("f18") <> "" Then
Sheets("sorties").Range("p18").Value = Sheets("feuil16").Range("f18")
End If
End If
End Sub
Public Sub test()
Dim f1 As Worksheet, f2 As Worksheet, f3 As Worksheet
Dim calcState As Integer
Dim eventsState As Boolean
Dim screenUpdateState As Boolean
Dim statusBarState As Boolean
' -----------------------------------------------------------------
On Error GoTo gestion_erreur
screenUpdateState = Application.ScreenUpdating
statusBarState = Application.DisplayStatusBar
calcState = Application.Calculation
eventsState = Application.EnableEvents
With Application
.Calculation = xlCalculationManual
.DisplayStatusBar = False
.EnableEvents = False
.ScreenUpdating = False
End With
' -----------------------------------------------------------------
Set f1 = Worksheets("départ")
Set f2 = Worksheets("feuil13")
Set f3 = Worksheets("feuil57")
With f1
.Rows(1).Insert
.Range("a1") = f2.Range("e7")
.Range("b1") = f2.Range("h1") & Chr(32) & f2.Range("e7")
.Range("c1") = f2.Range("h2") & Chr(32) & f2.Range("e7")
.Range("d1") = f2.Range("h3") & Chr(32) & f2.Range("e7")
.Range("e1") = f2.Range("h4") & Chr(32) & f2.Range("e7")
.Range("f1") = f2.Range("h5") & Chr(32) & f2.Range("e7")
.Range("g1") = f2.Range("h6") & Chr(32) & f2.Range("e7")
.Range("h1") = f2.Range("i1") & Chr(32) & f2.Range("e8")
.Range("i1") = f2.Range("i2") & Chr(32) & f2.Range("e8")
.Range("j1") = f2.Range("i3") & Chr(32) & f2.Range("e8")
.Range("k1") = f2.Range("i4") & Chr(32) & f2.Range("e8")
.Range("l1") = f2.Range("i5") & Chr(32) & f2.Range("e8")
.Range("m1") = f2.Range("i6") & Chr(32) & f2.Range("e8")
.Range("o1") = f2.Range("t18")
.Range("p1") = f2.Range("h7")
.Range("q1") = f2.Range("i7")
.Range("r1") = f2.Range("b1")
.Range("s1") = f2.Range("b8")
.Range("t1") = f2.Range("b5")
.Range("u1") = f2.Range("b6")
.Range("v1") = f2.Range("b9")
.Range("w1") = f2.Range("b10")
.Range("x1") = f2.Range("b11")
.Range("y1") = f2.Range("b12")
.Range("ae1") = f2.Range("a22")
.Range("af1") = f2.Range("a27")
.Range("ag1") = f2.Range("a32")
.Range("ah1") = f2.Range("a37")
.Range("ai1") = f2.Range("a42")
.Range("aj1") = f2.Range("a47")
.Range("ak1") = f2.Range("e10")
.Range("al1") = f2.Range("e12")
.Range("am1") = f2.Range("e14")
.Range("an1") = f2.Range("e1")
.Range("ao1") = f2.Range("e2")
.Range("ap1") = f2.Range("b3")
.Range("ba1") = f2.Range("fc1")
.Range("bb1") = f2.Range("fd1")
.Range("bc1") = f2.Range("fe1")
.Range("bd1") = f2.Range("ff1")
End With
With f3
.Rows(2).Insert
.Range("a2") = f2.Range("e1")
.Range("b2") = f2.Range("e2")
.Range("c2") = f2.Range("b5")
.Range("d2") = f2.Range("b6")
.Range("e2") = f2.Range("a2")
.Range("f2") = f2.Range("b9")
.Range("g2") = f2.Range("b10")
.Range("h2") = f2.Range("b12")
.Range("i2") = Worksheets("tickets départs").Range("c7")
.Range("j2") = Worksheets("tickets départs").Range("d7")
.Range("k2") = f2.Range("b9")
.Range("l2") = f2.Range("b12")
.Range("m2") = Worksheets("motif").Range("c46")
.Range("n2") = Worksheets("motif").Range("d46")
.Range("o2") = f2.Range("fg9")
.Range("p2") = f2.Range("fg12")
.Range("k2") = f2.Range("b9")
.Range("q2") = f2.Range("c15")
.Range("r2") = f2.Range("c16")
.Range("s2") = f2.Range("c17")
.Range("t2") = f2.Range("c18")
.Range("u2") = f2.Range("c19")
.Range("v2") = f2.Range("c20")
.Range("w2") = f2.Range("e15")
.Range("x2") = f2.Range("e16")
.Range("y2") = f2.Range("e17")
.Range("z2") = f2.Range("e18")
.Range("aa2") = f2.Range("e19")
.Range("ab2") = f2.Range("e20")
.Range("ae2") = f2.Range("e12")
.Range("af2") = f2.Range("e14")
.Range("ac2") = f2.Range("c15")
.Range("ad2") = f2.Range("e52")
End With
' -----------------------------------------------------------------
With Application
.Calculation = calcState
.DisplayStatusBar = statusBarState
.EnableEvents = eventsState
.ScreenUpdating = screenUpdateState
End With
Set f1 = Nothing: Set f2 = Nothing: f3 = Nothing
Exit Sub
'-----------------------------------------------------------------------
gestion_erreur:
With Application
.Calculation = calcState
.DisplayStatusBar = statusBarState
.EnableEvents = eventsState
End With
Set f1 = Nothing: Set f2 = Nothing: f3 = Nothing
End Sub
'Sheets("motif").Range("g4").Value = " "
'Sheets("motif").Range("c39").Value = " "
'Sheets("motif").Range("f40").Value = " "
'Sheets("feuil2").Range("b1").Value = " "
'Sheets("motif").Range("c47").Value = " "
'Sheets("feuil11").Range("g1").Value = " "
'Sheets("feuil11").Range("g2").Value = " "
'Sheets("feuil11").Range("g3").Value = " "
'Sheets("feuil13").Range("i1").Value = " "
'Sheets("feuil13").Range("i2").Value = " "
'Sheets("feuil13").Range("i3").Value = " "
'Sheets("feuil13").Range("i4").Value = " "
'Sheets("feuil13").Range("i5").Value = " "
'Sheets("feuil13").Range("i6").Value = " "
'Sheets("feuil13").Range("i7").Value = " "
'Sheets("feuil13").Range("f8").Value = " "
'Sheets("feuil13").Range("g8").Value = " "
'Sheets("feuil13").Range("b1").Value = " "
'Sheets("feuil13").Range("h1").Value = " "
'Sheets("feuil13").Range("h2").Value = " "
'Sheets("feuil13").Range("h3").Value = " "
'Sheets("feuil13").Range("h4").Value = " "
'Sheets("feuil13").Range("h5").Value = " "
'Sheets("feuil13").Range("h6").Value = " "
'Sheets("feuil13").Range("h7").Value = " "
'Sheets("feuil13").Range("e1").Value = " "
'Sheets("feuil13").Range("e2").Value = " "
'Sheets("feuil13").Range("b9").Value = " "
'Sheets("feuil13").Range("b10").Value = " "
'Sheets("feuil13").Range("b11").Value = " "
'Sheets("feuil13").Range("b12").Value = " "
'Sheets("feuil13").Range("c9").Value = " "
'Sheets("feuil13").Range("c10").Value = " "
'Sheets("feuil13").Range("c11").Value = " "
'Sheets("feuil13").Range("c12").Value = " "
'Sheets("feuil13").Range("d9").Value = " "
'Sheets("feuil13").Range("d10").Value = " "
'Sheets("feuil13").Range("d11").Value = " "
'Sheets("feuil13").Range("d12").Value = " "
'Sheets("feuil13").Range("b21").Value = " "
'Sheets("feuil13").Range("c21").Value = " "
'Sheets("feuil13").Range("a22").Value = " "
'Sheets("feuil13").Range("b26").Value = " "
'Sheets("feuil13").Range("c26").Value = " "
'Sheets("feuil13").Range("a27").Value = " "
'Sheets("feuil13").Range("b31").Value = " "
'Sheets("feuil13").Range("c31").Value = " "
'Sheets("feuil13").Range("a32").Value = " "
'Sheets("feuil13").Range("b36").Value = " "
'Sheets("feuil13").Range("c36").Value = " "
'Sheets("feuil13").Range("a37").Value = " "
'Sheets("feuil13").Range("b41").Value = " "
'Sheets("feuil13").Range("c41").Value = " "
'Sheets("feuil13").Range("a42").Value = " "
'Sheets("feuil13").Range("b46").Value = " "
'Sheets("feuil13").Range("c46").Value = " "
'Sheets("feuil13").Range("a47").Value = " "
'Sheets("feuil13").Range("c52").Value = " "
'Sheets("feuil13").Range("t18").Value = " "
'Sheets("feuil13").Range("e10").Value = " "
'Sheets("feuil13").Range("e12").Value = " "
'Sheets("feuil13").Range("e14").Value = " "
'UserForm1.TextBox1.Value = ""
'UserForm1.TextBox2.Value = ""
'End Sub
Private Sub dispocs_Click()
cs.Show
End Sub
Private Sub DR_Click()
retour.Show
End Sub
Private Sub mess1_Click()
message1.Show
End Sub
Private Sub mess2_Click()
message2.Show
End Sub
Private Sub mess3_Click()
message3.Show
End Sub
Private Sub mess4_Click()
message4.Show
End Sub
Private Sub mess5_Click()
message5.Show
End Sub
Private Sub mess6_Click()
message6.Show
End Sub
Private Sub motif1_Click()
UserForm5.Show
End Sub
Private Sub ri_Click()
indispo.Show
End Sub
Private Sub sll_Click()
lieux.Show
End Sub
Private Sub transit_Click()
transi.Show
End Sub
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
gestion1.Caption = Sheets("feuil13").Range("e1") & " " & Sheets("feuil13").Range("b3") & " " & Sheets("feuil13").Range("b5") & " " & Sheets("feuil13").Range("b6")
Label17.Caption = Sheets("feuil13").Range("b7")
Label18.Caption = Sheets("feuil13").Range("c7")
Label19.Caption = Sheets("feuil13").Range("d7")
If Label17.Caption = "" Then
ListBox6.Visible = False
ListBox7.Visible = False
ListBox8.Visible = False
ListBox11.Visible = False
ListBox12.Visible = False
End If
If Label18.Caption = "" Then
ListBox14.Visible = False
ListBox15.Visible = False
ListBox16.Visible = False
ListBox19.Visible = False
ListBox13.Visible = False
End If
If Label19.Caption = "" Then
ListBox20.Visible = False
ListBox22.Visible = False
ListBox23.Visible = False
ListBox26.Visible = False
ListBox21.Visible = False
Application.ScreenUpdating = True
End If
End Sub