Problème d'effacement de cellules dévérouillées [Résolu]

[deuche]

Dans cette macro la ligne selection.ClearContents ne fonctionne.
La feuille est protégé mais les cellules ne sont pas vérouillées !!

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub validationUser_Click()
 
    Dim ind As Integer
 
    Application.ScreenUpdating = False
    ind = 0
 
    Sheets("Donnée").Select 'Effacer les données de l'utilisateur précédent
    Range("E14:Q14").Select
    Selection.ClearContents
    Range("B45").Select  ' evite de voir la selection

[Daniel.C]

Bonjour,

Il est possible que l'option empêchant la sélection des cellules déverrouillées soit activée. Essaie de te passer du Select, inutile et même nuisible dans ce cas :

Code :

Range("E14:Q14").ClearContents

[deuche]

C'est bon merci !