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
Merci pour votre aide, bonne fin d'après midi a vous.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Cdlt VieuxRay
Partager