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.
Microsoft 365rechercher cellules avec indicateur erreur
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
Bonjour
Ce qui veut donc dire que tu cherches à déterminer la plage de toutes les cellules qui, à la fois, contiendraient une formule et dont le résultat de la formule serait une erreur.
C'est exactement ce que te permet l'utilisation de la méthode Range.Scpecialcells (rubrique Range.Specialcells, méthode) de ton aide interne VBA (1er paramètre = xlCellTypeFormulas et 2ème paramètre = xlErrors)
la solution qui me conviendrait le mieux serait celle avec le sommeprod,
mais elle ne semble pas marcher dans tous les cas, cf image : la même formule est en tete des 2 colonnes, mais la 1ere donne le bon resultat (5330), et la seconde devrait dire "1" (cellule incohérente avec formule de colonne )
question subsidiaire : comment comprendre la formule "=SOMMEPROD(1*ESTERREUR(B2:B5000))" ?
plage bizarre
•>rafi93
Et le message#2, on en parle ? 🙄
Donc VBA et touche F5 (ceci n'est qu'un test,par conséquent testé sur quelques cellules en erreur)
VB:
Sub Errare_Excelum_Est()
Dim vErr$, C As Range, NB_err&, x
For Each C In ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas, 16)
vErr = vErr & "," & C.Parent.Name & "| " & C.Address(0, 0)
Next
x = Split(vErr, ",")
NB_err = UBound(x)
Sheets(2).[A1].Resize(NB_err) = Application.Transpose(x)
End Sub
oui effectivement 😳
mais j'ai toujours un peu peur de me (re)plonger dans VBA...
je n'y vais que très rarement, et le ticket d'entrée est à chaque fois un peu cher
•>rafi93
Tu peux aussi déjà faire ce que suggérait le message#2
Appuie sur la Touche F5
Clique sur Cellules
Et coche ce que tu recherche
(ici Formules: Erreurs (x))
Il y a aussi l'outil Formules/Vérification des erreurs
(à utiliser si ta plage de cellules n'est pas trop conséquente)
Sub Marquer_Erreur()
On Error Resume Next
With ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas, 16)
.Interior.Color = 255
.Font.Bold = -1
.Font.Color = vbYellow
.Borders.Weight = 2
.Borders.Color = vbGreen
End With
End Sub
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD