effacement des valeurs ERREURS

Le
axel
Rebonjour,

la selection des erreurs par

Selection.SpecialCells(xlCellTypeFormulas, 16).Select
me pose un problème.

La macro me sélectionne des cellules sans erreurs (qui font
référence à d'autres cellules du classeur sans erreur non plus).

j'ai essayé de colorer les cellules en question pour voir
si elles contenaient réellement une erreur mais il n'en est
rien. Voilà comment j'ai fait:

Range("A1:H52").Select
Selection.SpecialCells(xlCellTypeFormulas, 16).Select
'Selection.FormulaR1C1 = "-"
With Selection.Interior
.ColorIndex = 16
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With

Comprennez vous cela ?

Bien cordialement.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #4741271
Bonsoir,

S'il s'agit sélectionner les cellules avec erreurs
Essaie comme cela
'---------
Sub jj()
On Error Resume Next
With Range("A1:H52").SpecialCells(xlCellTypeFormulas, 16).Interior
.ColorIndex = 16
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End Sub
'---------------------

--
Salutations
JJ


"axel" 46f61a2b$0$18276$
Rebonjour,

la selection des erreurs par

Selection.SpecialCells(xlCellTypeFormulas, 16).Select
me pose un problème.

La macro me sélectionne des cellules sans erreurs (qui font
référence à d'autres cellules du classeur sans erreur non plus).

j'ai essayé de colorer les cellules en question pour voir
si elles contenaient réellement une erreur mais il n'en est
rien. Voilà comment j'ai fait:

Range("A1:H52").Select
Selection.SpecialCells(xlCellTypeFormulas, 16).Select
'Selection.FormulaR1C1 = "-"
With Selection.Interior
.ColorIndex = 16
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With

Comprennez vous cela ?

Bien cordialement.




Jacky
Le #4741261
Ouppss !!
Il faut lire
S'il s'agit de peinturlurer les cellules avec erreurs.

--
Salutations
JJ


"Jacky" %23KNakah$
Bonsoir,

S'il s'agit sélectionner les cellules avec erreurs
Essaie comme cela
'---------
Sub jj()
On Error Resume Next
With Range("A1:H52").SpecialCells(xlCellTypeFormulas, 16).Interior
.ColorIndex = 16
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End Sub
'---------------------

--
Salutations
JJ


"axel" 46f61a2b$0$18276$
Rebonjour,

la selection des erreurs par

Selection.SpecialCells(xlCellTypeFormulas, 16).Select
me pose un problème.

La macro me sélectionne des cellules sans erreurs (qui font
référence à d'autres cellules du classeur sans erreur non plus).

j'ai essayé de colorer les cellules en question pour voir
si elles contenaient réellement une erreur mais il n'en est
rien. Voilà comment j'ai fait:

Range("A1:H52").Select
Selection.SpecialCells(xlCellTypeFormulas, 16).Select
'Selection.FormulaR1C1 = "-"
With Selection.Interior
.ColorIndex = 16
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With

Comprennez vous cela ?

Bien cordialement.








axel
Le #4741171
Salut JJ

merci pour ta réponse.
En fait, il s'agit bien de supprimer les valeurs d"erreures pour
améliorer la lisibilité.

Est-ce que je peux adapter ton code pour supprimer au lieu
de colorer ?

.... du genre remplacer :

.ColorIndex = 16
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic

par :
Selection.ClearContents

Bien à toi.


+++++++++++++++++++++++++++++++++++



"Jacky" %23XNBVrh$
Ouppss !!
Il faut lire
S'il s'agit de peinturlurer les cellules avec erreurs.

--
Salutations
JJ


"Jacky" %23KNakah$
Bonsoir,

S'il s'agit sélectionner les cellules avec erreurs
Essaie comme cela
'---------
Sub jj()
On Error Resume Next
With Range("A1:H52").SpecialCells(xlCellTypeFormulas, 16).Interior
.ColorIndex = 16
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End Sub
'---------------------

--
Salutations
JJ


"axel" 46f61a2b$0$18276$
Rebonjour,

la selection des erreurs par

Selection.SpecialCells(xlCellTypeFormulas, 16).Select
me pose un problème.

La macro me sélectionne des cellules sans erreurs (qui font
référence à d'autres cellules du classeur sans erreur non plus).

j'ai essayé de colorer les cellules en question pour voir
si elles contenaient réellement une erreur mais il n'en est
rien. Voilà comment j'ai fait:

Range("A1:H52").Select
Selection.SpecialCells(xlCellTypeFormulas, 16).Select
'Selection.FormulaR1C1 = "-"
With Selection.Interior
.ColorIndex = 16
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With

Comprennez vous cela ?

Bien cordialement.












Jacky
Le #4741161
Re...
En fait, il s'agit bien de supprimer les valeurs d"erreures pour
améliorer la lisibilité.
Pas sur que ce soit une bonne méthode, mais bon....


Est-ce que je peux adapter ton code pour supprimer au lieu
de colorer ?
'-----------

Sub jj()
On Error Resume Next
Range("A2:H52").SpecialCells(xlCellTypeFormulas, 16).ClearContents
End Sub
'------------
--
Salutations
JJ


"axel" 46f747e1$0$13491$

Salut JJ

merci pour ta réponse.
En fait, il s'agit bien de supprimer les valeurs d"erreures pour
améliorer la lisibilité.

Est-ce que je peux adapter ton code pour supprimer au lieu
de colorer ?

.... du genre remplacer :

.ColorIndex = 16
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic

par :
Selection.ClearContents

Bien à toi.


+++++++++++++++++++++++++++++++++++



"Jacky" %23XNBVrh$
Ouppss !!
Il faut lire
S'il s'agit de peinturlurer les cellules avec erreurs.

--
Salutations
JJ


"Jacky" %23KNakah$
Bonsoir,

S'il s'agit sélectionner les cellules avec erreurs
Essaie comme cela
'---------
Sub jj()
On Error Resume Next
With Range("A1:H52").SpecialCells(xlCellTypeFormulas, 16).Interior
.ColorIndex = 16
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End Sub
'---------------------

--
Salutations
JJ


"axel" 46f61a2b$0$18276$
Rebonjour,

la selection des erreurs par

Selection.SpecialCells(xlCellTypeFormulas, 16).Select
me pose un problème.

La macro me sélectionne des cellules sans erreurs (qui font
référence à d'autres cellules du classeur sans erreur non plus).

j'ai essayé de colorer les cellules en question pour voir
si elles contenaient réellement une erreur mais il n'en est
rien. Voilà comment j'ai fait:

Range("A1:H52").Select
Selection.SpecialCells(xlCellTypeFormulas, 16).Select
'Selection.FormulaR1C1 = "-"
With Selection.Interior
.ColorIndex = 16
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With

Comprennez vous cela ?

Bien cordialement.
















Jacky
Le #4741151
Re..
Attention!! toutefois, aucun retour en arrière possible si effacement par
code vba.

--
Salutations
JJ


"Jacky" uvTRRUn$
Re...
En fait, il s'agit bien de supprimer les valeurs d"erreures pour
améliorer la lisibilité.
Pas sur que ce soit une bonne méthode, mais bon....


Est-ce que je peux adapter ton code pour supprimer au lieu
de colorer ?
'-----------

Sub jj()
On Error Resume Next
Range("A2:H52").SpecialCells(xlCellTypeFormulas, 16).ClearContents
End Sub
'------------
--
Salutations
JJ


"axel" 46f747e1$0$13491$

Salut JJ

merci pour ta réponse.
En fait, il s'agit bien de supprimer les valeurs d"erreures pour
améliorer la lisibilité.

Est-ce que je peux adapter ton code pour supprimer au lieu
de colorer ?

.... du genre remplacer :

.ColorIndex = 16
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic

par :
Selection.ClearContents

Bien à toi.


+++++++++++++++++++++++++++++++++++



"Jacky" %23XNBVrh$
Ouppss !!
Il faut lire
S'il s'agit de peinturlurer les cellules avec erreurs.

--
Salutations
JJ


"Jacky" %23KNakah$
Bonsoir,

S'il s'agit sélectionner les cellules avec erreurs
Essaie comme cela
'---------
Sub jj()
On Error Resume Next
With Range("A1:H52").SpecialCells(xlCellTypeFormulas, 16).Interior
.ColorIndex = 16
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End Sub
'---------------------

--
Salutations
JJ


"axel" 46f61a2b$0$18276$
Rebonjour,

la selection des erreurs par

Selection.SpecialCells(xlCellTypeFormulas, 16).Select
me pose un problème.

La macro me sélectionne des cellules sans erreurs (qui font
référence à d'autres cellules du classeur sans erreur non plus).

j'ai essayé de colorer les cellules en question pour voir
si elles contenaient réellement une erreur mais il n'en est
rien. Voilà comment j'ai fait:

Range("A1:H52").Select
Selection.SpecialCells(xlCellTypeFormulas, 16).Select
'Selection.FormulaR1C1 = "-"
With Selection.Interior
.ColorIndex = 16
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With

Comprennez vous cela ?

Bien cordialement.




















Axel
Le #4701611
Re ,

pas grave, je garde les données originales
sur une autre feuille.

J'essaie ça ce soir et je te tiens au courant.

Mais qu'entends-tu par " pas sur que ce soit la
meilleure méthode ?

++


Re..
Attention!! toutefois, aucun retour en arrière possible si effacement par
code vba.



Jacky
Le #4701591
Re...
Je ne connais pas la finalité de ton fichier....mais
Supprimer des cellules dont la formule produit une erreur, c'est du 'jamais
vu' pour moi....
Je serais plutôt pour corriger les erreurs.

--
Salutations
JJ


"Axel" 46f80bc4$0$27775$


Re ,

pas grave, je garde les données originales
sur une autre feuille.

J'essaie ça ce soir et je te tiens au courant.

Mais qu'entends-tu par " pas sur que ce soit la
meilleure méthode ?

++


Re..
Attention!! toutefois, aucun retour en arrière possible si effacement par
code vba.





Axel
Le #4701561
Re,

en fait, s'il y a erreur , c'est que ma feuille de
travail ne trouve pas de données à traiter. Donc
c'est normal ! Elle renvoit #N/A a des fonctions comme
'DECALLER", INDEX ou autres. Parce que je lui demande de
chercher des valeurs qui n'existent pas toujours.

désolé de t'embêter encore mais je me retrouve
dans la même situation qu'au début : certaine valeurs "non erreurs"
disparaissent.

C'est à n'y rien comprendre.

Je suis dans une impasse.
Si tu as une seconde, peux tu stp jeter un oeil à mon code ?

Je t'en serai franchement reconnaissant.
Je vais encore me creuser la tete pour essayer de trouver
de mon côté.

Je te passe tout mon travail, tu comprendras mieux.
Ca va peut être te paraître barbare comme méthode mais
ça fait 1 mois que j'ai commencé le VB

http://cjoint.com/?jyvNz8AWmh



Bien à toi.

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Re...
Je ne connais pas la finalité de ton fichier....mais
Supprimer des cellules dont la formule produit une erreur, c'est du 'jamais
vu' pour moi....
Je serais plutôt pour corriger les erreurs.



isabelle
Le #4701521
bonjour Axel,

tu pourrais modifier les formules de cette façon :

=SI(ESTERREUR("TaFormuleOriginal");"ERREUR";"TaFormuleOriginal")

isabelle



Re,

en fait, s'il y a erreur , c'est que ma feuille de
travail ne trouve pas de données à traiter. Donc
c'est normal ! Elle renvoit #N/A a des fonctions comme
'DECALLER", INDEX ou autres. Parce que je lui demande de
chercher des valeurs qui n'existent pas toujours.

désolé de t'embêter encore mais je me retrouve
dans la même situation qu'au début : certaine valeurs "non erreurs"
disparaissent.

C'est à n'y rien comprendre.

Je suis dans une impasse.
Si tu as une seconde, peux tu stp jeter un oeil à mon code ?

Je t'en serai franchement reconnaissant.
Je vais encore me creuser la tete pour essayer de trouver
de mon côté.

Je te passe tout mon travail, tu comprendras mieux.
Ca va peut être te paraître barbare comme méthode mais
ça fait 1 mois que j'ai commencé le VB

http://cjoint.com/?jyvNz8AWmh



Bien à toi.

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Re...
Je ne connais pas la finalité de ton fichier....mais
Supprimer des cellules dont la formule produit une erreur, c'est du
'jamais vu' pour moi....
Je serais plutôt pour corriger les erreurs.





Axel
Le #4701501
Merci Isabelle de te pencher sur mon problème.

Cela signifie-t-il que je doive modifier manuellement 700
formules pour y inclure le test d'erreur ?

Moi (et mon perfectionnisme) me poussaient à trouver la raison
de mon souci à l'intérieur de mon code.

Enfin, s'il n'y a que cela comme solution, je m'y résignerai.

++



Re: effacement des valeurs ERREURS



bonjour Axel,

tu pourrais modifier les formules de cette façon :

=SI(ESTERREUR("TaFormuleOriginal");"ERREUR";"TaFormuleOriginal")

isabelle



Re,

en fait, s'il y a erreur , c'est que ma feuille de
travail ne trouve pas de données à traiter. Donc
c'est normal ! Elle renvoit #N/A a des fonctions comme
'DECALLER", INDEX ou autres. Parce que je lui demande de
chercher des valeurs qui n'existent pas toujours.

désolé de t'embêter encore mais je me retrouve
dans la même situation qu'au début : certaine valeurs "non erreurs"
disparaissent.

C'est à n'y rien comprendre.

Je suis dans une impasse.
Si tu as une seconde, peux tu stp jeter un oeil à mon code ?

Je t'en serai franchement reconnaissant.
Je vais encore me creuser la tete pour essayer de trouver
de mon côté.

Je te passe tout mon travail, tu comprendras mieux.
Ca va peut être te paraître barbare comme méthode mais
ça fait 1 mois que j'ai commencé le VB

http://cjoint.com/?jyvNz8AWmh



Bien à toi.

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Re...
Je ne connais pas la finalité de ton fichier....mais
Supprimer des cellules dont la formule produit une erreur, c'est du
'jamais vu' pour moi....
Je serais plutôt pour corriger les erreurs.







Publicité
Poster une réponse
Anonyme