Range et SpecialsCells problème

[atlonia]

Range et SpecialsCells problème[Resolu]

Bonsoir a tous,

J'ai un soucis avec une méthode, Je veux effacer les données de la plage (R7:R42) sans effacer les formules et j'essaie avec la méthode suivante:

Range("R7:R41").SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents

Sachant que mes cellules sont fusionnées 2 à 2 (R7:R8,R9:R10,etc jusqu'aux cellules R41:R42) J'ai une erreur '1004': pas de cellules correspondantes...!

Serait-ce le fait des cellules fusionnées?

Si oui, existe t-il une solution pour contourner le problème?
Sinon, quelqu'un a-t-il une idée pour me sortir de l'embarras?

Mersi de votre aide!

 

[Cousinhub]

Re : Range et SpecialsCells problème

Bonsoir,
chez moi, avec ton code, et des nombres dans les cellules fusionnées, pas de problème....
les cellules qui contiennent un nombre sont effacées.....
Joins un fichier exemple qui ne fonctionne pas, pour voir....

 

[skoobi]

Re : Range et SpecialsCells problème

Bonsoir,

Serait-ce le fait des cellules fusionnées?

C'est fort probable, VBA n'aime pas trop les cellules fusionnées.
Fais un essai sans cellules fusionnées.

Edit: bonsoir bhbh 🙂

 

[Spitnolan08]

Re : Range et SpecialsCells problème

Bonsoir à tous,

Le problème ne vient pas des cellules fusionnées...
Mais de la qualification des cellules que tu veux effacer. Si elles contiennent des constantes : pas de pb, ça fonctionne
Si elles contiennenet des formules : ça plante car VBA ne trouve pas de constante dans tes cellules...

Cordialement

 

[atlonia]

Re : Range et SpecialsCells problème

Voilà bhbh et merci de ta reponse rapide

 

[Cousinhub]

Re : Range et SpecialsCells problème

Re-,
effectivement, il n'y a pas de constantes dans ta plage....
mais des formules!
Pourquoi vouloir les supprimer?

 

[atlonia]

Re : Range et SpecialsCells problème

Je veux quelles s'effacent comme le reste du tableau au changement de semaine que j'effectue à partir de la cellule "A5".

De manière à repartir avec une feuille de semaine vierge.

 

[Cousinhub]

Re : Range et SpecialsCells problème

Re-,
tu ne peux pas supprimer les formules, donc , il faut changer la formule en R7 :

=SI(Q7=0;0;SI(Q7>P7;TEXTE(Q7-P7;"hh:mm:ss");"-"&TEXTE(ABS(Q7-P7);"hh:mm:ss")))

 

[Spitnolan08]

Re : Range et SpecialsCells problème

Re,

Si tu veux avoir un tableau vierge il faut effacer les données source, pas le résultat...

Cordialement

 

[atlonia]

Re : Range et SpecialsCells problème

Merci à vous trois pour votre aide,

c'est bon bhbh, ta solution fonctionne bien...!

J'ai donc supprimé la ligne fautive de ma macro!

Merci encore pour votre aide précieuse!

A+