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

Maxime59450 · 26 Décembre 2008

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 :

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 · 26 Décembre 2008

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 · 26 Décembre 2008

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

Bonjour Maxime,

essaye la propriété "ClearContents" :

Code:

Range("A1:A10").ClearContents

bonne fin d'après midi
@+

Edition : bonsoir Bruno

Maxime59450 · 26 Décembre 2008

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 :

Code:

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 · 26 Décembre 2008

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

re
tu peux raccourcir, de cette façon:

HTML:

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 · 26 Décembre 2008

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

Bonjour,
une fois complété cela donne

Code:

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

Pierrot93 · 26 Décembre 2008

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

Re, bonsoir d ryba

allez, pour le fun ...

Code:

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

bonne soirée
@+

CB60 · 26 Décembre 2008

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

re
C'est bien BEAU le FUN, merci Pierrot

Maxime59450 · 29 Décembre 2008

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

Merci beaucoup,

vous m'avez bien aidez !

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

Maxime59450

XLDnaute Nouveau

CB60

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Maxime59450

XLDnaute Nouveau

CB60

XLDnaute Barbatruc

d.ryba

XLDnaute Junior

Pierrot93

XLDnaute Barbatruc

CB60

XLDnaute Barbatruc

Maxime59450

XLDnaute Nouveau

Discussions similaires