Tester les cellules d'un Range

**eliot.raymond** · 20/12/2018, 11h09

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

--- 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)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
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 journée a vous.

Cdlt VieuxRay

**Tylert** · 20/12/2018, 11h19

Bonjour,

pas de piste sur les changements nécessaires, mais une aide pour voir ce qui se passe:
Tu affiches ta macro, tu te places sur la ligne For et tu places un point d'arrêt (clic tout a gauche sur la ligne avec ton For).
Ensuite tu places des espions sur les valeurs testées pour voir ce qu'il y a dedans et tu utilises la touche F8 pour debogguer en pas à pas.
Cela devrait déjà t'aider à cibler ce qui ne marche pas et bien voir ce que fait la macro.
²
Bonne chance.

**eliot.raymond** · 20/12/2018, 11h44

Salut Tylert,

Merci pour ta réponse,

J'ai suivi les conseils, mais ca ne me donne rien sinon que ca a l'air de fonctionner
ca défile quand j'appuie sur F8 mais rien ne s'affiche dans la fenètre d'exécution espion.

Merci pour ton aide

Cdlt Ray

**Tylert** · 20/12/2018, 11h47

Il faut que tu ajoutes un espion sur les variables ou fonctions de ton code
Tu sélectionnes une variable, puis clic droit et Ajouter un espion. tu verras les valeurs et tu pourras comprendre pourquoi les conditions de tests ne sont pas vérifiées.

**BENNASR** · 20/12/2018, 11h47

bonjour
une piste pour vérifier s'il y a formule / numérique / non vide / pas de fond ...manque l'erreur

à tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub tester()
Dim maFeuille As Worksheet
Dim cellule As Range
     Set maFeuille = ActiveSheet
        For Each cellule In maFeuille.Range("A2:A" & maFeuille.Range("A" & Rows.Count).End(xlUp).Row)
 
        If cellule.HasFormula Then Cells(cellule.Row, 2) = "OK"
        If IsNumeric(cellule) = True Then Cells(cellule.Row, 3) = "OK"
        If cellule <> "" Then Cells(cellule.Row, 4) = "OK"
        If cellule.Interior.ColorIndex = xlColorIndexNone Then Cells(cellule.Row, 6) = "OK"
        Next
End Sub

**BENNASR** · 20/12/2018, 11h52

et si on ajoute la gestion des erreur peut être ça sera comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub tester()
Dim maFeuille As Worksheet
Dim cellule As Range
     Set maFeuille = ActiveSheet
        For Each cellule In maFeuille.Range("A2:A" & maFeuille.Range("A" & Rows.Count).End(xlUp).Row)
        On Error Resume Next
        If cellule.HasFormula Then Cells(cellule.Row, 2) = "OK"
        If IsNumeric(cellule) = True Then Cells(cellule.Row, 3) = "OK"
        If cellule <> "" Then Cells(cellule.Row, 4) = "OK"
        If Not IsError(cellule) Then Cells(cellule.Row, 5) = "OK"
        If cellule.Interior.ColorIndex = xlColorIndexNone Then Cells(cellule.Row, 6) = "OK"
        Next
End Sub

**eliot.raymond** · 20/12/2018, 14h48

Salut Bennasr,

Merci pour ta réponse,

Ca m'a l'air de fonctionner mise a part que ca m'affiche du haut en bas de la colonne (E) sur fond rouge "OK" pas très esthétique.

Le range a tester est (E3:F100) .

Peut t'on afficher les résultats par Ex dans un Msgbox ou autre sur 5 lignes

1-La cellule contient une formule = OK où sinon "manque 3 formules" E12-E25-F121
2-La valeur de la cellule n'est pas un nombre = OK où Pas "idem"
3-La cellule n'est pas vide = OK où Pas "idem"
4-La cellule ne contient pas d'erreur = OK où Pas "idem"
5-La cellule n'a pas de couleur de fond = OK où "cellule en couleur" E17-F36

Merci pour ton aide, bonne après midi a toi.

Cdlt Ray

**BENNASR** · 20/12/2018, 15h00

bonsoir
testez ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub tester()
Dim maFeuille As Worksheet
Dim cellule As Range
     Set maFeuille = ActiveSheet
        For Each cellule In maFeuille.Range("E3:F100")
        On Error Resume Next
        If Not cellule.HasFormula Then MsgBox ("Attention il y a pas de formule dans la colonne  : " & cellule.Address)
        If IsNumeric(cellule) = False Then MsgBox ("Attention La cellule suivante n'est pas numérique  : " & cellule.Address)
        If cellule = "" Then MsgBox ("Attention La cellule suivante est vide   " & cellule.Address)
        If IsError(cellule) Then MsgBox ("Attention erreur de formule dans la cellule  :   " & cellule.Address)
        If cellule.Interior.ColorIndex <> xlColorIndexNone Then MsgBox ("Vérifiez le fond de la cellule  :   " & cellule.Address)
        Next
