urgent problème tri dans userform

[tallia64]

Bonsoir j'ai crée un userform ou à l'intérieur se trouve une combobox qui doit trier par rapport à un numéro de badge afin que je puisse modifier les données de la ligne Mon problème est que chaque fois que je se sélectionne mon userform mon tri se fait mais quand je modifie les données d'une ligne il me modifie aussi les autres.
En espérant que vous puissiez m'aider s'il vous plait ? je vous ci-joint mon code accompagné de mon fichier . je vous remercie d'avance
Tallia

Private Sub userform_initialize()
Frame1.Visible = False
Range("E3").Select
Range("A3:N100").Sort Key1:=Range("E3"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
'La combo sélectionne un à un
ComboBox1.RowSource = "service_general!e3:e100"
ComboBox1.Value = ""
index = Range("e65536").End(xlUp).Row - 1
End Sub


http://cjoint.com/?mpdrw3qNvE

 

[Papou-net]

Re : urgent problème tri dans userform

Bonjour tallia64,

Je n'ai pas compris l'intégralité de ton problème, mais peut-être peux-tu commencer par modifier ton code comme suit :

Private Sub userform_initialize()
Frame1.Visible = False
Range("E3").Select
Range("A3:N100").Sort Key1:=Range("E3"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
'La combo sélectionne un à un
ComboBox1.RowSource = "service_general!e3:e100"
ComboBox1.Value = ""
[COLOR="Red"]index = Range("e65536").End(xlUp).Row + 1[/COLOR]
End Sub

Espérant t'avoir été utile.

Cordialement.

 

[tallia64]

Re : urgent problème tri dans userform

Bonjour Papou-net merci pour votre aide je vais de ce pas essayer ce code. en fait mon problème est quand je veux modifier des lignes avec mon userform "recherche" qui auparavant ont été crées avec mon userform "ajouter" le tri ne se fait pas correctement et au lieu de modifier la ligne sélectionnée il modifie toutes les données de chaque lignes.
Voilà j'espère avoir été assez claire je vous remercie.Tallia

 

[tallia64]

Re : urgent problème tri dans userform

J'ai effectué des changements sur mon code mais sans succés ..Mon userform "recherche" ne me récupére pas complètement les données, le tri ne se fait pas correctement et à chaque changement de données il change aussi toutes les autre lignes. Si vous avez un petite solution à mon problème je vous en remercie d'avance. bonne journée tallia.

 

[PascalXLD]

Re : urgent problème tri dans userform

Bonjour

regardes un peu dans la FAQ

https://www.excel-downloads.com/threads/vba-remplir-une-combobox-sans-doublon.83545/
https://www.excel-downloads.com/threads/vba-alimentation-dune-combobox-ou-dune-listbox.81037/
https://www.excel-downloads.com/thr...ans-doublons-et-par-ordre-alphabetique.81048/

Je pense que tu trouveras ton bonheur

 

[tallia64]

Re : urgent problème tri dans userform

Bonjour PascalXLD et merci pour votre aide je vais de suite aller regarger ces liens.
Bonne journée TALLIA

 

[PascalXLD]

Re : urgent problème tri dans userform

Bonjour PascalXLD et merci pour votre aide je vais de suite aller regarger ces liens.
Bonne journée TALLIA

Euh tu peux me tutoyer 😀

 

[tallia64]

Re : urgent problème tri dans userform

ok je te remercie. Tallia

 

[tallia64]

Re : urgent problème tri dans userform

rebonjour je viens d'essayer les codes mais malheureusement j'ai du mal à les intégrer dans mon application donc c'est le bug !!
Pas facile le vba !!!
bonne aprés-midi tallia

 

[PascalXLD]

Re : urgent problème tri dans userform

Re

IL faudrait voir ton bout de code avec un petit fichier avec quelques données non confidentielles qu'on puisse regarder

 

[tallia64]

Re : urgent problème tri dans userform

Voici mon code du userform "recherche" et le lien de mon fichier. Je te remercie tallia.


Private Sub userform_initialize()
Frame1.Visible = False
Range("E3").Select
Range("A3:N100").Sort Key1:=Range("E3"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
'La combo sélectionne un à un
ComboBox1.RowSource = "service_general!e3:e100"
ComboBox1.Value = ""
index = Range("e65536").End(xlUp).Row - 1
End Sub


http://cjoint.com/?mpdrw3qNvE

 

[PascalXLD]

Re : urgent problème tri dans userform

Re

Tu peux développer le pbe que tu as STP

 

[tallia64]

Re : urgent problème tri dans userform

En fait avec le user form "ajouter" je saisie des entrées et avec le userform "recherche/modification" je vais les rechercher afin de le modifier si nécessaire notamment pour rajouter l'heure de sortie. Quand je sélectionne mon userform "recherche/modification" il me fait une recherche selon le n ° de badge et effectue un tri alpha. Mon problème est que chaque fois que je sélectionne une entrée afin de la modifier il me modifie les autres aussi et même mes entête de colonnes. J'espère avoir été assez claires dans mes explications je te remercie Tallia.

 

[tallia64]

Re : urgent problème tri dans userform

Bonsoir je reviens à nouveau avec mon problème de userform en espérant que vous puissiez m'aider car je dois rendre cette application dans un court délai. je vous en remercie d'avance. Bonne soirée Tallia.