[XL-2007] interdire saisie doublon sur une colonne [Résolu]

[borisp]

Bonjour le forum,

J'essaye d'améliorer ce code afin d’empêcher la saisie de doublon ligne par ligne sur la première colonne seulement :

colonne D : Durand
colonne E : Dubois
Colonne F : Dubois

Je souhaite que ligne par ligne, un doublon avec la premiere colonne ne soit pas possible, mais sur les colonnes suivantes oui.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'Pas de doublons sur chaque ligne des colonne de D à G
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Count = 1 Then
    If Target.Value <> "" Then
        If Application.CountIf(Intersect(Target.EntireRow, Range("D:G")), Target.Value) > 1 Then
            Application.EnableEvents = False
            Application.Undo
            Application.EnableEvents = True
            MsgBox "Doublons effacé"
        End If
    End If
End If
End Sub

Merci beaucoup pour votre aide!!!

[jfontaine]

Bonjour,

Essais comme cela

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Count = 1 Then
 
    If Application.WorksheetFunction.CountIf(Columns(Target.Column), Target.Value) > 1 Then
        MsgBox "Doublon"
        Target.Select
        Target.Value = ""
    End If
 
End If
 
End Sub

[borisp]

Merci pour cette réponse rapide.

Mais ça ne marche pas

[jfontaine]

Et comme cela

Code :

If Application.WorksheetFunction.CountIf(Range("A:A"), Target.Value) >= 1 Then

[borisp]

La il me sort doublon dès que je rentre quelque chose dans ma colonne!

Merci encore!

En fait mon premier code marche très bien sauf qu'il me sort doublon des que j'ai un nom en double sur la ligne quelque soit la colonne

[jfontaine]

En effet, il ne faut pas que le code s'execute si saisie dans la colonne 1 (Voir si tu veux tester le doublons lors de la saisie dans cette colonne)

Code :

1
2
3
4
5
6
7
8
9
If Target.Count = 1 And Target.Column > 1 Then

    If Application.WorksheetFunction.CountIf(Range("A:A"), Target.Value) = 1 Then
        MsgBox "Doublon"
        Target.Select
        Target.Value = ""
    End If

End If

[borisp]

Pas de changement avec ca...

[jfontaine]

Je ne comprend pas ce que tu souhaites, peux tu dire clairement ou tu saisies et ou il faut vérifier la saisie

[borisp]

Ok, merci pour ta patience

Je choisis dans une liste le nom d'un formateur en colonne AB.
Sur la même ligne, je choisis à plusieurs reprises des testeurs (colonne AD, AF, AJ,etc...) qui peuvent être la même personne. Cependant, un formateur ne peut pas être à la fois formateur et testeur. Et donc, si un un formateur est choisi, si on sélectionne ensuite son nom pour être testeur, je souhaite qu'excel bloque et renvoi "déjà formateur". Et inversement (au cas ou on choisi le testeur avant le formateur).

J'espère que c'est plus clair, c'est pas toujours facile d'expliquer sur un forum! MErci beaucoup!

[jfontaine]

oui c'est plus clair. Il faut compter sur la même ligne

Code :

1
2
3
4
5
6
7
8
9
If Target.Count = 1 Then
 
    If Application.WorksheetFunction.CountIf(Range("A" & Target.Row & ":D" & Target.Row), Target.Value) > 1 Then
        MsgBox "Doublon"
        Target.Select
        Target.Value = ""
    End If
 
End If

[borisp]

Alors ça marche bien (c'est une alternative au code que j'ai mis dans mon premier post en fait) mais mon problème est toujours le même : je veux pouvoir choisir un testeur plusieurs fois, je souhaite que le doublon ne soit pas possible seulement sur la première colonne. Par exemple :

Colonne A : Durand
Colonne B : Dubois
Colonne C : Dubois
Colonne D : Durand --> Doublon

Merci

[jfontaine]

On va y arriver

On test uniquement si la colonne est après la colonne 1 (ici A)

Code :

1
2
3
4
5
6
7
8
9
If Target.Count = 1 And Target.Column > 1 Then
 
    If Target.Value = Range("A" & Target.Row).Value Then
        MsgBox "Doublon"
        Target.Select
        Target.Value = ""
    End If
 
End If

[borisp]

J'espère qu'on va y arriver , je m'en retourne à ton aide précieuse!

Avec ce code il reste bloqué sur le msgbox doublon des que je choisi un formateur alors même qu'il n'y a rien d'autre sur la ligne...

[jfontaine]

Affiches ton code, car pas ce problème chez moi

[mercatog]

Sans rapport avec "le constat" de borisp.
Pour ne pas bloquer le fichier dans le cas suivant:

Cellule A2 remplie avec XXX, Cellule B2 YYY
J'efface A2, puis j'efface B2-> Crash
Il faudrait ajouter une condition

Code :

If Target.Value<>""

Aussi la désactivation des événements est nécessaire

Code :

1
2
3
Application.EnableEvents = False
'Code qui change des cellules
Application.EnableEvents = True

[borisp]

Avec ce code, renvoi doublon des que je saisi dans la colonne AB, quelque soit le reste du contenu du reste de ma ligne:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
If Target.Count = 1 And Target.Column > 1 Then
 If Target.Value <> "" Then
    If Target.Value = Range("AB" & Target.Row).Value Then
    Application.EnableEvents = False
        MsgBox "Un collaborateur ne peut pas être formateur et testeur"
        Application.EnableEvents = True
        Target.Select
        Target.Value = ""
    End If
 End If
 
End If

Avec ce code, renvoi doublon et bloque sur le msgbox des que je saisi en colonne AB, quelque soit le contenu du reste de ma ligne :

Code :

1
2
3
4
5
6
7
8
9
If Target.Count = 1 And Target.Column > 1 Then
    If Target.Value = Range("AB" & Target.Row).Value Then
        MsgBox "Un collaborateur ne peut pas être formateur et testeur"
        Target.Select
        Target.Value = ""
    End If
 End If
 
End If

Merci à vous deux!

[jfontaine]

Code :

Target.Column > 1

Le correspond à la colonne de saisie du formateur. Dans ton cas, il faut écrire 28
ou

Code :

Target.Column > Range("AB:AB").Column

[borisp]

YES Merci mille fois, je débute en vba, je ne savais pas qu'il fallait mettre le numéro de ma colonne à la place de 1!

Ca marche bien, mais par contre excel ne relève pas de doublon si je saisi d'abord en colonne AD (choisi d'abord le testeur) et reviens en arrière en AB pour choisir le formateur. Si il y a un moyen je suis preneur, mais là c'est déjà top!