Urgent test cellule

ERIC S

XLDnaute Barbatruc

• 20 Juillet 2006

• #2

Re : Urgent test cellule

Bonjour

essaie avec

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

correspond à : estvide(A1)

si formule résultat est faux

A+

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 20 Juillet 2006

• #3

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.

 

Vote positif 0 Vote négatif

A

annie

Guest

• 20 Juillet 2006

• #4

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

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 20 Juillet 2006

• #5

Re : Urgent test cellule

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

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 20 Juillet 2006

• #6

Re : Urgent test cellule

re

et

if isempty(c)=false then exit for

ou

if not c.formulas="" then exit for

 

Vote positif 0 Vote négatif

A

annie

Guest

• 20 Juillet 2006

• #7

Re : Urgent test cellule

Il me dit erreur compilation

variable non definie et il s'arrete sur formulas

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 20 Juillet 2006

• #8

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...

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 20 Juillet 2006

• #9

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

 

Vote positif 0 Vote négatif

A

annie

Guest

• 20 Juillet 2006

• #10

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

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 20 Juillet 2006

• #11

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

 

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 20 Juillet 2006

• #12

Re : Urgent test cellule

annie à dit:

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

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 21 Juillet 2006

• #13

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+

 

Vote positif 0 Vote négatif

A

annie

Guest

• 21 Juillet 2006

• #14

Re : Urgent test cellule

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

Encore merci

Annie

 

Vote positif 0 Vote négatif