effacer des cellules après les avoir sélectionner par Inputbox

[natorp]

Bjr à tous et toutes

Merci de regarder le fichier joint où je souhaite sélectionner des cellules via un inputbox et les effacer....

Merci de votre attention, cordialement

Gérard

 

[job75]

Re : effacer des cellules après les avoir sélectionner par Inputbox

Bonjour natorp,

Pas vu l'UserForm ni l'InputBox...

A+

 

[natorp]

Re : effacer des cellules après les avoir sélectionner par Inputbox

Merci Job75...
Je pense que cela vient de mon réseau d'entreprise qui bloque le code....

J'ai passé une bonne partie de temps à chercher sur le forum et j'ai fini par trouver et j'en fais profiter le forum...

je vous mets le code du bouton valider :
Private Sub OK_Click()
Dim Plg As Range


If OptionButton1 = True Then
Set Plg = Application.InputBox("Sélectionnez une plage !", "Effacement de la sélection", type:=8)
Plg.ClearContents
Else
UserForm3.Show

End If
Unload UserForm5

End Sub

Bonne continuation..... et encore merci pour toute l'aide que vous apportez
Gérard