Simplification de code Vba

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
s
steph62880
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 13 mai 2014
Version d'Excel : 2010FR

Message par steph62880 » 13 mai 2014, 20:01

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 .
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'701
Appréciations reçues : 701
Inscrit le : 27 août 2012
Version d'Excel : 365 Personnel

Message par Jean-Eric » 14 mai 2014, 00:59

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
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
s
steph62880
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 13 mai 2014
Version d'Excel : 2010FR

Message par steph62880 » 14 mai 2014, 01:50

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 :wink:
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 :?
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'701
Appréciations reçues : 701
Inscrit le : 27 août 2012
Version d'Excel : 365 Personnel

Message par Jean-Eric » 14 mai 2014, 02:42

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
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message