userform problème de récupération de données

tallia64 · 6 Novembre 2008

Bonsoir je travaille sur deux userforms dont l'un me pose un problème. Quand je créais une ligne avec mon 1er userform "ajouter" pas de soucis. Par contre quand je sélectionne "recherche/modification" et que je clique sur la ligne sélectionné pour faire apparaitre la frame les valeurs dans les textbox devant heure_entree et heure_sortie n'apparraissent pas et je ne peux pas faire de modification. Pourriez vous m'aider s'il vous plait ? Je vous remercie
TALLIA

Voici mon fichier :
http://cjoint.com/?lgtytwq36I

tallia64 · 9 Novembre 2008

Re : userform problème de récupération de données

Bonjour je reviens vers vous par rapport à mon précédent message concernant un problème de combobox que j'ai laissé trés tardivement cette nuit. Pouvez vous m'aider s'il vous plait ?
Je vous remercie d'avance.
Tallia

tallia64 · 9 Novembre 2008

Re : userform problème de récupération de données

je vous prie de bien vouloir ci joint le code de mon bouton valider peut être que le problème vient de là ? Merci beaucoup
TALLIA

Private Sub CommandButton1_Click()
index = 3 'comment est initialisée cette variable ?
ActiveSheet.Cells(index, 6) = N1 & " " & L & " " & N2
N1 = ""
L = ""
N2 = ""
ActiveSheet.Cells(index, 6) = TextBox13
ActiveSheet.Cells(index, 8) = TextBox14
RECHERCHE.Hide

TextBox12 = UCase(TextBox12)
End Sub

jp14 · 9 Novembre 2008

Re : userform problème de récupération de données

Bonjour

tallia64 à dit:
bonsoir j'ai un petit souci avec une combo qui me permet de sélectionner une ligne pour y apporter des modifications. Ma combo m'affiche bien les lignes mais quand je sélectionne un ligne pour la modifier c'est toujours la 1ère ligne qui est modifiée et non celle sélectionner. Je vous transmets ci-joint mon code.
Merci beaucoup bonne nuit.
Tallia
...................................................

'La combo sélectionne un à un
ComboBox1.RowSource = "service_general!a3:c3000"
ComboBox1.Value = ""
index = Range("a65536").End(xlUp).Row + 2 '2

End Sub[/COLOR]
je vous prie de bien vouloir ci joint le code de mon bouton valider peut être que le problème vient de là ? Merci beaucoup
TALLIA

Private Sub CommandButton1_Click()
index = 3 'comment est initialisée cette variable ?
ActiveSheet.Cells(index, 6) = N1 & " " & L & " " & N2
N1 = ""
L = ""
N2 = ""
ActiveSheet.Cells(index, 6) = TextBox13
ActiveSheet.Cells(index, 8) = TextBox14
RECHERCHE.Hide

TextBox12 = UCase(TextBox12)
End Sub

Il faut lire les trois "post" pour comprendre le problème, il est normal que le système ne fonctionne pas puisque le numéro de ligne est figé par le code : index = 3.

La réponse se trouve dans le post de bqtr

Toujours dans la même procédure il faut index = ComboBox1.ListIndex + 3 et non + 2. Ta première ligne de donnée est en ligne 3.

Le plus simple serait comme les "post" de Lii et bqtr indiquent :

On ne peut pas corriger des parties quand elles interfèrent ailleurs sans qu'on le sache.

Peux tu mettre un extrait de ton fichier original sans données confidentielles, avec juste le Userform RECHERCHE et la feuille "service général"

Bon courage

JP

tallia64 · 9 Novembre 2008

Re : userform problème de récupération de données

bonjour JP merci pour votre messages je viens de trouver la solution à mon problème dont voici le code si cela peut aider. bonne journée TALLIA🙂

Private Sub CommandButton1_Click()
'index = ComboBox1.ListIndex + 3 'comment est initialisée cette variable ?
'ActiveSheet.Cells(index, 6) = N1 & " " & L & " " & N2
'N1 = ""
'L = ""
'N2 = ""
Unload Me
'RECHERCHE.Hide
'ActiveSheet.Cells(index, 6) = HEURE_ENTREE
End Sub

limat72 · 10 Novembre 2008

Re : userform problème de récupération de données

Lii à dit:
Bonjour Tous,

ci joint 2 fichiers.
Le premier est une version épurée (donc allégée).
Ayant des problèmes avec les routines données, j'en ai mis de nouvelles pour les formats. De plus, j'ai remanié les USF.
Le second, pour l'exemple de ce qu'on peut faire, est une version avec un seul USF pour les 4 actions !
Je n'ai pas eu le temps de tout tester donc il peut s'être glissé des erreurs.
Fais m'en part si tu en trouves.

bonjour le forum, bonjour Lii,

excuse moi,
Lii , moi je serais intérréssé par ton fichier... et je ne vois ou est l'erreur sur les heures..pourrait tu regarder le problème....les heures reviennent toujours à 00:00 après saisie....

merci beaucoup de l'aide que tu apportes...

limat

merci d'avance

tallia64 · 11 Novembre 2008

Re : userform problème de récupération de données

Bonsoir si cela peut vous intéresser voici un code qui me permet de saisir des heures dans une textbox d'un userform ainsi 2111 apparait sous 21:12. En espérant que ça puisse vous aider.
Bon courage Tallia

Private Sub HEURE_ENTREE_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim Heur
HEURE_ENTREE.MaxLength = 5
Heur = Replace(HEURE_ENTREE.Value, ":", "")
If Len(Heur) > 2 Then Heur = Left(Heur, 2) & ":" & Right(Heur, Len(Heur) - 2)
If Len(Heur) = 5 Then
If Not IsDate(Format(HEURE_ENTREE, "hh:mm")) Then MsgBox "Heure invalide"
End If
HEURE_ENTREE = Heur
End Sub

Lii · 11 Novembre 2008

Re : userform problème de récupération de données

Bonjour Tous,

une autre proposition pour la saisie d'un horaire avec test sur les 2 nombres (h, min).

userform problème de récupération de données

tallia64

XLDnaute Occasionnel

tallia64

XLDnaute Occasionnel

tallia64

XLDnaute Occasionnel

jp14

XLDnaute Barbatruc

tallia64

XLDnaute Occasionnel

limat72

XLDnaute Occasionnel

tallia64

XLDnaute Occasionnel

Lii

XLDnaute Impliqué

Pièces jointes

Discussions similaires

userform problème de récupération de données

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Impliqué

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency