Discussion :

[gds35]

Mes AMIS du Forums Bonjour, Bon WE,

Voila : j'ai un USF avec des testBox , pour alimenter une feuille de calcul (ex Motif , Lieu ,Date Depart ,date d'Arrivée,Date Retour ,Heure Retour), je recapitule ces données dans une lisBox avec les éléments Lieu ,Date Depart ,date d'Arrivée , je voudrais lorque l'on clic sur un élément de la listbox , que l'ensemble des éléments se reaffichent dans les textBox afin de pouvoir les modifier. Je ne peux realiser cette opération . Auriez vous une idée ??? d'avance Merci , Cordialement GDS35

[casefayere]

Bonjour,

à mon avis, fais la procédure dans l'évenement click de la listbox

[laetitia]

bonjour gds35 casefayere le forum un exemple simple a adapter

change ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub cmd2_Click()
If TextBox1.Value = "" Then Exit Sub
Cells(ListBox1.ListIndex + 2, 1).Select: z = ActiveCell.Row
For x = 1 To 5: Cells(z, x) = Me.Controls("textbox" & x).Value: Next x: Beep
End Sub

par celui la plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub cmd2_Click()
If TextBox1.Value = "" Then Exit Sub
For x = 1 To 5: Cells(ListBox1.ListIndex + 2, x) = Controls("textbox" & x).Value: Next x: Beep
End Sub

[gds35]

Merci , a tous je bosse sur votre exemple sans pour cela arriver au résultat desiré . J'ai du mal a comprendre le code . Merci encore . Bonne fin de journée . Cordialement GDS35

[laetitia]

re, le forum zip un bout de fichier sans donnees confid... pour voir le code de ton user

[gds35]

Bonjour le forum , Leatitia , CaseFayere , Mille excuses de ne pas vous avoir salué dans mon dernier Post fais vite peur du plantage .

Voila un Pt'it bout de code reconstitué , il est issu d'un gros PRG j'espere qu'il ne plantera pas .

Cordialement GDS35

[laetitia]

bonjour gds35 le forum j ai regarde ton fichier pas si simple a adapter
comme il est concu
tu travailles avec des cells fusionnees!!
tu dois extraire des caracteres pour remplir certaines textbox!!
toutes tes textbox sont renommees!! pas facile de boucler
il faudrait tout repense traiter chaque textbox individuellenent
beaucoup de lignes de codes. il faudrait de quelqu un sur le forum est le temps de le construire desole

[gds35]

Re Salut Leatitia , le Forum.
Tout d'abord un grand merci de t'être penché sur "mon Usine à gaz" , je comprends fort bien que le Pb est complexe . Donne moi un simple tuyau .
Comment recuperer l'enregistrement suite à un clic dans la ListBox ainsi que les autres elements dans des variables et Reporter la données du Lieu du Dpl dans la TextBox . Après il me semble qu'il me faudra faire une soeur jumelle à ma première Usine !!!!!!

Encore Merci je me permets de te faire de Gros Bisous.

Cordialement . GDS35

[laetitia]

re gds35 le forum pour le lieu de deplacement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub LISTDPL_Click()
TEXTLIEUDEP = (LISTDPL.List(LISTDPL.ListIndex, 0))
End Sub

ect...
gros bisous egalement passe une bonne journee leti

[gds35]

Re Leatitia ,

