Vérifier la présence d'une valeur dans une plage nommée

[komodoe]

Bonjour Mesdames, bonjour Messieurs !

Voici mon problème :

Dans un classeur1, j'ai une plage nommée "Source" (1 ligne x 10 colonnes) contenant une liste de valeurs.

Dans un classeur2, j'ai une colonne contenant des valeurs (colonne_Test) à comparer à ma Source.

Je voudrais supprimer chaque ligne du classeur2 qui ne contient pas dans la colonne_Test une des valeurs de la plage "Source" du classeur1...

Grâce à une boucle, je pensais compter le nombre d'occurrences de chaque valeur de la colonne_Test dans ma plage Source. Si le compte est différent de 1, alors suppression de la ligne.

C'est là où j'ai besoin de votre aide : comment compter le nombre d'occurrences d'une valeur dans une plage nommée ??? 😕

Je vous remercie d'avance pour toute aide que vous pourriez m'apporter ou toute idée alternative ! 😀

 

[tototiti2008]

Re : Vérifier la présence d'une valeur dans une plage nommée

Bonjour komodoe,

par exemple, en utilisant Application.WorksheetFunction.Countif(Plage, Valeur)
Plage doit renvoyer ta plage Source
Valeur la valeur à tester

Edit : Bonjour Gael 🙂, Bonjour Rolan_M

 

[Gael]

Re : Vérifier la présence d'une valeur dans une plage nommée

Bonjour Komodoe,

Essaye avec l'instruction VBA suivante:

Application.WorksheetFunction.CountIf()

@+

Gael

Salut Tototiti, encore un métro de retard mais toujours en phase...

 

[Roland_M]

Re : Vérifier la présence d'une valeur dans une plage nommée

bonjour

For Each Cell In Range("MaPlageNommée")
If Cell.Value = TaValeur Then MsgBox Cell.Address
Next

 

[komodoe]

Re : Vérifier la présence d'une valeur dans une plage nommée

Bonjour à tous !

Merci pour ces idées, je teste tout de suite et reviens vers vous.

Merci !!! 😀

 

[komodoe]

Re : Vérifier la présence d'une valeur dans une plage nommée

Je ne comprends pas tout...

J'ai essayé la chose suivante :

For j = 6 To Range("A65000").End(xlUp).Row
If Not Application.WorksheetFunction.CountIf(Source, cell(j, 2).Value) = 1 Then
Rows(j).Delete Shift:=xlUp
End If
Next j

Pour chaque cellule de la colonne B du classeur2 dont la valeur n'est pas présente 1 fois dans la plage Source (située dans un classeur1), on supprime la ligne...

Le problème est-il que la valeur à contrôler ne se trouve pas dans le même classeur que la plage de référence ? J'ai déclaré Source as Range... est-ce exact ???

Merci de votre aide !

 

[tototiti2008]

Re : Vérifier la présence d'une valeur dans une plage nommée

Re,

si la plage Source appartient au classeur1.xls, feuille Feuil1, essaye :

For j = 6 To Range("A65000").End(xlUp).Row
If Not Application.WorksheetFunction.CountIf(Workbooks("Classeur1.xls").worksheets("Feuil1").range("Source"), cell(j, 2).Value) = 1 Then
Rows(j).Delete Shift:=xlUp
End If
Next j

 

[komodoe]

Re : Vérifier la présence d'une valeur dans une plage nommée

Merci tototiti2008 !

J'ai tenté ta solution, effectivement, quelque chose se passe...

Mais du coup lorsqu'une ligne est supprimée, la ligne suivante est gardée, bonne valeur ou pas. En revanche, il me supprime (parfois) des lignes où la cellule contrôlée est vide, alors qu'une cellule vide est incluse dans ma plage Source contenant les valeurs autorisées... Je craaaaque !

 

[tototiti2008]

Re : Vérifier la présence d'une valeur dans une plage nommée

Re,

oui, en effet, il vaut mieux aller du bas vers le haut :

For j = Range("A65000").End(xlUp).Row to 6 Step -1

 

[komodoe]

Re : Vérifier la présence d'une valeur dans une plage nommée

😀😀😀😀

Ca fonctionne ! Je pense que j'aurais phosphoré des semaines avant d'y penser... Bravo.

Maintenant, un dernier tout petit problème : je veux garder les lignes pour lesquelles la cellule contrôlée est vide... or actuellement elles sont supprimées.

Aurais-tu une idée, Ô Maître de moi ? 😉

 

[tototiti2008]

Re : Vérifier la présence d'une valeur dans une plage nommée

Re, essaye :

If Application.WorksheetFunction.CountIf(Workbooks("Classeur1.xls").worksheets("Feuil1").range("Source"), cells(j, 2).Value) <> 1 and cells(j,2).value <> "" Then

 

[komodoe]

Re : Vérifier la présence d'une valeur dans une plage nommée

Ben oui, évidemment, dit comme ça...

Cher Tototiti2008, je n'ai qu'un mot à dire : MERCI. Tout fonctionne à merveille.

Grand (très, très grand) merci à tous pour votre aide et au plaisir de vous recroiser dans les méandres de cet excellent forum...

Bon week-end !