XL 2016 RESOLU : Réinitialisation de cel en fonction du contenu

MLIZIN

XLDnaute Junior
Bonjour,
Après des mois d'absence je reviens sur le forum pour un problème avec une macro, pour info je suis débutant dans ce domaine.
Dans un onglet j'ai un bouton de commande pour la macro suivante :

Sub Reset_Issues()
'Permet de réinitialiser les Issues pour un nouveau projet dans CD, BD, DD, PROC, Constr, Qualif'
If MsgBox("Are you shure to deleted value ?", vbYesNo, "Confirmation") = vbYes Then
Dim Cell As Range
' Déclaration du range pour la mise à zéro'
For Each Cell In Sheets("Creation and Choice Doc").Range("p9:p69,aj9:aj69,bd9:bd69,bx9;bx69,cr9:cr69,dl9:dl69")
' Si pas de formule dans la cellule = remise à zéro'
If Not Cell.HasFormula Then
Cell.ClearContents
End If
Next
End If
End Sub

En effet je dois remettre à zéro les cellules dans les plages mentionnées SAUF celles qui contiennent une formule. Ces plages se trouvent dans un autre onglet : " Création and Choice Doc". A priori cela fonctionne pour la 1ere plage (p9:p69) mais pas pour les autres ??? En réalité le fichier comprend de l'ordre de 5000 lignes.

Auriez-vous l'amabilité d m'aider sur ce coup.

Merci d'avance

Marc
 

Statistiques des forums

Discussions
311 725
Messages
2 081 944
Membres
101 849
dernier inscrit
florentMIG