End Sub

**eliot.raymond** · 20/12/2018, 16h38

Re salut Bennasr,

Merci pour la modification, ça fonctionne bien.

Par contre petit soucis auquel je n'avais pas penser c'est que avec les MsgBoxs il faut cliquer a chaque fois, un peu fastidieux.

J'ai 5 colonnes de disponibles (I-J-K-L-M) serait t'il possible svp de transférer les données comme suit ci-dessous.

J'ai omis de dire a partir de la ligne 3 car ligne 1 et 2 réserver pour entêtes.

Bien entendu si cela ne t'embête pas, je te remercie.

Dans la colonne (I) >>> Attention il y a pas de formule dans la colonne
Dans la colonne (J) >>> Attention La cellule suivante n'est pas numérique
Dans la colonne (K) >>> Attention La cellule suivante est vide
Dans la colonne (L) >>> Attention erreur de formule dans la cellule
Dans la colonne (M) >>> Vérifiez le fond de la cellule

Bonne fin d'après midi.

Cdlt Ray

**BENNASR** · 20/12/2018, 16h43

post 6

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub tester()
Dim maFeuille As Worksheet
Dim cellule As Range
     Set maFeuille = ActiveSheet
        For Each cellule In maFeuille.Range("A3:A" & maFeuille.Range("A" & Rows.Count).End(xlUp).Row)
        On Error Resume Next
        If cellule.HasFormula Then Cells(cellule.Row, "I") = "OK"
        If IsNumeric(cellule) = True Then Cells(cellule.Row, "J") = "OK"
        If cellule <> "" Then Cells(cellule.Row, "K") = "OK"
        If Not IsError(cellule) Then Cells(cellule.Row, "L") = "OK"
        If cellule.Interior.ColorIndex = xlColorIndexNone Then Cells(cellule.Row, "M") = "OK"
        Next
End Sub

**unparia** · 20/12/2018, 18h38

Par contre petit soucis auquel je n'avais pas penser c'est que avec les MsgBoxs il faut cliquer a chaque fois, un peu fastidieux.

personne ne t'en avait fait la remarque ? En es-tu certain ?
Voyons donc --->>

Hier, 17h42 #2
Menhir

https://www.developpez.net/forums/d1...lules-d-range/

Il est aussi possible de faire ça avec un MsgBox mais le défaut, c'est qu'il faut valider à chaque ligne.

Voilà le résultat de l'ouverture de deux discussions sur le même sujet et ... l'abandon assez cavalier de la première.

**eliot.raymond** · 20/12/2018, 19h32

Salut Bennasr,

Merci beaucoup pour les modifications apporter au code.

J'ai adapter a mon programme en modifiant "Feuil1.Range("E3:F30" & Feuil1.Range("E" & Rows.Count)"

