Discussion :

[pam-pg]

Pour éviter la saisie de doublon colonne 4 du tableau j'ai créé le code suivant, mais cette macro est très longue à s'éxécuter. SVP , Avez-vous un truc plus efficace?

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
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
 
Dim nbligne As Integer
Dim compteur As Integer
Dim ligne As Integer
Dim rangée As Integer
 
 
 
If ActiveCell.Column = 4 Then
 
nbligne = 2
Do While ActiveSheet.Cells(nbligne, 4) <> ""
nbligne = nbligne + 1
Loop
nbligne = nbligne - 1
 
compteur = 0
For ligne = 2 To nbligne
For rangée = 2 To nbligne
If ActiveSheet.Cells(ligne, 4).Value = ActiveSheet.Cells(rangée, 4) And ligne <> rangée Then
compteur = compteur + 1
End If
Next rangée
Next ligne
End If
 
If compteur > 1 Then
MsgBox ("Existe doublon")
End If
 
End Sub

[Invité]

Bonjour

Avant d'aller plus loin, as-tu lu cet article de Silkyroad http://silkyroad.developpez.com/excel/doublons/ ?

[pam-pg]

Merci, j'ai utilisé la mise en forme conditionelle avec la formule un peu adaptée suivante pour ne pas tenir compte des cases vides
A+

Code :

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

=SI(NB.SI(D:D;D2)>1;SI(D2<>"";VRAI;FAUX);FAUX)