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

[MLIZIN]

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😛69,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😛69) 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

 

[Lolote83]

Salut,
Un petit test chez moi et cela fonctionne.
Par contre une petite erreur sur la ligne du range

69,aj9:aj69,bd9:bd69,bx9;bx69,cr9:cr69,dl9:dl69")

mettre : à la place du ; entre bx9 et bx69
Cela vient peut être d'ici ???
@+ Lolote83

 

[MLIZIN]

Salut,
Un petit test chez moi et cela fonctionne.
Par contre une petite erreur sur la ligne du range

mettre : à la place du ; entre bx9 et bx69
Cela vient peut être d'ici ???
@+ Lolote83

 

[MLIZIN]

RESOLU : Suis-je bête ? A force de regarder on passe à côté des choses élémentaires. Merci bcp de ta promptitude.