masquer erreur #VALEUR avec macro VBA Fermé

Question

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

lermite222 · Answer

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+

charles · Answer

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

lermite222 · Answer

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

lermite222 · Answer

Bonjour,
Le plus simple, Dans les options du classeur décocher Afficher les zéros.
A+

Masquer erreur #VALEUR avec macro VBA

4 réponses

Discussions similaires