Beug sur code ClearContents

Bonjour

le code ci-dessous fonctionne à moitié

J'ai un beug sur la ligne

Merci pour votre aide

Worksheets("Journée1").Range("M29:M38").Select
    Selection.ClearContents

Private Sub CommandButton9_Click()
If MsgBox("Etes-vous certain de vouloir supprimer tous les noms?", vbYesNo, "Demande de confirmation") = vbYes Then

        MsgBox "Les résultats sont éffacés !"

    Range("B3:B12").Select
    Selection.ClearContents
    Range("F3:F12").Select
    Selection.ClearContents
    Range("J3:J12").Select
    Selection.ClearContents
    Range("N3:N12").Select
    Selection.ClearContents
    Range("B19:B28").Select
    Selection.ClearContents
    Range("F19:F28").Select
    Selection.ClearContents
    Range("J19:J28").Select
    Selection.ClearContents
    Range("N19:N28").Select
    Selection.ClearContents

    Worksheets("Journée1").Range("M29:M38").Select
    Selection.ClearContents

    End If
End Sub

Bonjour,

Vous ne pouvez pas sélectionner des cellules sur une feuille non active. Cependant écrivez simplement ceci.

Petit plus. vous pouvez simplement écrire (pour la feuille active)

Private Sub CommandButton9_Click()
If MsgBox("Etes-vous certain de vouloir supprimer tous les noms?", vbYesNo, "Demande de confirmation") = vbYes Then

        MsgBox "Les résultats sont éffacés !"

    Range("B3:B12,F3:F12,J3:J12,N3:N12,B19:B28,F19:F28,J19:J28,N19:N28").ClearContents
    Worksheets("Journée1").Range("M29:M38").ClearContents

    End If
End Sub

Bonjour

Merci pour ta solution elle fonctionne très bien

Crdlt