Astuces Excel
  1. Astuces Excel
  3. Trouver des formules incohérentes dans Excel via VBA
Intereting Posts
Calcul d'un taux moyen basé sur plusieurs colonnes Comment écrire une ligne entière dans Excel à partir d'un tableau – xlwt Erreur VBA: object requirejs – Fonctionne bien en 2007 mais pas en 2013 export excel avec python en utilisant xlwt et largeur de réglage Comment faire pour filterr automatiquement une colonne à l'aide de la valeur ComboBox comme critère dans Excel VBA Afficher le message «en cours» lors du téléchargement d'un file Excel Le SSRS peut-il utiliser Excel depuis la list de documents Sharepoint comme source de données? Copier des cellules colorées spécifiques sur une feuille de travail différente Date d'arrêt auto-format lors de l'export de DataGrid vers Excel dans C # Comment convertir des caractères spéciaux dans CSV lorsqu'ils sont ouverts avec Microsoft Excel La table pivotale se réfère toujours à la class de classur précédente appelée Info-bulle utilisant des hyperliens vides Comment convertir de System.Drawing.Color vers Excel.ColorFormat en C #? Modifier la couleur des commentaires C # gamme de sorting Excel interop, les cellules vierges vont au dernier et les cellules avec datatables augmentent Excel – comparez et déplacez datatables entre les feuilles

Trouver des formules incohérentes dans Excel via VBA

Excel détecte si une formule est incompatible avec une colonne calculée dans une table et les montre avec un petit sortingangle vert (qui indique «Cette cellule est incompatible avec la formule de la colonne»). Comment puis-je les find via VBA? J'ai trouvé ce code qui est censé faire le truc (à partir de http://www.ozgrid.com/forum/showthread.php?t=145306 ), mais cela ne fonctionne que lorsque la plage utilisée est une plage normale au lieu d'une table: 

Dim oneCell As Range For Each oneCell In ActiveSheet.UsedRange If oneCell.Errors(xlInconsistentFormula).Value Then oneCell.Interior.ColorIndex = 6 Else oneCell.Interior.ColorIndex = xlNone End If Next oneCell

Mais oneCell.Errors(xlInconsistentFormula).Value n'envoie que "False" pour qu'il ne fonctionne pas.

Est-ce que cela peut être réglé pour fonctionner dans une table au lieu d'une gamme normale?

Edit: xlInconsistentFormula ne fait rien si vous travaillez dans une table.

Cela marche: 

 Sub fhdjksjdfhs() Dim r As Range Dim rBig As Range Set rBig = ActiveSheet.UsedRange.Cells.SpecialCells(xlCellTypeFormulas) For Each r In rBig If r.Errors.Item(xlInconsistentFormula).Value = True Then r.Interior.ColorIndex = 6 Else r.Interior.ColorIndex = xlNone End If Next r End Sub Subfhdjksjdfhs () Sub fhdjksjdfhs() Dim r As Range Dim rBig As Range Set rBig = ActiveSheet.UsedRange.Cells.SpecialCells(xlCellTypeFormulas) For Each r In rBig If r.Errors.Item(xlInconsistentFormula).Value = True Then r.Interior.ColorIndex = 6 Else r.Interior.ColorIndex = xlNone End If Next r End Sub Dim r As Range Sub fhdjksjdfhs() Dim r As Range Dim rBig As Range Set rBig = ActiveSheet.UsedRange.Cells.SpecialCells(xlCellTypeFormulas) For Each r In rBig If r.Errors.Item(xlInconsistentFormula).Value = True Then r.Interior.ColorIndex = 6 Else r.Interior.ColorIndex = xlNone End If Next r End Sub Dim rBig As Range Sub fhdjksjdfhs() Dim r As Range Dim rBig As Range Set rBig = ActiveSheet.UsedRange.Cells.SpecialCells(xlCellTypeFormulas) For Each r In rBig If r.Errors.Item(xlInconsistentFormula).Value = True Then r.Interior.ColorIndex = 6 Else r.Interior.ColorIndex = xlNone End If Next r End Sub Définissez rBig = ActiveSheet.UsedRange.Cells.SpecialCells (xlCellTypeFormulas) Sub fhdjksjdfhs() Dim r As Range Dim rBig As Range Set rBig = ActiveSheet.UsedRange.Cells.SpecialCells(xlCellTypeFormulas) For Each r In rBig If r.Errors.Item(xlInconsistentFormula).Value = True Then r.Interior.ColorIndex = 6 Else r.Interior.ColorIndex = xlNone End If Next r End Sub Pour chaque r In rBig Sub fhdjksjdfhs() Dim r As Range Dim rBig As Range Set rBig = ActiveSheet.UsedRange.Cells.SpecialCells(xlCellTypeFormulas) For Each r In rBig If r.Errors.Item(xlInconsistentFormula).Value = True Then r.Interior.ColorIndex = 6 Else r.Interior.ColorIndex = xlNone End If Next r End Sub Si r.Errors.Item (xlInconsistentFormula) .Value = True Then Sub fhdjksjdfhs() Dim r As Range Dim rBig As Range Set rBig = ActiveSheet.UsedRange.Cells.SpecialCells(xlCellTypeFormulas) For Each r In rBig If r.Errors.Item(xlInconsistentFormula).Value = True Then r.Interior.ColorIndex = 6 Else r.Interior.ColorIndex = xlNone End If Next r End Sub r.Interior.ColorIndex = 6 Sub fhdjksjdfhs() Dim r As Range Dim rBig As Range Set rBig = ActiveSheet.UsedRange.Cells.SpecialCells(xlCellTypeFormulas) For Each r In rBig If r.Errors.Item(xlInconsistentFormula).Value = True Then r.Interior.ColorIndex = 6 Else r.Interior.ColorIndex = xlNone End If Next r End Sub r.Interior.ColorIndex = xlNone Sub fhdjksjdfhs() Dim r As Range Dim rBig As Range Set rBig = ActiveSheet.UsedRange.Cells.SpecialCells(xlCellTypeFormulas) For Each r In rBig If r.Errors.Item(xlInconsistentFormula).Value = True Then r.Interior.ColorIndex = 6 Else r.Interior.ColorIndex = xlNone End If Next r End Sub Next r Sub fhdjksjdfhs() Dim r As Range Dim rBig As Range Set rBig = ActiveSheet.UsedRange.Cells.SpecialCells(xlCellTypeFormulas) For Each r In rBig If r.Errors.Item(xlInconsistentFormula).Value = True Then r.Interior.ColorIndex = 6 Else r.Interior.ColorIndex = xlNone End If Next r End Sub

EDIT # 1:

Comme Kersijus l'indique correctement, la conversion d'une colonne ou d'un set de colonnes en Table supprime le niveau de vérification des erreurs qui soulève le drapeau vert. Ce code ne détectera pas les erreurs qui sont supprimées de cette façon.

Si vous avez une formule incompatible, vous devriez voir quelque chose comme ceci:

entrez la description de l'image ici

Si vous n'en avez rien, vous pourriez avoir des notifications désactivées (je pense que c'est possible).