Sélection et mise en forme de toutes les formules du classeur avec Excel VBA

Lorsque vous travaillez avec un classeur Excel, il est important de disposer d’informations sur tous les formulaires présents dans chaque feuille. Cela signifie que vous devez tous les rechercher et cela peut être une tâche fastidieuse. Heureusement, vous pouvez utiliser une solution plus intelligente pour rechercher et marquer toutes les formules de la feuille de calcul. La macro décrite ci-dessous utilise cette fonctionnalité pour rechercher automatiquement et dynamiquement toutes les cellules contenant des formules.


Comment ca marche?
Dans Excel, il existe des “cellules spéciales”, qui peuvent être sélectionnées à l’aide de la boîte de dialogue Atteindre spéciale. Pour y accéder, accédez à la barre d’outils principale dans la section Outils, cliquez sur Rechercher et sélectionner, puis sur Atteindre – en particulier. La boîte de dialogue Atteindre special s’ouvre, dans laquelle vous pouvez sélectionner des cellules spécifiques en fonction d’un ensemble de plusieurs critères. L’un de ces critères sont les formules. Après avoir cliqué sur le champ, toutes les cellules contenant de telles entrées seront marquées.
La macro décrite ci-dessous fait la même chose, uniquement pour le classeur entier. Le code utilise la méthode SpecialCells de la collection Cells. La méthode SpecialCells nécessite la saisie du paramètre approprié pour le type de “cellules spéciales”. Dans ce cas, le paramètre xlCellTypeFormulas est utilisé.
En bref: nous nous référons à une portée spéciale, qui consiste uniquement en cellules contenant des formules. La référence à cette plage spéciale sera effectuée avec l’instruction With … End With. Il s’agit d’informations pour Excel selon lesquelles chaque action effectuée s’applique uniquement à l’étendue indiquée. Dans l’exemple décrit, les cellules de la plage donnée seront remplies de couleur.

Sub SelectionMiseEnFormat ()
'Étape 1: Déclarez la variable
Dim ws As Worksheet
'Étape 2: Gestion des erreurs lorsque les cellules de formule ne sont pas trouvées
On Error Resume Next
'Étape 3: Commencez la boucle pour toutes les feuilles
For Each ws In ActiveWorkbook.Worksheets
'Étape 4: Sélectionnez les cellules et remplissez de couleur
With ws.Cells.SpecialCells(xlCellTypeFormulas)
.Interior.ColorIndex = 36
End With
'Étape 5: Passer à la feuille suivante
Next ws
End Sub

1. À la première étape, une variable nommée ws est déclarée afin de créer un conteneur en mémoire pour chaque feuille traitée par la boucle.
2. S’il n’y a pas de formules sur la feuille, Excel renverra l’erreur. Pour éviter cela, la macro contient des instructions selon lesquelles, en cas d’erreur, l’opération serait poursuivie.
3. À l’étape trois, l’action commence une boucle qui demande à Excel d’analyser toutes les feuilles du classeur actif.
4. À cette étape, la macro sélectionne toutes les cellules contenant les formules et les formate.
5. A la cinquième étape, la boucle commence à partir de la feuille suivante. Après avoir analysé toutes les feuilles du classeur de macros, le travail est terminé.
Comment

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x