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

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

Bonjour natorp,

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

A+

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