remplir textbox d'un uSF

[nrdz83]

Bonsoir à tous et bon week end.

Ma question est la suivant est il possible de remplir les textbox d'un USF les données de la même colonne mais les données de plusieurs lignes?

D4avance merci pour vos lumières amitiés🙄

 

[kjin]

Re : remplir textbox d'un uSF

Bonsoir,
Sans doute comme ceci
A+
kjin

 

[PMO2]

Re : remplir textbox d'un uSF

Bonjour,

J'ai supprimé la plage de nom "engins" (menu Insertion/Nom) qui ne sert plus à rien dans la solution que je vous propose.
Remplacez le code de votre UserForm par le code suivant

Const MA_FEUILLE As String = "Calendrier charge"

Dim var As Variant

Private Sub CB_Visualiser_Click()
Dim Lig&
Dim nbLig&
Dim i&
Dim j&
Lig& = Me.ComboBox1
Do
  nbLig& = nbLig& + 1
  If Lig& + nbLig& > UBound(var, 1) Then Exit Do
Loop Until var(Lig& + nbLig&, 1) <> ""
For i& = 1 To 17
  Me.Controls("TextBox" & i&) = ""
Next i&
j& = 1
For i& = Lig& To Lig& + nbLig& - 1
  Me.Controls("TextBox" & j&) = var(i&, 2)
  Me.Controls("TextBox" & j& + 1) = var(i&, 3)
  j& = j& + 2
Next i&
For i& = 15 To 17
  Me.Controls("TextBox" & i&) = var(Lig&, i& - 11)
Next i&
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim S As Worksheet
Dim R As Range
Dim T()
Dim i&
Dim j&
Set S = Sheets(MA_FEUILLE)
Set R = S.Range(S.Cells(1, 1), S.Cells(S.[b65536].End(xlUp).Row, S.[iv2].End(xlToLeft).Column))
var = R
For i& = 3 To UBound(var, 1)
  If var(i&, 1) <> "" Then
    j& = j& + 1
    ReDim Preserve T(1 To 2, 1 To j&)
    T(1, j&) = i&
    T(2, j&) = var(i&, 1)
  End If
Next i&
With Me.ComboBox1
  .RowSource = ""
  .BoundColumn = 1
  .ColumnCount = 2
  .ColumnWidths = "0;20"
  .List = Application.WorksheetFunction.Transpose(T)
End With
End Sub

Cordialement.

PMO
Patrick Morange

 

[nrdz83]

Re : remplir textbox d'un uSF

Bonjour le forum et KJIN super ce que tu m'as réalisé, j'ai vu que tu avais supprimer les espaces de la combobox le top.

Mais j'ai du mal m'exprimer, ce que je cherche à réalisé c'est faire apparaitre dans le textbox le code détention (numérique) ainsi que le texte de la detention par exemple : 31 03 10 effets speciaux.

Merci d'avance pour vos lumières car j'essaye de decortiquer le code mais je comprend pas grand chose.

Merci et mes amitiés😎

 

[nrdz83]

Re : remplir textbox d'un uSF

Bonsoir er desolé apparement mon message a croisé le tien PMO2 . Super PMO2 juste ce que je cherchais, en plus super tes explications , je te remercie infiniement.
Toutes mes amitiés et vous souhaite un bon week end,
amitiés
😉

 

[kjin]

Re : remplir textbox d'un uSF

Bonsoir,
Bah j'avais point compris, mais c'etait pas trop compliqué de rectifier le tir
J'ai rajouté l'explication en gaulois
A+
kjin

 

[nrdz83]

Re : remplir textbox d'un uSF

Bonsoir KJIN super rien a dire un grand merci , je te souhaite un bon week end, amitiés😉

 

[PMO2]

Re : remplir textbox d'un uSF

Bonjour,

Suite à la demande

je souhaite rajouter une textbox (textbox18) et y afficher la date qui figure en cellule E1.
Que dois-je rajouter pour que le format de la date soit du style "jeudi 04 juin 2009" ?

la modification est dans la nouvelle pièce jointe.

Cordialement.

PMO
Patrick Morange