Discussion :

[starrlaz]

Bonjour,

Quelqu'un peut t'il m’aider à résoudre ce problème svp ?
je souhaite juste éviter les doublons en colonne E lorsque j’appuie sur "Save Entry"
Ça fait des jours que je sèche la dessus et toujours pas de solution en vue. c'est désespérant

Merci par avance de votre aide,
Classeur1.xlsm

[clementmarcotte]

Bonjour,

Presque personne n'ouvre les pièces jointes à la première question, et il y en a encore moins quand ce sont des fichiers de macros; et je suis du nombre.

Voir le filtre avancé avec extraction sans doublon.

[starrlaz]

Bonjour clementmarcotte,

Merci pour l'info.

j'ai bien sur regardé le filtre avancé mais je souhaiterais si possible un code en VBA pour faire cette surveillance.
voici mon code dessous et je ne comprends pas ce qui cloche dedans.

Merci encore,

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
Private Sub CommandButton38_Click()
Application.Sheets("VEHICULES").Activate
Dim DerLig As Long
    With Worksheets("VEHICULES")
        DerLig = .Range("E" & Rows.Count).End(xlUp).Row
        If Application.CountIf(.Range("E2:E" & DerLig), Me.TextBox1.Text) = 0 Then
            .Rows("2:2").Insert Shift:=x1Down, CopyOrigin:=x1FormatfromLeftOrAbove 'insère une ligne
    [C2] = TextBox18.Text
    [B2] = TextBox19.Text
    [E2] = TextBox20.Text
    [G2] = TextBox21.Text
    [L2] = TextBox23.Text
    [J2] = TextBox24.Text
    [K2] = TextBox25.Text
        Else
            MsgBox "Ce matricule est déjà inscrit dans la liste"
        End If
For Each Ctrl In Me.Controls
If TypeName(Ctrl) = "TextBox" Then Ctrl.Value = Empty
Next Ctrl
        End With
End Sub

[mfoxy]

Hello,

Vite fait sur mon smartphone, peut-être,surement quelques corrections à faire mais l idée doit y être

Bat

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
 
 
 Sub test()
 
Dim C As Range 
 
   Set C = Columns("E:E").Find(What= TextBox1.Text), LookIn:=xlValues, LookAt:=xlPart)   
 
   If C Is Nothing Then     
         With Worksheets("VEHICULES")
           DerLig = .Range("E" & Rows.Count).End(xlUp).Row
          .Rows("2:2").Insert Shift:=x1Down, CopyOrigin:=x1FormatfromLeftOrAbove
 
  [C2] = TextBox18.Text    
[B2] = TextBox19.Text
    [E2] = TextBox20.Text
    [G2] = TextBox21.Text 
   [L2] = TextBox23.Text 
   [J2] = TextBox24.Text
    [K2] = TextBox25.Text 
       Else        
    MsgBox "Ce matricule est déjà inscrit dans la liste"     
   End If
 
 
Set C = Nothing
 
For Each Ctrl In Me.Controls
If TypeName(Ctrl) = "TextBox" Then
 Ctrl.Value = EmptyNext Ctrl    
End If
 Next Ctrl
 
 
End Sub

[unparia]

Bonjour starrlaz
Ton code est assez étonnant.
Comme tu n'enregistres jamais en colonne E la valeur de la textbox1, cette dernière pourra être ajoutée autant de fois que l'on veut sans la moindre réaction.

[starrlaz]

Bonjour unparia,

En fait, on se sert de la ligne 2 pour rentrer les données et lorsqu'on valide, toute la ligne deux bascule vers la 3ème ligne et la ligne 2 reste vide pour noter de nouvelles informations. je souhaite en fait que la macro contrôle de la ligne 3 à plus avant l'enregistrement.
s'il y a un doublons dans la colonne E, que la macro le signe sans enregistrer. s'il n' y a pas de doublons, l'enregistrement peut se faire.

Sinon même si les données s'enregistrent les unes à la suite des autres, je veux dire d'abord ligne 2, ensuite ligne 3 etc... c'est aussi très bien.

quand tu dis

Ton code est assez étonnant.
Comme tu n'enregistres jamais en colonne E la valeur de la textbox1, cette dernière pourra être ajoutée autant de fois que l'on veut sans la moindre réaction.

je ne comprends pas en fait.

Merci,

[starrlaz]

Hello mfoxy,

Je te remercie de t'avoir penché sur mon problème c'est évidant quand on apprend.
je commence à avoir une lueur d'espoir.

il y a une erreur de syntaxe (voir la photo).

[mfoxy]

Sorry mais je suis aussi un débutant lol,
Erreur de syntaxe sur deux lignes de commande à corriger.
Je pense

Code :

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

1
2
3
4
 
  Set C = Columns("E:E").Find(What= TextBox1.Text,LookIn:=xlValues, LookAt:=xlPart)' modification des parenthèses 
Et 
Ctrl.Value = Empty ' supprimé next..