Suppression contenu cellules feuilles differentes

Bonjour,

Je souhaiterais en cliquant sur le bouton vider les cellules avoir le choix entre les cellules de la feuille 1 ou 2 voir 3.

voici le code de ma première feuille

Sub Efface()
If MsgBox("Souhaitez vous supprimer les données ?", vbYesNo, "Demande de confirmation") = vbYes Then
Sheets("feuille1").Select
Range("A6:A20, d6:D20, g6:G20,b6:b20,e6:e20,h6:h20").ClearContents
End If
End Sub

Merci d'avance pour votre aide

Bonjour

Essai avec ça :

Sub Efface()
    rep = InputBox("Indiquer le n° de la feuille concernée :", "Choisir une feuille")
    If rep = "" Then Exit Sub
    If MsgBox("Souhaitez vous supprimer les données ?", vbYesNo, "Demande de confirmation") = vbYes Then
        On Error Resume Next
        Sheets("Feuil" & rep).Select
        If Err.Number > 0 Then
            MsgBox "La ''Feuil''" & rep & " n'existe pas.", 16
            Exit Sub
        End If
        Range("A6:A20,D6:D20,G6:G20,B6:B20,E6:E20,H6:H20").Select 'ClearContents
    End If
End Sub

Bye !

Bonjour,

J'ai essayé mais ça ne fonctionne pas.

Cordialement

Bonsoir le fil,

@NJA31, le message est assez explicite

Sub Efface()
  Dim Rep as string
...

A+

Bonjour Bruno M,

Merci pour ton retour, effectivement ce n’étais pas grand chose.

Le déclenchement de la macro fonctionne, par contre quand j'entre le numéro de la feuille il me dit que la feuille sélectionnée n'existe pas.

Cordialement

Re,

Comment sont nommées exactement vos feuilles ?

Bonjour,

Comme ceci

Re,

Alors dans votre code, pourquoi demander le n° de la feuille concernée

Sheets(Rep).Select

A+

Re,

je sais qu'il ne faut pas prendre au premier degré ce que vous dites, mais je ne comprend rien à vos messages.

ce n'est pas mon code c'est le code que m'a gentiment proposé gmb.

Je ne suis pas doué en VBA, j'ai d'autres qualités mais pas celle là.

Alors si vous pouvez m'aider tant mieux , sinon tant pis.

Cordialement.

Bonjour à tous

Nouvelle version

Et si ça ne va toujours pas, il serait préférable que tu joignes ton fichier;

Bye !

Bonjour Gmb,

Ci joint mon fichier.

Merci

En retour

Bye !

Bonsoir gmb,

C'est parfait merci beaucoup , merci à toi BrunoM45 de ta participation.

gmb tu peux m'expliquer parceque du coup je vois ça comme code

Sub Efface()
UserForm1.Show
End Sub

Ou se trouve le code ?

désolé je suis novice mais j'essaie de comprendre.

Cordialement

Super merci.

Cordialement