Doublon client USF

john

XLDnaute Impliqué

• 19 Août 2013

• #2

Re : Doublon client USF

Bonjour,

Tu peux ajouter ceci dans ton code :
'===========================
' ici ton code existant
'===========================
If Trim(Me.TNom) = "" Then
Me.TNom.BackColor = vbRed
MsgBox "Veuilez renseigner au moins le nom de la société", vbInformation, "Attention"
Exit Sub
End If
Application.ScreenUpdating = False
With Sheets("Clients")
DerLigne = .Range("A" & Rows.Count).End(xlUp).Row + 1
'====================================
' Ajoutes ceci
'====================================
For Each nom_cli In Sheets("Clients").Range("A4:A" & DerLigne)
If nom_cli = TNom.Text Then
rep = MsgBox("Le client existe déjà, le remplacer ?", vbInformation + vbYesNo, "Information")
If rep = vbNoThen
Exit Sub
End If
End If
Next
'======================================
'Fin de l'ajout et ton code reprend ensuite ...
'======================================
For Each Ctrl In Me.Controls
If TypeName(Ctrl) = "TextBox" Then
If Val(Ctrl.Tag) > 0 Then
If Val(Ctrl.Tag) = 3 Then
.Cells(DerLigne, Val(Ctrl.Tag)) = Ctrl & " " & CVille
Else
.Cells(DerLigne, Val(Ctrl.Tag)) = Ctrl
End If

Pour ton deuxième soucis, tu ajoutes ceci dans l'userform initialise : TNom.SetFocus

Voilà 🙂

BàT.

John

 

Dernière édition: 19 Août 2013

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 19 Août 2013

• #3

Re : Doublon client USF

Bonjour John,

Merci pour ton code 🙂

Mais je bloque ici

For Each nom_cli In Sheets("Clients").Range("A4:A" & DerLigne)
Plus précisément sur nom_cli

Tu as une idée?

A+

 

Vote positif 0 Vote négatif

john

XLDnaute Impliqué

• 19 Août 2013

• #4

Re : Doublon client USF

Tu bloques où ??
N'oublies pas de faire un dim nom_cli au début !!!! sinon ça coince vu que tu as option explicit !!!! et pareil pour rep !!!

BàT.

John

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 19 Août 2013

• #5

Re : Doublon client USF

Re,

Regarde s'que j'ai fais :

Code:

Private Sub BAjouter_Click()
Dim Ctrl As Control
   Dim DerLigne As Long
   Dim rep
Dim nom_cli
If Trim(Me.TNom) = "" Then
Me.TNom.BackColor = vbRed
MsgBox "Veuilez renseigner au moins le nom de la société", vbInformation, "Attention"
Exit Sub
End If
Application.ScreenUpdating = False
With Sheets("Clients")
DerLigne = .Range("A" & Rows.Count).End(xlUp).Row + 1
For Each nom_cli In Sheets("Clients").Range("A4:A" & DerLigne)
 If nom_cli = TNom.Text Then
    rep = MsgBox("Le client existe déjà, le remplacer ?", vbInformation + vbYesNo, "Information")
   If rep = vbNoThen
   Exit Sub
 End If
 End If
 Next
For Each Ctrl In Me.Controls
If TypeName(Ctrl) = "TextBox" Then
If Val(Ctrl.Tag) > 0 Then
If Val(Ctrl.Tag) = 3 Then
   .Cells(DerLigne, Val(Ctrl.Tag)) = Ctrl & " " & CVille
Else
   .Cells(DerLigne, Val(Ctrl.Tag)) = Ctrl
End If
End If
End If
Next
Trier
   .Visible = xlSheetVisible
   .Copy
   .Visible = xlSheetVeryHidden
End With
With ActiveWorkbook
Application.DisplayAlerts = False
   .SaveAs Filename:=chemin & Fichier, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
   .Close
End With
Me.TNom.BackColor = vbWhite
Unload Me
End Sub

Et la je bloc sur

Code:

  If rep = vbNoThen

Pourtant j'ai avec le dim, comme tu m'as dit

A+

 

Vote positif 0 Vote négatif

john

XLDnaute Impliqué

• 19 Août 2013

• #6

Re : Doublon client USF

il faut un espace entre le vbNo et le Then !!! 🙂

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 19 Août 2013

• #7

Re : Doublon client USF

Merci 🙂

Je viens de tester, lorsque je dis oui, pour écraser, ça ne marche pas, il m'écrase pas le client existant

Désolé de te déranger encore

A+

 

Vote positif 0 Vote négatif

john

XLDnaute Impliqué

• 19 Août 2013

• #8

Re : Doublon client USF

Ah oui juste pensé à faire annuler en cas de doublon mais pas enregistrer si oui pour écrasement 🙁

Voilà ce que j'ai mis et ça marche :
For Each nom_cli In Sheets("Clients").Range("A4:A" & DerLigne)
If nom_cli = TNom.Text Then
rep = MsgBox("Le client existe déjà, le remplacer ?", vbInformation + vbYesNo, "Information")
If rep = vbNo Then
Exit Sub
Else
ligne = nom_cli.Row 'je récupére le n° de la ligne où se trouve le client déjà existant
Sheets("Clients").Cells(ligne, 2) = TAdresse
Sheets("Clients").Cells(ligne, 3) = TCodePostal & " " & CVille
Sheets("Clients").Cells(ligne, 4) = TNuméroTéléphone
Sheets("Clients").Cells(ligne, 5) = TEmail
Sheets("Clients").Visible = xlSheetVeryHidden
Unload Me
Exit Sub
End If
End If

BàT.

John
Next

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 19 Août 2013

• #9

Re : Doublon client USF

Merci,

Je rajoute un

Dim Ligne

Cliquez pour agrandir...

?

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 19 Août 2013

• #10

Re : Doublon client USF

Re,

Je viens d'essayer, malheureusement il me rajoute plus mais nouveau client ;(

A+

 

Vote positif 0 Vote négatif

john

XLDnaute Impliqué

• 19 Août 2013

• #11

Re : Doublon client USF

C'est bizarre ça car je viens de tester et ça fonctionne chez moi 🙁 !!!

Oui tu ajoutes un dim ligne 😉

BàT

John

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 19 Août 2013

• #12

Re : Doublon client USF

Re,

Tu peux m'envoyer ton fichier exemple stp

A+

 

Vote positif 0 Vote négatif

john

XLDnaute Impliqué

• 19 Août 2013

• #13

Re : Doublon client USF

Voilà le fichier ...

BàT.

John

 

Pièces jointes

• exemple.zip

  920.1 KB · Affichages: 39
• exemple.zip

  920.1 KB · Affichages: 70
• exemple.zip

  920.1 KB · Affichages: 73

Dernière édition: 19 Août 2013

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 19 Août 2013

• #14

Re : Doublon client USF

Merci John 🙂

Maintenant jarrive plus a modifier un client 🙁

 

Vote positif 0 Vote négatif

john

XLDnaute Impliqué

• 19 Août 2013

• #15

Re : Doublon client USF

Vraiment bizarre car j'ai rien touché dans ce usf et chez moi ça marche 🙂

 

Vote positif 0 Vote négatif