Mise a zero d'une feuille de donnees

porcinet82

XLDnaute Barbatruc

• 28 Novembre 2007

• #2

Re : Mise a zero d'une feuille de donnees

Salut,

Une petite macro qui fait ce que tu souhaite, il te reste seulement a mettre le nom de la feuille concernée, ainsi que la plage de cellule :

Code:

Sub test()
Dim cel As Range
For Each cel In Sheets("Feuil1").Range("A1:F50")
    If cel.Interior.ColorIndex = 2 Then cel.ClearContents
Next cel
End Sub

Une autre remarque, tu parles de cellules blanches. Si elles sont effectivement blanche alors pas de souis, par contre s'il s'agit de cellule qui n'ont pas de couleur de fond, alors remplace le 2 par xlNone

@+

 

Vote positif 0 Vote négatif

A

argon1515

XLDnaute Junior

• 28 Novembre 2007

• #3

Re : Mise a zero d'une feuille de donnees

Bonjour, tu peu essayer
Edition --> Atteindre --> Cellules
Tu peux cocher different choix, pour effacer que les données sans les formules ..

Bon courage

 

Vote positif 0 Vote négatif

S

samkriss

XLDnaute Nouveau

• 28 Novembre 2007

• #4

Re : Mise a zero d'une feuille de donnees

Un grand MERCI a tous les deux de m'avoir repondu.
La réponse de porcinet82 me convient totalement.

Autre petite question :
Dans cette meme Macro, je souhaite que la cellule C1 qui contient une date soit incrementé d'un an.
ex: C1 = 1/1/2007 il devienne 1/1/2008

Merci

 

Dernière édition: 28 Novembre 2007

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 28 Novembre 2007

• #5

Re : Mise a zero d'une feuille de donnees

re,

J'ai pas testé, mais je dirai tout simplement :
cells(1,3).value=cells(1,3).value + 365

@+

 

Vote positif 0 Vote négatif

S

samkriss

XLDnaute Nouveau

• 28 Novembre 2007

• #6

Re : Mise a zero d'une feuille de donnees

porcinet82 à dit:

re,

J'ai pas testé, mais je dirai tout simplement :
cells(1,3).value=cells(1,3).value + 365

@+

Cliquez pour agrandir...

Merci mais j'avais trouvé :

[C1].Value = [C1].Value + 366

Bonne journee

 

Vote positif 0 Vote négatif