Lister les codes d'erreur excel et afficher l'aide en ligne associée

C

Celeda

Guest

• 28 Février 2004

• #2

Bonjour,

Mais dis moi mimi c'est super mimi ce que tu nous as concocté là!!!!!!!!!!

Si je ne m'abuse c'est orienté vba et système...........y a des préférences sur ce forum à ce que je vois........hi hi hi

c'est super gentil - merci Michel

et je t'envoie un gros

 

Vote positif 0 Vote négatif

E

Eric C

Guest

• 28 Février 2004

• #3

Bonsoir à tous & à toutes
Bonsoir Michel, Céléda

Autre variante, trouvée ailleurs mais bon ...

@ ++ Eric C

 

Pièces jointes

• ErreursVBA.zip

  7.8 KB · Affichages: 150

Vote positif 0 Vote négatif

E

Eric C

Guest

• 28 Février 2004

• #4

Re le Foreum
Re Michel

Il est vrai après étude, que ta version l'emporte haut la main en donnant la signification après le code d'erreur. Bravo --

@ ++ Eric C

 

Vote positif 0 Vote négatif

M

michel

Guest

• 29 Février 2004

• #5

bonjour Celeda , bonjour Eric

merci pour vos messages
…mais non il n'y a pas de preference sur le forum….

la preuve , la procedure ci-dessous ( à placer au niveau de la feuille ) , permet de détecter les erreurs eventuelles dans les cellules , lors des calculs de formules
#DIV/0!
#N/A
#NOM?
#NULL!
#NOMBRE!
#REF!
#VALEUR!


un message precise :
la cellule contenant l'erreur
le type d'erreur
des fleches d'audit permettent de visualiser les cellules source
à la fin de procedure , une boite de dialogue propose d'ouvrir l'aide en ligne décrivant les différents types d'erreur

Private Sub Worksheet_Calculate()
'testé sous XP
Dim Val As Range
Dim Resultat As String, Message As String

For Each Val In Sheets("Feuil1").UsedRange
If WorksheetFunction.IsErr(Val) = True Then
Val.ShowErrors
Select Case Val
Case CVErr(xlErrDiv0)
Resultat = "#DIV/0!"
Case CVErr(xlErrNA)
Resultat = "#N/A"
Case CVErr(xlErrName)
Resultat = "#NOM?"
Case CVErr(xlErrNull)
Resultat = "#NULL!"
Case CVErr(xlErrNum)
Resultat = "#NOMBRE!"
Case CVErr(xlErrRef)
Resultat = "#REF!"
Case CVErr(xlErrValue)
Resultat = "#VALEUR!"
End Select
MsgBox "Il y a une erreur de type " & Resultat & _
dans la formule de la cellule & Val.Address
End If
Next

Message = MsgBox("Voulez vous ouvir l'aide en ligne Excel ? ", _
vbYesNo, "Informations complementaires sur les types d'erreur")
If Message = vbYes Then Application.Help "XLMAIN10.chm", 60309 '( source l'excellent classeur "Fonctions 2000_XP.xls" de Ti )
adapter le nom du fichier et l' HelpcontextId selon la version d'excel
'If Message = vbYes Then Application.Help "XLMAIN09.chm", 60309 'pour Excel2000

End Sub


la procedure ci-dessous permet ensuite d'enlever les fleches d'audit ( à placer dans un module )

Sub EffacerFlechesAudit()
Worksheets("feuil1").ClearArrows
End Sub


bon dimanche
michel

 

Vote positif 0 Vote négatif

M

michel

Guest

• 29 Février 2004

• #6

rebonjour

oouuppsss je me suis un peu précipité .... un petit oubli d'apostrophe ...désolé

Private Sub Worksheet_Calculate()
'testé sous XP
Dim Val As Range
Dim Resultat As String, Message As String

For Each Val In Sheets("Feuil1").UsedRange
If WorksheetFunction.IsErr(Val) = True Then
Val.ShowErrors
Select Case Val
Case CVErr(xlErrDiv0)
Resultat = "#DIV/0!"
Case CVErr(xlErrNA)
Resultat = "#N/A"
Case CVErr(xlErrName)
Resultat = "#NOM?"
Case CVErr(xlErrNull)
Resultat = "#NULL!"
Case CVErr(xlErrNum)
Resultat = "#NOMBRE!"
Case CVErr(xlErrRef)
Resultat = "#REF!"
Case CVErr(xlErrValue)
Resultat = "#VALEUR!"
End Select
MsgBox "Il y a une erreur de type " & Resultat & _
dans la formule de la cellule & Val.Address
End If
Next

Message = MsgBox("Voulez vous ouvir l'aide en ligne Excel ? ", _
vbYesNo, "Informations complementaires sur les types d'erreur")
If Message = vbYes Then Application.Help "XLMAIN10.chm", 60309 '( source classeur "Fonctions 2000_XP.xls" de Ti )
'adapter le nom du fichier et l' HelpcontextId selon la version d'excel
'If Message = vbYes Then Application.Help "XLMAIN09.chm", 60309 'pour Excel2000

End Sub


bon dimanche
michel

 

Vote positif 0 Vote négatif

M

michel

Guest

• 29 Février 2004

• #7

rebonjour

houlala ... Alzeimer me gagne....
j'espere que cette fois ci c'est la bonne version ....

Private Sub Worksheet_Calculate()
'testé sous XP
Dim Val As Range
Dim Resultat As String, Message As String

For Each Val In Sheets("Feuil1").UsedRange
If WorksheetFunction.IsErr(Val) = True Then
Val.ShowErrors
Select Case Val
Case CVErr(xlErrDiv0)
Resultat = "#DIV/0!"
Case CVErr(xlErrNA)
Resultat = "#N/A"
Case CVErr(xlErrName)
Resultat = "#NOM?"
Case CVErr(xlErrNull)
Resultat = "#NULL!"
Case CVErr(xlErrNum)
Resultat = "#NOMBRE!"
Case CVErr(xlErrRef)
Resultat = "#REF!"
Case CVErr(xlErrValue)
Resultat = "#VALEUR!"
End Select
MsgBox "Il y a une erreur de type " & Resultat & " dans la formule de la cellule " & Val.Address
End If
Next

Message = MsgBox("Voulez vous ouvir l'aide en ligne Excel ? ", vbYesNo, "Informations complementaires sur les types d'erreur")
If Message = vbYes Then Application.Help "XLMAIN10.chm", 60309 '( source classeur "Fonctions 2000_XP.xls" de Ti )
'adapter le nom du fichier et l' HelpcontextId selon la version d'excel
'If Message = vbYes Then Application.Help "XLMAIN09.chm", 60309 'pour Excel2000

End Sub


bon apres midi
michel

 

Vote positif 0 Vote négatif

C

Celeda

Guest

• 29 Février 2004

• #8

Bonjour,

Bon tu es sur de ton coup là ??!!!! mimi !!

Merci d'avoir eu une pensée pour les formulistes et de ces procédures.

alors encore un

 

Vote positif 0 Vote négatif