Adaptation du code

**pilounet54** · 11/03/2015, 11h19

bonjour je souhaite ceci mais que pour des lignes à partir de la ligne 3 mais qui irai de colonne A à E voici le code qui fonctionne pour colonnes "j’espère que c'est assez clair "

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
34
Option Explicite
 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim Colonne As Integer
    Dim Adresse As String
 
    'On sort si plus d'une cellule a été modifiée
    If Target.Count > 1 Then Exit Sub
    'On sort si la cellule modifiée est vide
    If Target.Value = "" Then Exit Sub
 
    'Définit la colonne à vérifier (1=Colonne A, 2=colonne B ...etc...)
    Colonne = 1
 
    'Vérifie si c'est la colonne cible a été modifiée
    If Target.Column = Colonne Then
 
        'Recherche si la nouvelle donnée existe déjà dans la colonne.
        Adresse = Columns(Colonne).Find(What:=Target.Value, After:=Target.Offset(1, 0), LookAt:=xlWhole, _
            SearchDirection:=xlNext).Address
 
        'Si l'adresse de cellule trouvée ne correspond pas à la cellule modifiée, cela
        'signifie qu'il y a un doublon dans la colonne.
        If Adresse <> Target.Address Then
 
            MsgBox "La donnée '" & Target & "' existe déjà dans la cellule " & Adresse
            'Suppression de la donnée
            Target.Value = ""
            Target.Select
 
        End If
    End If
 
End Sub

j'ai bien essayé j'ai fais

Code :

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

 ligne = rows

mais pour l'instant cela bug de partout

merci

**Aposto** · 11/03/2015, 12h20

Bonjour a tous,

pour commencer

Code :

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

Option Explicite

il n'y a pas de e

Code :

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

Option Explicit

ensuite il suffit de modifier la range sur laquelle tu appliques ton find:

Code :

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

1
2
Adresse = Range("A3:E" & ActiveSheet.UsedRange.Rows.Count).Find(What:=Target.Value, After:=Target.Offset(1, 0), LookAt:=xlWhole, _
            SearchDirection:=xlNext).Address

je pense que des petites sécuritées supplémentaires seraient les bienvenues:

Code :

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

Application.EnableEvents=True

au début de la sub et

Code :

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

Application.EnableEvents=false

à la fin de manière à ne pas rappeler la macro lorsque celle-ci modifie une valeur dans la feuille.

Et vérifier que le find à renvoyé quelque chose avant d'appliquer la méthode address, sinon cela va lever une erreur

si tu as d'autres questions

**pilounet54** · 11/03/2015, 15h30

pardon de mon ignorance mais cela ne fonctionne pas voici le code

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
34
35
36
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
''''''''''''''''''''''''''''''''''''''''''''''''''''''controle des doublons
Application.EnableEvents = False
 
    Dim ligne As Integer
 
    Dim Adresse As String
 
    'On sort si plus d'une cellule a été modifiée
    If Target.Count > 1 Then Exit Sub
    'On sort si la cellule modifiée est vide
    If Target.Value = "" Then Exit Sub
 
 
    'Vérifie si c'est la ligne cible a été modifiée
    If Target.Rows = ligne Then
 
        'Recherche si la nouvelle donnée existe déjà dans la ligne.
      Adresse = Range("A3:E" & ActiveSheet.UsedRange.Rows.Count).Find(What:=Target.Value, After:=Target.Offset(1, 0), LookAt:=xlWhole, _
            SearchDirection:=xlNext).Address
 
        'Si l'adresse de cellule trouvée ne correspond pas à la cellule modifiée, cela
        'signifie qu'il y a un doublon dans la ligne.
        If Adresse <> Target.Address Then
 
            MsgBox "La donnée '" & Target & "' existe déjà dans la cellule " & Adresse
            'Suppression de la donnée
            Target.Value = ""
            Target.Select
 
        End If
    End If
 Application.EnableEvents = True
End Sub

**Aposto** · 12/03/2015, 08h22

Bonjour à tous,

peut-tu me dire de quel genre de disfonctionement il s'agit:

Erreur qui bloque l'execution, dans ce cas clique sur débogage et donnes moi la ligne sur laquelle le programme s'est arreté (surlignée en jaune)
l'execution va jusqu'au bout mais le resultat n'est pas celui attendu. Dans ce cas il faudrait détailler le résultat obtenu

cela ne fonctionne pas n'est pas suffisamment précis