probleme de saissie

[cpeens]

bonjour

je viens de me rendre compte d'un probleme dans mon projet


quand je saisie le nom et prenom d'une personne si ma deuxieme saisie à le même nom de famille ce dernier s'affiche pareil dans la feuille formation


je m'explique

premiere saisie

Nom:lulu prenom:ludo la c'est ok

deuxieme saisie

Nom:Lulu Prenom😀idier

soucis dans l'onglet base c'est ok mais dans l'onglet Feuille apparait pour la seconde saisie

Nom:lulu prenom:ludo

et sa c'est pareil pour tous les Noms et Prenoms suivant du moment que ces dernier commence par ex. lulu

d'ou cela peut t'il venier svp merci pour tout aide apporté

 

[job75]

Re : probleme de saissie

Bonjour cpeens,

d'ou cela peut t'il venier svp merci pour tout aide apporté

Le projet n'est pas au point.

Alors j'ai été voir le code de l'UserForm mais vu le nombre effrayant de lignes, j'ai refermé le fichier 😱

C'est vous qui avez fait tout ça cpeens 😕

A+

 

[cpeens]

Re : probleme de saissie

à l'origine non ce n'etait pas moi mais petit à pettit j'ai amelioré avec mes connaissance et la pour le besoin vue le poids j'ai du enlever plein de chose

 

[cpeens]

Re : probleme de saissie

Re bonjour job

en essayant simplifier mon code au maximum j'ai reussie à faire en sorte que le probleme soit résolu mais je sais d'ou sa viens donc ce que je vais essayer de faire c'est eliminer ligne par ligne voir c'est la quelle qui pose probleme

 

[cpeens]

Re : probleme de saissie

re

j'ai trouver ce qui allais pas enfin je crois

With Worksheets("Base")
DernLig = .Cells(.Columns(1).Cells.Count, 1).End(xlUp).Row + 1
  TextBoxNoOrdre = Application.WorksheetFunction.Max(.Range("A2:A" & DernLig)) + 1
  .Cells(DernLig, 1) = CLng(TextBoxNoOrdre)
  .Cells(DernLig, 2) = TextBoxNom
  .Cells(DernLig, 3) = TextBoxPrenom
  .Cells(DernLig, 4) = TextBoxService
  [COLOR="Red"]' RemplirComboxBase ' <<<<<<<<<<<<<<<<<[/COLOR]
ComboBoxBase = TextBoxNom ' <<<<<<<<<

End With
With Worksheets("FORMATION2")
DernLig = .Cells(.Columns(1).Cells.Count, 1).End(xlUp).Row + 1
  TextBoxNoOrdre = Application.WorksheetFunction.Max(.Range("A5:A" & DernLig)) + 1
  .Cells(DernLig, 1) = CLng(TextBoxNoOrdre)
  .Cells(DernLig, 2) = TextBoxNom
  .Cells(DernLig, 3) = TextBoxPrenom
  .Cells(DernLig, 4) = TextBoxService
  
End With

si j'enleve cette ligne cela refonctionne bien.bon reste plus q'a tester sur le veritable projet