Discussion :

[Thomas88-67]

Bonjour à tous,

Je cherche à vérifier si les l'ensemble des valeurs présentes sur une plage de données bornée est présente dans une colonne de valeurs (base de données)

J'ai tenté ce code quine fonctionne pas et qui a mon avis est plus que bancale :

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
16
17
18
19
20
 
Private Sub Verification_Click()
 
Dim cells As Range
Dim cellsb As Range
 
For Each cells In Worksheets("extraction").Range("D2")
    For Each cellsb In Worksheets("BD").Range("A13:A200")
        If cells.Value = cellsb.Value Then
        TextBox1.Value = "présent"
        TextBox1.BackColor = &HC0C0C0
        Else
        TextBox1.Value = "Masse non reconnue"
        TextBox1.BackColor = &H80FF&
        End If
 
    Next cellsb
  Next cells
 
End Sub

Pourriez vous m'aider

En vous remerciant bien par avance,

[Thautheme]

Bonjour Thomas, bonjour le forum,

Ta première boucle ne contient qu'une seule cellule, D2. Est-ce normal ?

Code :

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

For Each cells In Worksheets("extraction").Range("D2")

[Thomas88-67]

Bonjour Thautheme,

Toutes mes excuses oui en effet la plage n'est pas complète voici le code avec la plage:

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
16
17
18
19
Private Sub Verification_Click()
 
Dim cells As Range
Dim cellsb As Range
 
For Each cells In Worksheets("extraction").Range("D2:M20")
    For Each cellsb In Worksheets("BD").Range("A13:A200")
        If cells.Value = cellsb.Value Then
        TextBox1.Value = "présent"
        TextBox1.BackColor = &HC0C0C0
        Else
        TextBox1.Value = "Masse non reconnue"
        TextBox1.BackColor = &H80FF&
        End If
 
    Next cellsb
  Next cells
 
End Sub

[unparia]

Bonjour
1) cells est un mot réservé de VBA. Utilise un autre mot que celui-là.
2) Utilise donc la méthode worksheetfunction.countif (rubrique WorksheetFunction.CountIf, méthode de ton aide interne VBA) en lieu et place de la boucle For Each cellsb
3) pas vraiment une bonne idée, que celle de modifier la propriété value d'une textbox au sein d'une boucle ... (à moins que, en cas de plusieurs occurences, tu aies une rapidité de vision exceptionnelle ...)

[Thomas88-67]

Bonjour Unparia,

Oui en effet cells n'était pas une bonne idée.

Concernant le point 3, mon but est surtout d'avoir un résultat de synthèse. Toutes les valeurs sont présentes dans la base ou non.

J'ai essayé plusieurs essais avec Function.countIf mais cela fonctionne pas je n'arrive pas a le construire... Peux tu m'aider ?

Merci d'avance,

[Thomas88-67]

Voici également le code modifié, mais cela me semble fonctionner uniquement pour la cellule M20 qui est la dernière de la plage...

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
16
17
18
19
20
21
 
Private Sub Verification_Click()
 
Dim cellsc As Range
Dim cellsb As Range
Set cellsb = Worksheets("BD").Range("A13:A200")
 
For Each cellsc In Worksheets("extraction").Range("D2:M20")
   If WorksheetFunction.CountIf(cellsb, cellsc) Then
 
        TextBox1.Value = "présent"
        TextBox1.BackColor = &HC0C0C0
        Else
        TextBox1.Value = "Masse non reconnue"
        TextBox1.BackColor = &H80FF&
        End If
 
 
  Next cellsc
 
End Sub

Comme me l'a dit unparia le problème et de la textbox dans le si ce qui laisse que le dernier résultat de la recherche non?

Auriez vous une solution ?