Masquer erreur #VALEUR avec macro VBA
charles
-
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
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 !!
A voir également:
- Si erreur vba
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
- J'aime par erreur facebook notification - Forum Facebook
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
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+
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+
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= .....???
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= .....???
