pompaero
XLDnaute Impliqué
Bonjour le forum,
Je cherche à améliorer mon codage dans ce classeur.
J’aimerai dans la feuil BDD colonne D à l’aide du formulaire UF_Plannif avoir lors de l’enregistrement des données, le temps correspondant aux items (évènements) défini dans la feuil Liste.
Je n’arrive pas à modifier le codage qui pour moi serait la dedans :
Je comprends que ce code en rouge récupère les données après la lettre G, mais ce principe ne correspond plus à mes besoins.
C'est à la place de cela qu'il me faut le souhait en début de texte en haut.
Je vous en remercie par avance.
Cdlt
pompaero;
Je cherche à améliorer mon codage dans ce classeur.
J’aimerai dans la feuil BDD colonne D à l’aide du formulaire UF_Plannif avoir lors de l’enregistrement des données, le temps correspondant aux items (évènements) défini dans la feuil Liste.
Je n’arrive pas à modifier le codage qui pour moi serait la dedans :
VB:
'dans Module1
ChargeListBox2
CB_Valider_click dans UF_Planif
With Sheets("BDD")
l = .Range("A" & Rows.Count).End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
.Range("A" & l).Value = MaDate
.Range("A" & l).NumberFormat = "dd-mm-yy"
.Range("B" & l).Value = ListBox1.List(i)
.Range("C" & l).Value = ListBox2
[COLOR=rgb(209, 72, 65)]If Left(Me.ListBox2, 1) = "G" Then .Range("D" & l).Value = Val(Mid(Me.ListBox2, 2))[/COLOR]
l = l + 1
Code:
'dans UF_Planif
Private Sub ListBox2_Change() 'sigle
Case 2
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) Then test = True: Exit For
Next
If test Then
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) Then
Me.ListBox1.List(i, 2) = Me.ListBox2
If Left(Me.ListBox2, 1) = "G" Then
Me.ListBox1.List(i, 3) = Mid(Me.ListBox2, 2)
Else
Me.ListBox1.List(i, 3) = ""
End If
End IfC'est à la place de cela qu'il me faut le souhait en début de texte en haut.
Je vous en remercie par avance.
Cdlt
pompaero;