Recherche doublons dans des zones biens definies

[choupi_nette]

Bonjour le forum,
Je cherche un code VBA pour creer un test qui permettrait de savoir AVANT de lancer une macro si dans un groupe de 3 zones il y a une valeur qui apparait deux fois ou non
Ces 3 zones sont:
F14:K17
M14:R17
G22:R29

En gros si dans ces trois zones il y a une valeur/texte qui revient deux fois ca me cree une msgbox avec "error"

Sub cond()
'*********************************
'condition de continuation du code
'*********************************

Sheets("Sheet1").Select

If ??? Then
MsgBox ("ERROR")
GoTo FIN
Else: Application.Run "Macrosuite"
End If
FIN:
End Sub

Est ce que l'un(e) d'entre vous saurait coder la partie des 3 zones et le test ?
Merci

 

[Guest]

Re : Recherche doublons dans des zones biens definies

Bonjour,

voici un exemple à mettre dans le module de code de la feuille.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Not Intersect(Target, Range("F14:K17,M14:R17,G22:R29")) Is Nothing Then
    If Application.CountIf(Range("F14:K17"), Target) + Application.CountIf(Range("M14:R17"), Target) + Application.CountIf(Range("G22:R29"), Target) > 1 Then
     MsgBox "Aïe"
    End If
End If
End Sub

A+

 

[choupi_nette]

Re : Recherche doublons dans des zones biens definies

Re bonjour,

Merci Hasco mais on peut pas mettre ca en sub plutot qu'en private parce que je ne sais jamais comment lancer une private sub ??
Merci

 

[Efgé]

Re : Recherche doublons dans des zones biens definies

Bonjour choupi_nette, Bonjour Hasco : )__Comme j'avais préparé quelque chose par fonction... ...je le poste.__Cordialement

 

[choupi_nette]

Re : Recherche doublons dans des zones biens definies

Bonjour Efgé,
Je viens de me prendre la tete une petite heure car ta macro ne marchait pas chez moi...
maintenant je sais pourquoi
Si il y a dans mes tableaux deux cellules vides (ou plus !!) il me renvoit ca comme un doublon !!
Dans mon cas cellule vide = ignore !!
Possible de modifier ? rectifier ?
merci beaucoup

 

[Efgé]

Re : Recherche doublons dans des zones biens definies

Re__J'avais commencé avant l'arrivée de ton fichier exemple__Comme quoi...__Une version adaptée__Cordialement

 

[Guest]

Re : Recherche doublons dans des zones biens definies

Re,

Choupinette le code donné n'a pas besoin d'être lancé par tes soins, c'est un code évènementiel qui se lance tout seul si tu la mis dans le module de code de la feuille.

A+
Bonjour efgé

 

[choupi_nette]

Re : Recherche doublons dans des zones biens definies

Merci a vous deux...pour votre aide
merci a Efgé pour sa macro qui me convient
merci a Hasco parce que je mettais ma private dans un module !! desolée...

 

[Guest]

Re : Recherche doublons dans des zones biens definies

Re,

Faut bien lire les réponses!😀

A+