Masquer erreur #VALEUR avec macro VBA
charles
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,
Je cherche à modifier les formules de ma feuille excel ou de ma selection de cette manière :
Ex: Si C4= B2/A1 et je voudrai avoir dans C4 plutot quelque chose comme C4= SI(ERREUR(B2/A1), "NA" , B2/A1) à la place
de manière à masquer les erreurs mais tout en gardant la formule.
et je voudrai effectuer la modification automatiquement sur ma selection. Comment faire?
For each c in Selection
...
Merci beaucoup !!
Je cherche à modifier les formules de ma feuille excel ou de ma selection de cette manière :
Ex: Si C4= B2/A1 et je voudrai avoir dans C4 plutot quelque chose comme C4= SI(ERREUR(B2/A1), "NA" , B2/A1) à la place
de manière à masquer les erreurs mais tout en gardant la formule.
et je voudrai effectuer la modification automatiquement sur ma selection. Comment faire?
For each c in Selection
...
Merci beaucoup !!
Configuration: Windows XP Internet Explorer 6.0
4 réponses
-
.SpecialCells(xlCellTypeFormulas, xlErrors).Formula= .....???
Si une formule est en erreur (par exemple dans ton cas, division par zéro), ne marque pas l'erreur.
A+ -
bonjour
Tu peu faire une macro avec ceci ou l'incorporer dans ta macro
On Error Resume Next
With Range("A1:V40")
.SpecialCells(xlCellTypeFormulas, xlErrors).Value = 0
.SpecialCells(xlCellTypeConstants, xlErrors).Value = 0
End With
On Error GoTo 0
A+ -
salut
merci pour ce début de réponse
Ce bout de code permet de recupérer les cellules pour lesquelles il y a une erreur, mais comment changer la formule de chaque cellule récupéré pour remplacer chaque formule par SI(Erreur(formule,"NA",formule)?
.SpecialCells(xlCellTypeFormulas, xlErrors).Value = 0 permet de mettre les cellules à 0
.SpecialCells(xlCellTypeFormulas, xlErrors).Formula= .....??? -
Bonjour,
Le plus simple, Dans les options du classeur décocher Afficher les zéros.
A+
