Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Lister les codes d'erreur excel et afficher l'aide en ligne associée
au cas ou quelqu'un serait interessé par le sujet ,
vous trouverez ci joint un fichier qui liste les codes d'erreur Excel et leur description
Ensuite en doublecliquant sur les cellules , l'aide en ligne de chaque code s'affiche à l'écran
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
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
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
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.