Doublon

[Mitch]

Bonjour voila mon souci , je planifie des interventions chez des clients , j'ouvre un USF ( SAV ou Complement de commande) je saisi les données est ca s'insére sur ma feuille , mais je peut planifier plusieurs fois le même client , j'aurais voulu que chaque fois qu'il y a un doublon ca me rajoute un nombre a la fin
EXP : Dupont , Dupont1 , Dupont2 , etc
les noms ce trouve en colonne D4 feuille (suivi appro)
Merci

 

[Compte Supprimé 979]

Re : Doublon

Salut Mitch,

Chez moi j'ai un problème avec ton fichier
Quand je veux compiler ton VBAProject, cela m'indique
"Erreur de compilation : erreur automation"

Tu dois avoir un ActiveX qui fout la zone

A+

 

[Mitch]

Re : Doublon

Bonjour BrunoM45 voici un autre

 

[Compte Supprimé 979]

Re : Doublon

Re,

Désolé, mais même chose ... je ne pourrais donc pas t'aider 🙁

A+

 

[Mitch]

Re : Doublon

Bonjour , excuse moi j'ai reverifie ce doit être bon ce coup ci, j'avais alléger mon fichier au max

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[Compte Supprimé 979]

Re : Doublon

Mitch,

Tu n'as pas compris, ce n'est pas un problème de taille ...
C'est un problème de controle ActiveX

En l'occurrence ce sont tes controles de date 😕

Ca me fait planter Excel, dès que je veux l'enlever

Pb certainement du fait que je sois sous Seven 64Bits,
je vais essayer de mon poste en XP 😛

A+

 

[JCGL]

Re : Doublon

Bonjour à tous,
Salut Bruno,

Même souci que Bruno sous 7 64 bits.
Souci aussi avec la barre de navigation personnalisée.

A++
A + à tous

 

[Compte Supprimé 979]

Re : Doublon

Salut JC 😉

Mitch, ça fonctionne chez moi sur mon poste en XP ... donc attention à ce problème

Je n'ai pas pu tester, car je ne sais pas comment fonctionne ton USF ... y'a des bugs

Private Sub CommandButton4_Click()
  Dim d As Integer, NbNom As Long
  '   S'assure que suivi appro est active
  Sheets("suivi appro").Activate
  '   S'assure qu'un nom est renseigné
  If ComboBox1.Text = "" Then
    MsgBox "Vous devez renseigner un Nom."
    ComboBox1.SetFocus
    Exit Sub
  End If
  '   S'assure qu'une equipe est renseignée
  If ComboBox2.Text = "" Then
    MsgBox "Vous devez renseigner la Ville."
    ComboBox2.SetFocus
    Exit Sub
  End If
  '   S'assure qu'un motif est renseigné
  If TextBox1.Text = "" Then
    MsgBox "Vous devez renseigner le motif de l'intervention."
    TextBox1.SetFocus
    Exit Sub
  End If
  With Sheets("suivi appro")
    d = .Range("D65536").End(xlUp).Row + 1
    ' Enregistrer le nom avec un incrément si doublon
    NbNom = 0: NbNom = Application.WorksheetFunction.CountIf(.Range("D:D"), Me.ComboBox3.Value)
    ' Le premier nom étant sans indice, le deuxième commence à 1
    .Range("D" & d).Value = ComboBox3.Value & IIf(NbNom = 0, "", NbNom)
    .Range("D" & d).Value = ComboBox1.Value
    .Range("F" & d).Value = ComboBox2.Value
    .Range("H" & d).Value = TextBox18.Value
    .Range("J" & d).Value = TextBox19.Value
    .Range("L" & d).Value = TextBox20.Value
    .Range("N" & d).Value = TextBox21.Value
    .Range("P" & d).Value = TextBox22.Value
  End With
  Unload Me  'Vide et ferme le UserForm
End Sub

A+

 

[Mitch]

Re : Doublon

Merci a vous deux de me répondre je debute donc je prend des code par ci par la sur le forum que j'adapte temps bien que mal , je suis sous XP et je n'ai pas les probleme que vous trouver donc je me rend pas compte
j'essais ton code Bruno et je vous tient au courant
PS : comment remedier a ces bug vu que moi je les ai pas
Merci
oui effectivement le bug est que je demande a renseigner le nom sur ComboBox1 alors que c'est le ComboBox3 mille excuses
par contre le code s'execute sans bug mais le nom dans la colonne D reste vide