Urgent test cellule

[annie]

Bonjour,

J'ai besoin aide pour :

Je voudrais faire une remise a zero dans un tableau de toutes les cellules blanches qui contiennent une valeur, pour cela c'est ok sauf que dans certaines cellule blanche j'ai aussi des formules donc il m'efface tout et j'aimerais mettre une condition si cellule = formule alors rien.

Merci pour votre réponse

Annie

 

[ERIC S]

Re : Urgent test cellule

Bonjour

essaie avec

if isempty(range("A1"))........

correspond à : estvide(A1)

si formule résultat est faux

A+

 

[flo2002]

Re : Urgent test cellule

Bonjour,

Lire la chartre.......

et peut etre les réponses iront plus vite.

cette macro qui m'a été donné sur ce forum permet de supprimer les formules.
Selection.SpecialCells(xlCellTypeFormulas, 23).ClearContents

C'est peut etre une base.
Bon courage.

 

[annie]

Re : Urgent test cellule

Je crois que je me suis mal expliquée car en faite je ne veux pas effacer si il y a une formule et le test if c.value= formulas ne fonctionne pas


Dim ws As Worksheet
Dim c As Range

For Each ws In Worksheets

For Each c In ws.UsedRange
If c.Value = formulas Then Exit For
If c.Interior.ColorIndex = -4142 Then
c.ClearContents
End If
Next c

 

[flo2002]

Re : Urgent test cellule

Il te dis quoi comme erreur?
Un probleme sur quel ligne?
La definition des variables?

 

[ERIC S]

Re : Urgent test cellule

re

et

if isempty(c)=false then exit for

ou

if not c.formulas="" then exit for

 

[annie]

Re : Urgent test cellule

Il me dit erreur compilation

variable non definie et il s'arrete sur formulas

 

[flo2002]

Re : Urgent test cellule

Je ne sais pas si c'est ca mais je mettrais:

Dim ws2 As Worksheet
Set ws1 = Sheets("xxx")

et peut etre definir le c aussi mais la je ne sais pas ce que tu veut...

 

[ERIC S]

Re : Urgent test cellule

re
j'ai essayé ce code qui a l'air de fonctionner (sur plage A1 A3)


Sub e()
Dim c As Range
Range("A1:A3").Select
For Each c In Selection
If c.Formula = "" Then Exit For
If c.Interior.ColorIndex = -4142 Then
c.ClearContents
End If
Next c
End Sub

 

[annie]

Re : Urgent test cellule

Donc pour faire plus clair je joins mon fichier

Donc je veux effecer les cellules blanches dans les tableaux uniquement de toutes les feuilles mais pas en dehors des tableaux car il y a des formules de comparaisons entre les differentes feuilles qui n'apparaissent qu'en cas d'erreur.

je ne pense pas que les réponses reçues correspondent à mes besoins

http://cjoint.com/?huqVvGfEVC

 

[ERIC S]

Re : Urgent test cellule

re

une piste peut-être

Sub e()
Dim c As Range
Range("A1:A6").Select
For Each c In Selection
If Not Left(c.Formula, 1) = "=" Then
If c.Interior.ColorIndex = -4142 Then c.ClearContents
End If
Next c
End Sub

left(c.formula,1) donne "=" si formule

 

[Gorfael]

Re : Urgent test cellule

Je crois que je me suis mal expliquée car en faite je ne veux pas effacer si il y a une formule et le test if c.value= formulas ne fonctionne pas


Dim ws As Worksheet
Dim c As Range

For Each ws In Worksheets

For Each c In ws.UsedRange
If c.Value = formulas Then Exit For
If c.Interior.ColorIndex = -4142 Then
c.ClearContents
End If
Next c

Salut
Je ne suis pas sûr de tout comprendre : Si tu rencontre une formule dans une cellule, tu sors de ta boucle, même si c'est la première cellule et tu changes de feuille ?

Si c'est ça, remplace
If c.Value = formulas Then Exit For
par
If c.HasFormula Then Exit For

si tu effaces tes cellules qui ont le color index correspondant et pas de formule, essaies :
For Each c In ws.UsedRange
If not(c.hasformula) and c.Interior.ColorIndex = -4142 Then
c.ClearContents
End If
Next c
A+

 

[ERIC S]

Re : Urgent test cellule

re

une autre piste

tu protèges tes cellules avec formules (en fait tu déverrouilles les cellules qui doivent être accessibles)

tu testes if c.locked=false et tu effaces

A+

 

[annie]

Re : Urgent test cellule

Merci de votre aide , je pars en vacances ce soir est satisfaite

Encore merci

Annie