XL 2013 supprimer ma valeur #n/a et#div par 0(résolu)

da silva · 22 Janvier 2018

Bonjour,

apres quelque recherche et test je reste bloquer sur cette question comment en vba peut t'on supprimer sur un sheet bien défini tous les #n/a et#div par 0.

Merci d'avance =)!

Modeste geedee · 22 Janvier 2018

Bonsour®

da silva à dit:
Bonjour,

apres quelque recherche et test je reste bloquer sur cette question comment en vba peut t'on supprimer sur un sheet bien défini tous les #n/a et#div par 0.
Merci d'avance =)!

si les calculs sont fait sous VBA, les conditions de calculs devraient permettre l'interception et rectification.

s'agit-il de confort visuel ou bien pour faciliter les calculs ???
un exemple serait bienvenu

DoubleZero · 22 Janvier 2018

Bonjour, da silva, le Forum,

Après avoir sélectionné la colonne concernée :

Code:

Option Explicit
Sub Erreurs_supprimer()
    Selection.SpecialCells(xlCellTypeFormulas, 16).ClearContents
End Sub

A bientôt

P.S. : Bonjour, Modeste geedee

da silva · 22 Janvier 2018

Modeste geedee à dit:
Bonsour®

si les calculs sont fait sous VBA, les conditions de calculs devraient permettre l'interception et rectification.

s'agit-il de confort visuel ou bien pour faciliter les calculs ???
un exemple serait bienvenu

Alors s'était plus visuel car pour l'opération s'est ok

et merci double zero s'est niquel mais question peut ton l'échanger avec un 0?

Sub g2()
ActiveWorkbook.Worksheets("G2").Range("A2:AZ999999").Select
Selection.SpecialCells(xlCellTypeFormulas, 16).ClearContents
End Sub

Merci !!

DoubleZero · 22 Janvier 2018

Re-bonjour,

da silva à dit:
... peut ton l'échanger avec un 0?...

Comme ceci ?

Code:

Option Explicit
Sub Erreurs_supprimer()
    Selection.SpecialCells(xlCellTypeFormulas, 16) = 0
End Sub

A bientôt

da silva · 22 Janvier 2018

mmmmmmmerci beaucoup en une ligne tu ma sauver x)!!

DoubleZero · 22 Janvier 2018

Re-bonjour,

Cette version est "plus mieux bien"...

Code:

Option Explicit
Sub Erreurs_supprimer_v3()
    With Sheets("G2"): .Range("a:az").SpecialCells(xlCellTypeFormulas, 16) = 0: End With
End Sub

A bientôt

Staple1600 · 22 Janvier 2018

Bonsoir le fil, le forum

Pour les claviers en mal d'affection.
(C'est plus long, mais c'est pour leur bien)
F5
ALT+C
ALT+U
ALT+B
ALT+X
ALT+G
ENTER
SUPPR
0 (dans la barre de formule)
CTRL+SHIFT+ENTER

PS: Pour les souris en mal d'affection
F5, Y clique (5 fois), Y clique sur ENTER, Y clique dans la barre de formule et il finit comme les aficionados du clavier.

da silva · 23 Janvier 2018

Merci! pour la formule v3=) et pour la version v 4 sa ma coûte cher le rage quite keyboard et souris x)

XL 2013 supprimer ma valeur #n/a et#div par 0(résolu)

da silva

XLDnaute Junior

Modeste geedee

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

da silva

XLDnaute Junior

DoubleZero

XLDnaute Barbatruc

da silva

XLDnaute Junior

DoubleZero

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

da silva

XLDnaute Junior

Discussions similaires