Merci , cela fonctionne , au " Poil " . Je repars au boulot , (+ qu'un an ça vient !!!!) , une derniere question pour résoudre l'entrée dans ma 2eme usine a Gaz , comment recuperer le N° de ligne dans la feuille de calcul de l'enregistrement sélectionné dans la listBox.

Bisous A+ te tiens au courant. Cordialement Gérard

[laetitia]

re gds le forum j ai fait un petit effort!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub LISTDPL_Click()
TEXTLIEUDEP = (LISTDPL.List(LISTDPL.ListIndex, 0))
Cells(LISTDPL.ListIndex + 18, 1).Activate
TEXTMOTIF = ActiveCell.Value
DATDEPRESJ = Left(ActiveCell.Offset(0, 5).Value, 2)
DATDEPRESM = Mid(ActiveCell.Offset(0, 5).Value, 4, 2)
DATDEPRESA = Right(ActiveCell.Offset(0, 5).Value, 4)
HDEPRES.Text = Left(ActiveCell.Offset(0, 6).Text, 2)
MDEPRES.Text = Right(ActiveCell.Offset(0, 6).Text, 2)
HARRMIS.Text = Left(ActiveCell.Offset(0, 7).Text, 2)
MARRMIS.Text = Right(ActiveCell.Offset(0, 7).Text, 2)
DATDEPMISJ = Left(ActiveCell.Offset(0, 8).Value, 2)
 DATDEPMISM = Mid(ActiveCell.Offset(0, 8).Value, 4, 2)
DATDEPMISA = Right(ActiveCell.Offset(0, 8).Value, 4)
HDEPMIS.Text = Left(ActiveCell.Offset(0, 9).Text, 2)
MDEPMIS.Text = Right(ActiveCell.Offset(0, 9).Text, 2)
HARRRES.Text = Left(ActiveCell.Offset(0, 10).Text, 2)
MARRRES.Text = Right(ActiveCell.Offset(0, 10).Text, 2)
End Sub

[gds35]

Re Leatitia , le Forum ,

Je crois que mon AMIE léti se fout de moi en disant qu'elle a fait un p'tit effort !!!! un gros je n'aurais pas dit NON loin de là. Bref ....
Ton code est super marche , ss Pb je recupère mes données . Je les modifies ss Pb , mes tests fonctionnent , simplement le Hic quand je veux valider par le bouton valide les modifs , je tombe en erreur " 1004 " , si modif des heures ,
sinon pas d'erreur mais création d'un nouvel enregistrement comprenant les modifs et non remplacement de l'ancien enregistrement . C'est pour cela que dans mon dernier Post te demandais comment recupérer le n0 de ligne de la feuille de calcul apres clic sur le Dpl ds la liste box . Il me semble que dans une ListB la valeur est du text ne faut-il pas les reconvertir en numérique ???
Cordialement Gérard . Bonne Soirée , Merci de ta précieuse Aide .

[laetitia]

re gerard le forum je dirais qu il faut faire l inverse mais pas si simple vu au depart comme tu alimente ta listbox je te ferais le code demain bisous a+

[gds35]

Bonjour , le Forum , Bjr Laetitia ,

J'ai l'impression que mon dernier Post n'est pas arrivé.

Cordialement GDS35

[laetitia]

bonjour gerard le forum pour trouver la ligne dans ton cas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(LISTDPL.ListIndex + 18, 1).Activate

autrement code modifs attention tu remarqueras que certaines textbox sont inversees dans le code pb..heure anglaise cest normal

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub CMDMODIF_Click()
ActiveCell.Value = TEXTMOTIF
ActiveCell.Offset(0, 1) = TEXTLIEUDEP
ActiveCell.Offset(0, 5).Value = DATDEPRESM.Value & "/" & DATDEPRESJ.Value & "/" & DATDEPRESA.Value
ActiveCell.Offset(0, 6).Value = HDEPRES.Value & ":" & MDEPRES.Value
ActiveCell.Offset(0, 7).Value = HARRMIS.Value & ":" & MARRMIS.Value
ActiveCell.Offset(0, 8).Value = DATDEPMISM.Value & "/" & DATDEPMISJ.Value & "/" & DATDEPMISA.Value
ActiveCell.Offset(0, 9).Value = HDEPMIS.Value & ":" & MDEPMIS.Value
ActiveCell.Offset(0, 10).Value = HARRRES.Value & ":" & MARRRES.Value
End Sub

[gds35]

Bonjour le Forum , salut Laetitia ,
Désolé de n'avoir repondu plus tot car pb de sante.
Ton code fonctionne a mermeille , Merci de ton investissement dans mon usine a gaz !!!! , je Continue les modifs , pour la modif de frais DPL , je ne suis peut ^etre pas à l'abri d'autres surprises . Pourais-je me permettre en cas de difficultés , faire appel a ta grande base de connaissance VBA ?????

Cordialement , Bisous , Gérard

[laetitia]

bonjour gerard le forum

restons modeste je suis qu une debutante quand je vois certaines reponses faite sur c est excelent forum

si pb..... pas de soucis bisous a+

[AlainTech]

Ton code fonctionne a mermeille

Dans ce cas, un petit clic sur ?

Merci