Bonjour à tous,
J'ai une feuille de calcul où figure des données de type "option de réservation hôtelière". Il y a une Macro qui a déjà fonctionné pour cela, mais là il semblerait qu'il y ait un souci (ça mouline sempiternellement). En faisant un PAS A PAS, la première ligne est surlignée en jaune.
Je joins un exemple de données fictives où, pour vous aider à comprendre visuellement, figurent en rouge les données verrouillées, et en noir les cellules déverrouillées (que je veux effacer, dans une plage "D6:NE8000"). Ainsi, en "Protégeant le document", le lancement de la Macro n'affectera pas les données qui doivent rester (les verrouillées) à l'issue de l'opération.
La Macro est :
Sub Effacement_des_Options()
Dim Cel As Range
Application.ScreenUpdating = False
On Error Resume Next
For Each Cel In Range("D6:NE8000")
Cel.ClearContents
Next Cel
End Sub
C'est sans doute très simple, mais je ne sais pas comment corriger.
Je suppose que c'est en faisant une copie que, le nom initial ayant été changé, ça perturbe l'ensemble.
Merci de votre aide.
J'ai une feuille de calcul où figure des données de type "option de réservation hôtelière". Il y a une Macro qui a déjà fonctionné pour cela, mais là il semblerait qu'il y ait un souci (ça mouline sempiternellement). En faisant un PAS A PAS, la première ligne est surlignée en jaune.
Je joins un exemple de données fictives où, pour vous aider à comprendre visuellement, figurent en rouge les données verrouillées, et en noir les cellules déverrouillées (que je veux effacer, dans une plage "D6:NE8000"). Ainsi, en "Protégeant le document", le lancement de la Macro n'affectera pas les données qui doivent rester (les verrouillées) à l'issue de l'opération.
La Macro est :
Sub Effacement_des_Options()
Dim Cel As Range
Application.ScreenUpdating = False
On Error Resume Next
For Each Cel In Range("D6:NE8000")
Cel.ClearContents
Next Cel
End Sub
C'est sans doute très simple, mais je ne sais pas comment corriger.
Je suppose que c'est en faisant une copie que, le nom initial ayant été changé, ça perturbe l'ensemble.
Merci de votre aide.