Tester les cellules d'un Range
Bonjour à tous, forum bonjour,
Je cherche a tester chaque cellule d'un range sur plusieurs critères.
1-La cellule contient une formule
2-La valeur de la cellule n'est pas un nombre
3-La cellule n'est pas vide
4-La cellule ne contient pas d'erreur
5-La cellule n'a pas de couleur de fond
J'ai trouver le code ci dessous qui je pense correspondrai a mon besoin MAIS je ne suis sur de rien car la macro démarre puis plus rien je ne sais pas si elle
a bien fonctionné et vérifier si tous les critères sont corrects ou pas, mais aucune info ne s'affiche.
Donc je souhaiterai svp avoir d'afficher sous forme d'un petit compte rendu plus d'infos quand au déroulement de la macro.
Résultat souhaiter : Un petit compte rendu :
1-La cellule contient une formule = OK où Pas
2-La valeur de la cellule n'est pas un nombre = OK où Pas
3-La cellule n'est pas vide = OK où Pas
4-La cellule ne contient pas d'erreur = OK où Pas
5-La cellule n'a pas de couleur de fond = OK où Pas
Code:
1
2
3
4
5
6
7
8
| --- Pour Infos --- La colonne (E) contient une formule et La colonne (F) contient également une formule MAIS ce n'ai pas la même que la colonne (E)
Public Sub Test_Colonne()
Dim cell As Range
For Each cell In Range("E3:F100").SpecialCells(xlCellTypeFormulas, 2)
If Not cell = "" And cell.Interior.Pattern = xlNone Then cell.Interior.Color = RGB(192, 192, 192)
Next cell
End Sub |
Merci pour votre aide, bonne fin d'après midi a vous. :zoubi:
Cdlt VieuxRay
