Problème de contour de cellule lors de la remise à zéro

[Maxime59450]

Bonjour à tous,

Alors je vous contact car j'ai un soucis avec un fichier excel et je ne suis pas fort du tout sur ça.

Alors voila, j'ai un tableau de démarques pour un magasin dont je travail.
On ma demandé d'essayer de faire un bouton de remise à zéro et comme je ne mis connait pas j'ai choisi le plus simple ! j'ai utiliser ce code :

Range("Cell1:Cell10").Clear

Et j'ai écris plusieur fois cette ligne avec les cellules que je voulai effacé !

Ceci fonctionne bien ! car toute mes cellule s'éfface mais par contre j'ai un autre soucis c'est que les contour de mes cellule s'éfface aussi ! car moi j'ai choisi des contour assez épais ! et quand je clique sur mon bouton de remise à zéro il m'enléve mon contour de cellule aussi !!

Pouvez vous m'aidez à régler ce problème ??

Merci d'avance !!

PS : Si vous avez une méthode meilleur pour effacer mes cellules je suis preneur !

 

[CB60]

Re : Problème de contour de cellule lors de la remise à zéro

Bonjour
Peux tu mettre un petit fichier avec les cellules à effacer


Edit Bonsoir Pierrot

 

[Pierrot93]

Re : Problème de contour de cellule lors de la remise à zéro

Bonjour Maxime,

essaye la propriété "ClearContents" :

Range("A1:A10").ClearContents

bonne fin d'après midi
@+

Edition : bonsoir Bruno

 

[Maxime59450]

Re : Problème de contour de cellule lors de la remise à zéro

Alors la magnifique Pierrot !!

Déjà merci beaucoup pour vos réponse super rapide !!

ça fonctionne bien avec ClearContents !!

Pour CB60 voici le contenu avec les cases à effacer :

Range("C5:C9").ClearContents
Range("D5:D9").ClearContents
Range("E5:E9").ClearContents
Range("F5:F9").ClearContents
Range("C11:C15").ClearContents
Range("D11:D15").ClearContents
Range("E11:E15").ClearContents
Range("F11:F15").ClearContents
Range("C17:C21").ClearContents
Range("D17:D21").ClearContents
Range("E17:E21").ClearContents
Range("F17:F21").ClearContents
Range("C23:C27").ClearContents
Range("D23:D27").ClearContents
Range("E23:E27").ClearContents
Range("F23:F27").ClearContents
Range("C29:C33").ClearContents
Range("D29:D33").ClearContents
Range("E29:E33").ClearContents
Range("F29:F33").ClearContents
Range("C35:C39").ClearContents
Range("D35:D39").ClearContents
Range("E35:E39").ClearContents
Range("F35:F39").ClearContents
Range("C41:C45").ClearContents
Range("D41:D45").ClearContents
Range("E41:E45").ClearContents
Range("F41:F45").ClearContents
Range("C47:C51").ClearContents
Range("D47:D51").ClearContents
Range("E47:E51").ClearContents
Range("F47:F51").ClearContents

 

[CB60]

Re : Problème de contour de cellule lors de la remise à zéro

re
tu peux raccourcir, de cette façon:

Range("C5:f9,C11:f15,C17:f21,C23:f27").ClearContents

Je n'ai pas fais toutes tes lignes mais le principe est la

 

[d.ryba]

Re : Problème de contour de cellule lors de la remise à zéro

Bonjour,
une fois complété cela donne

Range("C5:f9,C11:f15,C17:f21,C23:f27,C29:F33,C35:F39,C41:F45,C47:F51").ClearContent

 

[Pierrot93]

Re : Problème de contour de cellule lors de la remise à zéro

Re, bonsoir d ryba

allez, pour le fun ...

Dim i As Integer
For i = 5 To 47 Step 6
    Range("C" & i & ":F" & i + 4).ClearContents
Next i

bonne soirée
@+

 

[CB60]

Re : Problème de contour de cellule lors de la remise à zéro

re
C'est bien BEAU le FUN, merci Pierrot

 

[Maxime59450]

Re : Problème de contour de cellule lors de la remise à zéro

Merci beaucoup,

vous m'avez bien aidez !