Je ne pense pas que la mise en page soit celle que vous souhaitez, mais cela peut suffire : Vous pouvez utiliser les Trace Dependents/Precedents.
Elle se trouve dans la barre d'outils de la formule, sous Formula Auditing (et au même endroit se trouve l'option permettant de supprimer les flèches).
![enter image description here]()
Plus de détails
Cependant, je n'aime pas ce qui précède. Maintenant, cela dépend vraiment de vos besoins, mais j'ai rapidement écrit ce VBa pour vous
Sub Button5_Click()
'PLEASE EDIT THIS FIRST BIT.
Dim row As Integer
row = 1 ' THE STARTING ROW IN YOUR EXCEL SHEET
Dim numberOfRows As Integer
numberOfRows = 5 'THE TOTAL NUMBER OF ROWS YOUR WORKSHEET HAS
Dim columnWithFormula As String
columnWithFormula = "E" ' THE COLUMN WHERE THE FORMULAs ARE (I suspect you are using B if your example is accurate))
Dim colourIndex As Integer
colourIndex = 26 ' WHAT COLOUR TO HIGHLIGHT COLUMNS. GOOGLE VBa COLOR INDEX
'AND STOP EDITING :)
For row = 1 To numberOfRows
If range(columnWithFormula & row).Value <> "" Then
Dim result As String
result = range(columnWithFormula & row).Formula
result = Replace(result, "(", " ")
result = Replace(result, ")", " ")
result = Replace(result, "-", " ")
result = Replace(result, "+", " ")
result = Replace(result, "*", " ")
result = Replace(result, "/", " ")
result = Replace(result, "=", " ")
result = Replace(result, ",", " ")
Dim cells() As String
cells = Split(Trim(result), " ")
For j = 0 To UBound(cells)
range(cells(j)).Interior.ColorIndex = colourIndex
Next j
End If
Next row
End Sub
Le résultat ci-dessus est le suivant (j'ai activé la formule pour que vous puissiez voir quelles cellules contiennent une formule).
La macro n'est pas parfaite, mais je ne connais pas vraiment vos besoins. Si vous avez (comme dans l'exemple de votre message) une formule simple, elle devrait fonctionner correctement.
Veuillez noter que la couleur de fond de la cellule sera modifiée et que l'annulation ne fonctionnera pas ! Donc, si vous utilisez déjà le surlignage, vous devrez mettre à jour le code ! Cela signifie également qu'après avoir exécuté cette macro, vous devrez sélectionner manuellement la feuille de travail et rétablir la couleur de fond de votre choix...
![enter image description here]()
Pour développer cela, vous pourriez mettre à jour le boucle for et le remplacer par
For Each Cell in ActiveSheet.UsedRange.Cells
'logic
Next
de vérifier chaque cellule de la feuille de calcul pour voir s'il n'y a pas de formule...
