Discussion :

[jacqtiti]

Bonjour à tous,

Voilà un moment que je cherche pour trouver une fonction permettant d'afficher un message d'alerte si deux valeurs prédéfinies sont présente dans une colonne en cours de saisie

Ex : si "boubou" et "blabla" existent dans la colonne C alors j'affiche un MsgBox.

D'avance Merci pour le coup de pouce

[jfontaine]

Bonjour,

Ci dessous une solution

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Application.WorksheetFunction.CountIf(Range("C:C"), "boubou") + Application.WorksheetFunction.CountIf(Range("C:C"), "blabla") = 2 Then
    MsgBox "trouvé"
End If
 
End Sub

[jacqtiti]

Bonjour jfontaine

Merci pour cette solution qui répond à mon besoin.

En complément, comment étendre cette fonction à beaucoup plus de données ?

Encore merci pour ton aide.

Cordialement

[jfontaine]

ou serait stocké la liste des mots ?

Quelle est la finalité ?

[jacqtiti]

Désolé pour le manque de clarté.

En fait les mots peuvent être entré sur une autre feuille par exemple.

La finalité est la suivante :
l'utilisateur est chargé de planifier la fabrication de plusieurs produits et nous souhaitons lui apporter une aide pour éviter de planifier au même moment des produits similaires pour éviter les erreurs de mélanges. (MsgBox)

Produit1 similaire à produit2
Produit3 similaire à produit4, produit 5
Etc..

Encore merci pour ton aide.

Thierry

[BlueMonkey]

Bonjour,

Il est possible également de compter le nombre d'apparition d'une valeur dans une plage.
La formule ci-dessous compte le nombre de fois que la valeur de la cellule courante (en COL A) apparaît parmis les valeurs qui la précèdent dans la colonne A

à coller en B1, puis copier vers le bas.

Code :

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

=NB.SI($A$1:A1;A1)

Plutôt qu'un popup (très agaçant, surtout s'il n'est pas pertinent), pourquoi ne pas utiliser la mise en forme conditionnelle ?

Exemple d'utilisation : Post #9 de ce sujet