probleme de saissie

cpeens · 21 Septembre 2010

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 · 21 Septembre 2010

Re : probleme de saissie

Bonjour cpeens,

cpeens à dit:
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 · 21 Septembre 2010

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 · 21 Septembre 2010

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 · 21 Septembre 2010

Re : probleme de saissie

re

j'ai trouver ce qui allais pas enfin je crois

Code:

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

probleme de saissie

cpeens

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

cpeens

XLDnaute Occasionnel

cpeens

XLDnaute Occasionnel

Pièces jointes

cpeens

XLDnaute Occasionnel

Discussions similaires

probleme de saissie

cpeens

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

cpeens

XLDnaute Occasionnel

cpeens

XLDnaute Occasionnel

Pièces jointes

cpeens

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency