Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel effacement des valeurs ERREURS

effacement des valeurs ERREURS

20 réponses
Avatar
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.
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Jacky
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" a écrit dans le message de news:
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.




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

--
Salutations
JJ


"Jacky" a écrit dans le message de news:
%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" a écrit dans le message de news:
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.








Avatar
axel
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" a écrit dans le message de news:
%23XNBVrh$
Ouppss !!
Il faut lire
S'il s'agit de peinturlurer les cellules avec erreurs.

--
Salutations
JJ


"Jacky" a écrit dans le message de news:
%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" a écrit dans le message de news:
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.












Avatar
Jacky
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" a écrit dans le message de news:
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" a écrit dans le message de news:
%23XNBVrh$
Ouppss !!
Il faut lire
S'il s'agit de peinturlurer les cellules avec erreurs.

--
Salutations
JJ


"Jacky" a écrit dans le message de news:
%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" a écrit dans le message de news:
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.
















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

--
Salutations
JJ


"Jacky" a écrit dans le message de news:
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" a écrit dans le message de news:
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" a écrit dans le message de news:
%23XNBVrh$
Ouppss !!
Il faut lire
S'il s'agit de peinturlurer les cellules avec erreurs.

--
Salutations
JJ


"Jacky" a écrit dans le message de news:
%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" a écrit dans le message de news:
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.




















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



Avatar
Jacky
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" a écrit dans le message de news:
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.





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



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





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







1 2