Partage
  • Partager sur Facebook
  • Partager sur Twitter

'erreur d'éxécution '9'

Erreur marcro urgent SVP

Bebert31tlse
    14 octobre 2019 à 21:24:07

    Mes collègues organisent un cross des élèves ce vendredi et sont en galère pour le fichier des courses...

    Il y a une erreur 

    Je pense qu'il s'agit d'une erreur de nom des feuilles mais je ne sais pas trop où changer....

    J'envoie ci dessous, ce que j'obtiens lorsque je clique sur Déboge ainsi que le nom des différentes feuilles..

    Est-ce que quelqu'un pourrait m'aider???

    Merci beaucoup

    Sub retour()
    Sheets("menu").Select
    End Sub

    Sub appel_c1()
    Sheets("course1").OnEntry = "cherche_conc"
    titre = Range("b3").Value
    Sheets("course1").Select
        With ActiveSheet.PageSetup
            .PrintTitleRows = "$1:$2"
            .PrintTitleColumns = ""
        End With
        ActiveSheet.PageSetup.PrintArea = ""
        With ActiveSheet.PageSetup
            .LeftHeader = "&""Arial,Gras""&18" & titre
          End With
         
        Sheets("course1").Select
        Range("a1").Value = Range("menu!d6").Value
    Range("b3").Select


    End Sub
    Sub appel_c2()
    Sheets("course2").OnEntry = "cherche_conc"
    titre = Range("b3").Value
    Sheets("course2").Select
        With ActiveSheet.PageSetup
            .PrintTitleRows = "$1:$2"
            .PrintTitleColumns = ""
        End With
        ActiveSheet.PageSetup.PrintArea = ""
        With ActiveSheet.PageSetup
            .LeftHeader = "&""Arial,Gras""&18" & titre
          End With
       
        Sheets("course2").Select
    Range("a1").Value = Range("menu!d8").Value
    Range("b3").Select

    End Sub
    Sub appel_c3()
    Sheets("course3").OnEntry = "cherche_conc"
    titre = Range("b3").Value
    Sheets("course3").Select
        With ActiveSheet.PageSetup
            .PrintTitleRows = "$1:$2"
            .PrintTitleColumns = ""
        End With
        ActiveSheet.PageSetup.PrintArea = ""
        With ActiveSheet.PageSetup
            .LeftHeader = "&""Arial,Gras""&18" & titre
          End With
        Sheets("course3").Select
        Range("a1").Value = Range("menu!d10").Value
    Range("b3").Select

    End Sub
    Sub appel_c4()
    Sheets("course4").OnEntry = "cherche_conc"
    titre = Range("b3").Value
    Sheets("course4").Select
        With ActiveSheet.PageSetup
            .PrintTitleRows = "$1:$2"
            .PrintTitleColumns = ""
        End With
        ActiveSheet.PageSetup.PrintArea = ""
        With ActiveSheet.PageSetup
            .LeftHeader = "&""Arial,Gras""&18" & titre
          End With
        Sheets("course4").Select
        Range("a1").Value = Range("menu!d12").Value
    Range("b3").Select

    End Sub
    Sub appel_c5()
    Sheets("course5").OnEntry = "cherche_conc"
    titre = Range("b3").Value
    Sheets("course5").Select
        With ActiveSheet.PageSetup
            .PrintTitleRows = "$1:$2"
            .PrintTitleColumns = ""
        End With
        ActiveSheet.PageSetup.PrintArea = ""
        With ActiveSheet.PageSetup
            .LeftHeader = "&""Arial,Gras""&18" & titre
          End With
        Sheets("course5").Select
        Range("a1").Value = Range("menu!d14").Value
    Range("B3").Select


    End Sub
    Sub appel_c6()
    Sheets("course6").OnEntry = "cherche_conc"
    titre = Range("b3").Value
    Sheets("course6").Select
        With ActiveSheet.PageSetup
            .PrintTitleRows = "$1:$2"
            .PrintTitleColumns = ""
        End With
        ActiveSheet.PageSetup.PrintArea = ""
        With ActiveSheet.PageSetup
            .LeftHeader = "&""Arial,Gras""&18" & titre
          End With
        Sheets("course6").Select
        Range("a1").Value = Range("menu!d16").Value
    Range("B3").Select


    End Sub
    Sub appel_c7()
    Sheets("course7").OnEntry = "cherche_conc"
    titre = Range("b3").Value
    Sheets("course7").Select
        With ActiveSheet.PageSetup
            .PrintTitleRows = "$1:$2"
            .PrintTitleColumns = ""
        End With
        ActiveSheet.PageSetup.PrintArea = ""
        With ActiveSheet.PageSetup
            .LeftHeader = "&""Arial,Gras""&18" & titre
          End With
        Sheets("course7").Select
        Range("a1").Value = Range("menu!d18").Value
    Range("B3").Select


    End Sub

    Sub appel_c8()
    Sheets("course8").OnEntry = "cherche_conc"
    titre = Range("b3").Value
    Sheets("course8").Select
        With ActiveSheet.PageSetup
            .PrintTitleRows = "$1:$2"
            .PrintTitleColumns = ""
        End With
        ActiveSheet.PageSetup.PrintArea = ""
        With ActiveSheet.PageSetup
            .LeftHeader = "&""Arial,Gras""&18" & titre
          End With
        Sheets("course8").Select
        Range("a1").Value = Range("menu!d20").Value
    Range("B3").Select


    End Sub
    Sub appel_c9()
    Sheets("course9").OnEntry = "cherche_conc"
    titre = Range("b3").Value
    Sheets("course9").Select
        With ActiveSheet.PageSetup
            .PrintTitleRows = "$1:$2"
            .PrintTitleColumns = ""
        End With
        ActiveSheet.PageSetup.PrintArea = ""
        With ActiveSheet.PageSetup
            .LeftHeader = "&""Arial,Gras""&18" & titre
          End With
        Sheets("course9").Select
        Range("a1").Value = Range("menu!d22").Value
    Range("B3").Select


    End Sub
    Sub appel_c10()
    Sheets("course10").OnEntry = "cherche_conc"
    titre = Range("b3").Value
    Sheets("course10").Select
        With ActiveSheet.PageSetup
            .PrintTitleRows = "$1:$2"
            .PrintTitleColumns = ""
        End With
        ActiveSheet.PageSetup.PrintArea = ""
        With ActiveSheet.PageSetup
            .LeftHeader = "&""Arial,Gras""&18" & titre
          End With
        Sheets("course10").Select
        Range("a1").Value = Range("menu!d24").Value
    Range("B3").Select


    End Sub
    Sub appel_c11()
    Sheets("course11").OnEntry = "cherche_conc"
    titre = Range("b3").Value
    Sheets("course11").Select
        With ActiveSheet.PageSetup
            .PrintTitleRows = "$1:$2"
            .PrintTitleColumns = ""
        End With
        ActiveSheet.PageSetup.PrintArea = ""
        With ActiveSheet.PageSetup
            .LeftHeader = "&""Arial,Gras""&18" & titre
          End With
        Sheets("course11").Select
        Range("a1").Value = Range("menu!d26").Value
    Range("B3").Select


    End Sub
    Sub appel_c12()
    Sheets("course12").OnEntry = "cherche_conc"
    titre = Range("b3").Value
    Sheets("course12").Select
        With ActiveSheet.PageSetup
            .PrintTitleRows = "$1:$2"
            .PrintTitleColumns = ""
        End With
        ActiveSheet.PageSetup.PrintArea = ""
        With ActiveSheet.PageSetup
            .LeftHeader = "&""Arial,Gras""&18" & titre
          End With
        Sheets("course12").Select
        Range("a1").Value = Range("menu!d28").Value
    Range("B3").Select


    End Sub
    Sub cherche_conc()


    With Selection

    If .Row > 1 And .Column = 2 Then
    Application.ScreenUpdating = False
    lig = .Row
    nom_feuille = ActiveSheet.Name
    course = Right(nom_feuille, 1)
    num_dos = ActiveCell.Value
        Sheets("liste").Select
        Range("a1").Select
        Do
        ActiveCell.Offset(1, 0).Select
        If ActiveCell.Value = "" Then
        nom = ""
        Sheets(nom_feuille).Select
        Application.ScreenUpdating = True
        Exit Sub
        End If
       
        If num_dos = ActiveCell.Value Then
            nom = ActiveCell.Offset(0, 1).Value
            prenom = ActiveCell.Offset(0, 2).Value
            an = Right(ActiveCell.Offset(0, 3).Value, 2)
            sexe = ActiveCell.Offset(0, 4).Value
            classe = ActiveCell.Offset(0, 5).Value

                Sheets(nom_feuille).Select
    ActiveCell.Offset(0, -1).Value = lig - 2
    ActiveCell.Offset(0, 1).Value = nom
    ActiveCell.Offset(0, 2).Value = prenom
    ActiveCell.Offset(0, 3).Value = an
    ActiveCell.Offset(0, 4).Value = sexe
    ActiveCell.Offset(0, 5).Value = classe
    ActiveCell.Offset(0, 6).Value = course

    Application.ScreenUpdating = True
    Exit Sub
    End If
    Loop
    End If


    End With


    End Sub
    Sub compter_eleves()
    Application.ScreenUpdating = False

    Sheets("Classes").Select
    Range("a1").Select
    Do

    ActiveCell.Offset(1, 0).Select
    num_classe = ActiveCell.Value
    If ActiveCell.Value = "" Then
    Sheets("Classes").Select
    Application.ScreenUpdating = True
    Exit Sub
    End If
       
    nb_el = 0

        Sheets("liste").Select
        Range("f1").Select
        Do
        ActiveCell.Offset(1, 0).Select
       
        If ActiveCell.Value = "" Then
        Sheets("Classes").Select
        ActiveCell.Offset(0, 1).Value = nb_el
        Exit Do
        End If
       
        If num_classe = ActiveCell.Value And ActiveCell.Offset(0, 1).Value <> "X" And ActiveCell.Offset(0, 1).Value <> "x" Then nb_el = nb_el + 1
        Loop

    Loop

    End Sub

    Sub classement()
    '
    ' classement Macro
    ' Macro enregistrée le 13/10/2001 par lesquelen patrick
    '

    '
    Application.ScreenUpdating = False
       Sheets("ctoutes").Select
        Range("A2:H2000").Select
        Selection.ClearContents
       
        Sheets("classes").Select
        Range("B2:G500").Select
        Selection.ClearContents
        Range("B2").Select
       
    compter_eleves
    Application.ScreenUpdating = False
        Sheets("Course1").Select
        Range("A3:H1000").Select
        Selection.Copy
        Sheets("ctoutes").Select
        Range("A2").Select
        ActiveSheet.Paste
        Sheets("Course2").Select
        Range("A3:H1000").Select
        Selection.Copy
        Sheets("ctoutes").Select
        Range("A1001").Select
        ActiveSheet.Paste
        Sheets("Course3").Select
        Range("A3:H1000").Select
        Selection.Copy
        Sheets("ctoutes").Select
        Range("A2001").Select
        ActiveSheet.Paste
        Sheets("Course4").Select
        Range("A3:H1000").Select
        Selection.Copy
        Sheets("ctoutes").Select
        Range("A3001").Select
        ActiveSheet.Paste
        Sheets("Course5").Select
        Range("A3:H1000").Select
        Selection.Copy
        Sheets("ctoutes").Select
        Range("A4001").Select
        ActiveSheet.Paste
        Sheets("Course6").Select
        Range("A3:H1000").Select
        Selection.Copy
        Sheets("ctoutes").Select
        Range("A5001").Select
        ActiveSheet.Paste
        Sheets("Course7").Select
        Range("A3:H1000").Select
        Selection.Copy
        Sheets("ctoutes").Select
        Range("A6001").Select
        ActiveSheet.Paste
        Sheets("Course8").Select
        Range("A3:H1000").Select
        Selection.Copy
        Sheets("ctoutes").Select
        Range("A7001").Select
        ActiveSheet.Paste
            Sheets("Course9").Select
        Range("A3:H1000").Select
        Selection.Copy
        Sheets("ctoutes").Select
        Range("A8001").Select
        ActiveSheet.Paste
            Sheets("Course10").Select
        Range("A3:H1000").Select
        Selection.Copy
        Sheets("ctoutes").Select
        Range("A9001").Select
        ActiveSheet.Paste
            Sheets("Course11").Select
        Range("A3:H1000").Select
        Selection.Copy
        Sheets("ctoutes").Select
        Range("A10001").Select
        ActiveSheet.Paste
            Sheets("Course12").Select
        Range("A3:H1000").Select
        Selection.Copy
        Sheets("ctoutes").Select
        Range("A11001").Select
        ActiveSheet.Paste

    ' ===== trier par classe --- classement
        Sheets("ctoutes").Select
        Range("A2:h13000").Select
        Selection.Sort Key1:=Range("G2"), Order1:=xlAscending, Key2:=Range("A2") _
            , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
            False, Orientation:=xlTopToBottom

    Range("a1").Select
    For i = 1 To 13000
    ActiveCell.Offset(1, 0).Select
    If ActiveCell.Value = "" Then
    With Selection
    ll = .Row
    End With
        Range(Cells(ll, 1), Cells(13000, 10)).Select
      Selection.ClearContents
    Exit For
    End If
    Next i
    ' ===== compter les présents ======
    Sheets("Classes").Select
    pen = Range("menu!i12").Value
    Range("a1").Select
    Do

    ActiveCell.Offset(1, 0).Select
    num_classe = ActiveCell.Value

    If ActiveCell.Value = "" Then
    Sheets("Classes").Select
    Application.ScreenUpdating = True
    Exit Sub
    End If

    nb_pts = 0
    nb_el = 0
        Sheets("ctoutes").Select
        Range("G1").Select
        Do
        ActiveCell.Offset(1, 0).Select
       
        If ActiveCell.Value = "" Then
        Sheets("Classes").Select
        ActiveCell.Offset(0, 2).Value = nb_el
        ' penalisation des absents non justifiés
       tot_el = ActiveCell.Offset(0, 1).Value
        diff = tot_el - nb_el
        penal = diff * pen
        ActiveCell.Offset(0, 3).Value = penal
        ActiveCell.Offset(0, 4).Value = nb_pts
        ActiveCell.Offset(0, 5).Value = (penal + nb_pts) / tot_el
        Exit Do
        End If
       
        If num_classe = ActiveCell.Value Then
        nb_el = nb_el + 1
        nb_pts = nb_pts + ActiveCell.Offset(0, -6).Value
        End If
        Loop

    Loop

           
    End Sub
    Sub suppression_conc()
    '
    ' suppression_conc Macro
    ' Macro enregistrée le 14/10/2001 par lesquelen patrick
    '

    '
    With Selection
    lig = .Row

        Rows(lig).Select
        Selection.Delete Shift:=xlUp
    Cells(lig - 1, 2).Select
    compt = lig - 3
    Do
    ActiveCell.Offset(1, 0).Select
    If ActiveCell.Value = "" Then Exit Do
    compt = compt + 1
    ActiveCell.Offset(0, -1).Value = compt
    Loop

       Range("A" & lig).Select
    End With
    End Sub

    Sub insertion()
    With Selection
    lig = .Row

        Rows(lig).Select
        Selection.EntireRow.Insert
     Cells(lig, 2).Select
    compt = lig - 2
    Do
    ActiveCell.Offset(1, 0).Select
    If ActiveCell.Value = "" Then Exit Do
    compt = compt + 1
    ActiveCell.Offset(0, -1).Value = compt
    Loop

       Range("B" & lig).Select
    End With
    End Sub

    Sub ed_par_classe()

    Sheets("ctoutes").Select
        Columns("A:A").Select
        Columns("A:A").EntireColumn.AutoFit
        Columns("B:B").Select
        Columns("B:B").EntireColumn.AutoFit
        Columns("C:C").Select
        Columns("C:C").EntireColumn.AutoFit
        Columns("D:D").Select
        Columns("D:D").EntireColumn.AutoFit
        Columns("E:E").Select
        Columns("E:E").EntireColumn.AutoFit
        Columns("F:F").Select
        Columns("F:F").EntireColumn.AutoFit
    Range("F1").Select
        ActiveCell.Value = "S."
        Columns("G:G").Select
        Columns("G:G").EntireColumn.AutoFit
        Columns("H:H").Select
        Columns("H:H").EntireColumn.AutoFit
    Range("h1").Select
        ActiveCell.Value = "C."
        Columns("H:H").Select
        Columns("H:H").EntireColumn.AutoFit
    '    Range("A2").Select
       
        Rows("1:1").Select
        Selection.AutoFilter

    Sheets("Classes").Select
    Range("A1").Select

    Do
    Sheets("Classes").Select
    ActiveCell.Offset(1, 0).Select

    If ActiveCell.Value = "" Then
    Sheets("ctoutes").Select
    Selection.AutoFilter
    Sheets("menu").Select
    Exit Sub
    End If

    class = ActiveCell.Value

    Sheets("ctoutes").Select
       Selection.AutoFilter Field:=7, Criteria1:=class

    '    ActiveWindow.SelectedSheets.PrintPreview
       ActiveWindow.SelectedSheets.PrintOut , Copies:=1, Collate:=True
    Loop


    End Sub
    Sub recup()
    'BoîteSaisie
    On Error GoTo sortirrecup
    Dim Msg, Style, Title, Help, Ctxt, Response, MyString
    Msg = ("Vous devez avoir le fichier F_ele.dbf dans le même répertoire que le classeur de Cross " & Chr(10) & " Vous pouvez charger plusieurs fichiers les uns à la suite des autres !!" & Chr(10) & "Attention à ne pas charger 2 fois le même !!!")
    Style = vbYesNo + vbCritical + vbDefaultButton2    ' Définit les boutons.
    Title = "Récupération de F_ele.dbf du GEP scolaire "    ' Définit le titre.
    Response = MsgBox(Msg, Style, Title)
    If Response = vbNo Then    ' L'utilisateur a choisi Oui.
        MyString = "Non"    ' Effectue une action.
        Exit Sub
    Else    ' L'utilisateur a choisi oui
    rep = ActiveWorkbook.Path

    Set monclasseur = Application.ActiveWorkbook
    monfic1 = rep & "\" & monclasseur.Name
    monfichier1 = monclasseur.Name

    Application.ScreenUpdating = False
    'RéperChanger "C:\UNSS\INDOOR"
    Sheets("liste").Select
    'Range("a2:f5000").Select
    'Selection.ClearContents
    ' se placer en fin de liste pour pouvoir ajouter un autre fichier GEP

    Range("b1").Select
    Do
    ActiveCell.Offset(1, 0).Select
    If ActiveCell.Value = "" Then Exit Do
    Loop
    ActiveCell.Offset(0, -1).Select


    nomfic = rep & "\" & "F_ele.DBF"
    nomfichier2 = "F_ele.DBF"

    Workbooks.Open Filename:=nomfic

    Do
    Windows(nomfichier2).Activate
    ActiveCell.Offset(1, 0).Select

    If ActiveCell.Value = "" Then
    Windows(monfichier1).Activate
    Sheets("liste").Select
        Range("A2:G15000").Select
        Selection.Sort Key1:=Range("F2"), Order1:=xlAscending, Key2:=Range("B2") _
            , Order2:=xlAscending, Key3:=Range("C2"), Order3:=xlAscending, Header:= _
            xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
        Range("A1").Select
    Windows(nomfichier2).Activate
    ActiveWorkbook.Close
    Windows(monfichier1).Activate
    Sheets("menu").Select
    Msg = MsgBox("Opération effectuée avec succés !!") ' Définit le message.
    Application.ScreenUpdating = True
    Exit Do
    End If

    nom_el = ""
    pre_el = ""
    nais = ""
    se = ""
    cl = ""

    nom_el = ActiveCell.Offset(0, 1).Value
    pre_el = ActiveCell.Offset(0, 2).Value
    ' rduire le prénom à un seul
    For i = 1 To 25
    If Mid$(pre_el, i, 1) = " " Then Exit For
    Next i
    pre_el = Left(pre_el, i - 1)

    nais = ActiveCell.Offset(0, 4).Value
    se = ActiveCell.Offset(0, 5).Value
    cl = ActiveCell.Offset(0, 39).Value

    If cl = "" Then GoTo suivant

    Windows(monfichier1).Activate
    Sheets("liste").Select
    ActiveCell.Offset(1, 0).Select
    ActiveCell.Offset(0, 1).Value = nom_el
    ActiveCell.Offset(0, 2).Value = pre_el
    ActiveCell.Offset(0, 3).Value = nais
    ActiveCell.Offset(0, 4).Value = se
    ActiveCell.Offset(0, 5).Select
    Selection.NumberFormat = "@"
    ActiveCell.Value = cl
    ActiveCell.Offset(0, -5).Select
    suivant: Loop
    Exit Sub
    sortirrecup:
    MsgBox (" Il y a une erreur !!! Avez vous mis F_ele.dbf dans le même répertoire que ce classeur ???")
    Exit Sub
    End If
    End Sub

    Sub vidertout()
    '
    ' Macro10 Macro
    ' Macro enregistrée le 19/09/2002 par patrick lesquelen
    '

    '
    Dim Msg, Style, Title, Help, Ctxt, Response, MyString
    Msg = "Souhaitez-vous continuer?"    ' Définit le message.
    Style = vbYesNo + vbCritical + vbDefaultButton2    ' Définit les boutons.
    Title = "Tout supprimer !!! "    ' Définit le titre.
    'Help = "DEMO.HLP"    ' Définit le fichier d'aide.
    'Ctxt = 1000    ' Définit le contexte de
                    ' la rubrique.
    ' Affiche le message.
    Response = MsgBox(Msg, Style, Title)
    If Response = vbYes Then    ' L'utilisateur a choisi Oui.
        MyString = "Oui"    ' Effectue une action.
    Else    ' L'utilisateur a choisi Non.
        MyString = "Non"    ' Effectue une action.
    Exit Sub
    End If

        Range("D6,D8,D10,D12,D14,D16,D18,D20,D22,D24,D26,D28,I12").Select
         Selection.ClearContents
        Range("I12").Select
        Selection.ClearContents
       
        Sheets("liste").Select
        Range("A2:i5000").Select
        Selection.ClearContents

        Sheets("ctoutes").Select
        Range("a2:i5000").Select
        Selection.ClearContents
       
         Sheets("classes").Select
        Range("a2:i5000").Select
        Selection.ClearContents
        Sheets("course1").Select
        Range("a1").Value = ""
        Range("a3:i5000").Select
        Selection.ClearContents
        Sheets("course2").Select
        Range("a1").Value = ""
        Range("a3:i5000").Select
        Selection.ClearContents
            Sheets("course3").Select
        Range("a1").Value = ""
        Range("a3:i5000").Select
        Selection.ClearContents
            Sheets("course4").Select
        Range("a1").Value = ""
        Range("a3:i5000").Select
        Selection.ClearContents
            Sheets("course5").Select
        Range("a1").Value = ""
        Range("a3:i5000").Select
        Selection.ClearContents
            Sheets("course6").Select
        Range("a1").Value = ""
        Range("a3:i5000").Select
        Selection.ClearContents
            Sheets("course7").Select
        Range("a1").Value = ""
        Range("a3:i5000").Select
        Selection.ClearContents
            Sheets("course8").Select
        Range("a1").Value = ""
        Range("a3:i5000").Select
        Selection.ClearContents
            Sheets("course9").Select
        Range("a1").Value = ""
        Range("a3:i5000").Select
        Selection.ClearContents
            Sheets("course10").Select
        Range("a1").Value = ""
        Range("a3:i5000").Select
        Selection.ClearContents
            Sheets("course11").Select
        Range("a1").Value = ""
        Range("a3:i5000").Select
        Selection.ClearContents
            Sheets("course12").Select
        Range("a1").Value = ""
        Range("a3:i5000").Select
        Selection.ClearContents
       
        Sheets("menu").Select
        Range("D6").Select
    End Sub
    Sub vidercourses()
    '
    ' Macro10 Macro
    ' Macro enregistrée le 19/09/2002 par patrick lesquelen
    '

    '
    Dim Msg, Style, Title, Help, Ctxt, Response, MyString
    Msg = "Souhaitez-vous continuer?"    ' Définit le message.
    Style = vbYesNo + vbCritical + vbDefaultButton2    ' Définit les boutons.
    Title = "Tout supprimer !!! "    ' Définit le titre.
    'Help = "DEMO.HLP"    ' Définit le fichier d'aide.
    'Ctxt = 1000    ' Définit le contexte de
                    ' la rubrique.
    ' Affiche le message.
    Response = MsgBox(Msg, Style, Title)
    If Response = vbYes Then    ' L'utilisateur a choisi Oui.
        MyString = "Oui"    ' Effectue une action.
    Else    ' L'utilisateur a choisi Non.
        MyString = "Non"    ' Effectue une action.
    Exit Sub
    End If

        Range("D6,D8,D10,D12,D14,D16,D18,D20,D22,D24,D26,D28,I12").Select
         Selection.ClearContents
        Range("I12").Select
        Selection.ClearContents
       
        Sheets("ctoutes").Select
        Range("a2:i5000").Select
        Selection.ClearContents
       
         Sheets("classes").Select
        Range("b2:i5000").Select
        Selection.ClearContents
       
        Sheets("course1").Select
        Range("a1").Value = ""
        Range("a3:i5000").Select
        Selection.ClearContents
        Sheets("course2").Select
        Range("a1").Value = ""
        Range("a3:i5000").Select
        Selection.ClearContents
            Sheets("course3").Select
        Range("a1").Value = ""
        Range("a3:i5000").Select
        Selection.ClearContents
            Sheets("course4").Select
        Range("a1").Value = ""
        Range("a3:i5000").Select
        Selection.ClearContents
            Sheets("course5").Select
        Range("a1").Value = ""
        Range("a3:i5000").Select
        Selection.ClearContents
            Sheets("course6").Select
        Range("a1").Value = ""
        Range("a3:i5000").Select
        Selection.ClearContents
            Sheets("course7").Select
        Range("a1").Value = ""
        Range("a3:i5000").Select
        Selection.ClearContents
            Sheets("course8").Select
        Range("a1").Value = ""
        Range("a3:i5000").Select
        Selection.ClearContents
            Sheets("course9").Select
        Range("a1").Value = ""
        Range("a3:i5000").Select
        Selection.ClearContents
            Sheets("course10").Select
        Range("a1").Value = ""
        Range("a3:i5000").Select
        Selection.ClearContents
            Sheets("course11").Select
        Range("a1").Value = ""
        Range("a3:i5000").Select
        Selection.ClearContents
            Sheets("course12").Select
        Range("a1").Value = ""
        Range("a3:i5000").Select
        Selection.ClearContents
       
        Sheets("menu").Select
        Range("a1").Select
    End Sub



    -
    Edité par Bebert31tlse 14 octobre 2019 à 21:29:14

    • Partager sur Facebook
    • Partager sur Twitter

    'erreur d'éxécution '9'

    × Après avoir cliqué sur "Répondre" vous serez invité à vous connecter pour que votre message soit publié.
    × Attention, ce sujet est très ancien. Le déterrer n'est pas forcément approprié. Nous te conseillons de créer un nouveau sujet pour poser ta question.
    • Editeur ●
    • Markdown