et j'ai décaler les colonnes en (K-L-M-N-O) ça s'affiche bien mais l'affichage descends jusqu'à bien au dela
du range fixer Range("E3:F30" & Feuil1.Range("E" , je n'ai pas trouver ce pourquoi ca ne s'arrête pas a l'endroit voulu. !!!

Merci pour ton aide, la bonne soirée a toi.

Cdlt Ray

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub Tester()
Dim Feuil1 As Worksheet
Dim cellule As Range
       Set Feuil1 = ActiveSheet
 
        For Each cellule In Feuil1.Range("E3:F30" & Feuil1.Range("E" & Rows.Count).End(xlUp).Row)
        On Error Resume Next
            If cellule.HasFormula Then Cells(cellule.Row, "K") = "ok"
            If IsNumeric(cellule) = True Then Cells(cellule.Row, "L") = "ok"
            If cellule <> "" Then Cells(cellule.Row, "M") = "ok"
            If Not IsError(cellule) Then Cells(cellule.Row, "N") = "ok"
            If cellule.Interior.ColorIndex = xlColorIndexNone Then Cells(cellule.Row, "O") = "ok"
        Next
End Sub

**eliot.raymond** · 20/12/2018, 19h40

Salut unparia

effectivement tu fouilles bien, j'ai complément zapper, désolé.

Envoyé par unparia

personne ne t'en avait fait la remarque ? En es-tu certain ?
Voyons donc --->>

https://www.developpez.net/forums/d1...lules-d-range/

Voilà le résultat de l'ouverture de deux discussions sur le même sujet et ... l'abandon assez cavalier de la première.

on m'a re-diriger sur un autre site "macros et vba excel" j'ai regarder et pas vu mon post, j'ai penser qu'il me fallait le refaire, c'est ce que j'ai fait

Bonnes fêtes a toi et si quelque chose te chagrine encore n'hésite pas a te faire plaisir.

Cdlt Ray

**BENNASR** · 20/12/2018, 20h04

Feuil1.range(e3:f30)
réponse courte pas je réponds de mon téléphone
Bonne fete

**unparia** · 20/12/2018, 21h07

et si quelque chose te chagrine encore n'hésite pas a te faire plaisir.

Puisque c'est toi qui m'y invites --->>
Le message de Menhir, dans ton doublon, était d'hier à 17 heures 42

j'ai regarder et pas vu mon post, j'ai penser qu'il me fallait le refaire, c'est ce que j'ai fait

Il se trouve que non seulement tu l'as vu, ce post, mais que tu y as ajouté deux réponses, l'une hier à 19 h 12 et l'autre aujourd'hui-même à 11 heures 40 (et donc ... après avoir ouvert la présente discussion !!!...) . Et le plus fort : dans ce dernier message, tu disais :

Merci je vais me debrouiller

et marquais le sujet en RESOLU.

Dans ta première discussion, en outre : mon message 5 aujourd'hui à 8 h. 45 (et donc tant avant la création de ton doublon que ta dernière réponse dans la première discussion) te donnait certaines indications. Elles n'ont provoqué aucune réaction de ta part, autre que marquer en RESOLU et créer un doublon.

Bonnes fêtes à toi également, donc, mais sans pipeau, s'il te plait.

**eliot.raymond** · 20/12/2018, 21h28

Mr est faché tant pis

mais sinon tu fais quoi parce que a part les critiques et fouiller a la moindre faute
en tout cas c'est pas celui d'aider les autres

dommage pour le site qui est tres enrichissant pour ceux qui veulent apprendre la programmation

faut dire qu'on avance pas vite avec et tes conseils MDR (mort de rire)

si je pouvais te virer du site je ferais avec plaisir

encore une chose que tu sembles ignorer on a tous appris a marcher, visiblement sauf toi alors comme disais

Mr pierre Desproges l'intelligeance c'est comme les parachutes quand on a pas on s'écrase

Aller sans rancune et arrète un peu de te meler des conversations des autres ce n'ai pas poli

bye bye bonnes fètes a toi

Cdlt Ray

**BENNASR** · 21/12/2018, 08h00

bonjour
remplacer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each cellule In Feuil1.Range("E3:F30" & Feuil1.Range("E" & Rows.Count).End(xlUp).Row)

Par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each cellule In Feuil1.Range("E3:F30")

Pour information si on cherche une plage de E3 jusqu'à la dernière ligne non vide de la colonne F (donc on sais pas que c'est 30 ou 500) dans ce cas on écrit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each cellule In Feuil1.Range("E3:F" & Feuil1.Range("E" & Rows.Count).End(xlUp).Row)

**eliot.raymond** · 21/12/2018, 08h04

Envoyé par BENNASR

Feuil1.range(e3:f30)
réponse courte pas je réponds de mon téléphone
Bonne fete

Salut Bennasr,

Merci pour ta réponse mais ce n'était pas urgent, merci tout de même.

Sinon j'ai essayer quelques autres modifications, mais toujours même résultat.
le programme teste bien les colonnes (E3 et F30) qui déroule bien et s'affiche bien dans les colonnes (K-L-M-N-O)

Mais quand on arrive a la ligne 30 hé bien ça continue, ça continu etc etc, voila je comprends pourquoi ???

Merci pour ton aide, bonne journée a toi.

Cdlt Ray

**eliot.raymond** · 21/12/2018, 08h22

Re Salut Bennasr,

Nos messages se sont croisser, merci pour ta réponse.

Du coup j'ai modifier la ligne For Each cellule In Feuil1.Range("E3:F30") selon tes conseils et la c'est bon ca fonctionne bien comme souhaiter.

Merci également pour les infos supplémentaires qui vont m'être bien utiles, c'est déjà noter dans ma bibliothèque VBA.

Encore grand merci pour ton aide, je n'aurai pas su faire sans ton aide.

Je clos le sujet

Je te souhaite d'avance un excellent W-end ainsi qu'une bonne journée.

Bien cordialement Raymond

**eliot.raymond** · 24/12/2018, 11h33

Forum bonjour,
Bonjour Bennasr,

L'exemple ci dessous me donne ce résultat "$F$12" qui s'affiche dans la colonne (K) de la Feuil1.
Mais je préfèrerai que les résultats s'affiche NON pas sur la Feuil1 MAIS directement dans une Listview1
ou j'y créerai 5 colonnes.

Donc, je souhaiterai svp savoir s'il est possible d'utiliser une Listview directement
plutôt que d'afficher sur la Feuil1 puis de transférer vers une Listview.

Donc, je n'ai pas trouver d'exemple sur le net pour ce faire et du coup je ne sais pas si c'est possible.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If cellule.HasFormula Then Cells(cellule.Row, "K") = cellule.Address

Merci pour l'aide déjà apporter, bonne journée et bonnes fêtes

Cdlt Ray

Tester les cellules d'un Range

Macros et VBA Excel

Discussions similaires

Partager

Partager