Mise a zero d'une feuille de donnees

[samkriss]

Bonjour,

J'ai une petite question.
Je souhaite remettre a zero toutes les données d'un classeur, sans toucher a la structure de mes tableaux.
Au moins vider les cellules dont la couleur de fond est blanc

Qui pourrait me donnee un petit coup de main?

D'avance merci

Samkriss

 

[porcinet82]

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 :

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

@+

 

[argon1515]

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

 

[samkriss]

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

 

[porcinet82]

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

@+

 

[samkriss]

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

@+

Merci mais j'avais trouvé :

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

Bonne journee