copier / coller dans textbox et boucle

[Apprenti]

bonjour,

j'ai joint un fichier zip test explicatif en espérant avoir été clair !?


récupérer des données d'un tableau avec des dates dans une colonnes et des données texte correpondantes aux dates dans une autre colonne et le tout dispatché en fonction d'une Ligne ou d'une autre !

Comment récupérer ces données, les assembler et faire apparaître de manière automatique dans un USF à partir d'une liste de Lignes !?


J'ai déjà commencé le fichier vous verrez mais le contenu des textbox j'ai simplement recopier manuellment ce qui m'intréessait mais le but est que la macro aille chercher les données et les copie de façon adéquate aux endroits souhaités !?


Un grand grand merci par avance [file name=testingfile.zip size=12707]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/testingfile.zip[/file]

 

[MichelXld]

bonjour

j'espere que cette adaptation répondra à ta demande

je n'ai utilisé qu'un seul Textbox


attention : pour fermer l'USF c'est Unload Me et non UserForm1.Hide



bonne journée
MichelXld [file name=testingfile_V02.zip size=13028]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/testingfile_V02.zip[/file]

 

[Apprenti]

bonjour,


pourrais-je avoir en détails ligne par ligne la signification de ce code pour que je le comprene bien ?

merci

Private Sub ComboBox1_Change()
Dim Cell As Range
Dim Resultat As String

Resultat = ''
TextBox1 = ''

For Each Cell In Range('C13:C19')
If Cell = ComboBox1 Then _
Resultat = Resultat & Cell.Offset(0, 1) & vbTab & Cell.Offset(0, 2) & vbCrLf
Next Cell

TextBox1 = Resultat
End Sub

 

[MichelXld]

rebonjour


Private Sub ComboBox1_Change() 'utilisation de l'evenement Change du Combobox
Dim Cell As Range
Dim Resultat As String

Resultat = '' 'efface le contenu de la variable
TextBox1 = '' 'efface le contenu du Textbox avant de recuperer les nouvelles données


'boucle sur les cellules de la plage C13:C19
For Each Cell In Range('C13:C19')

'If Cell = ComboBox1:
'si la cellule correspond au contenu du combobox on aliemente la variable 'Resultat'

'VbTab : ajoute une tabulation
'vbCrLf : ajoute un saut de ligne

'Cell.Offset(0, 1) = cellule.decalage(numeroLigne, numeroColonne)
'Cell.Offset(0, 1) permet donc de recuperer le contenu de la 1ere colonne à droite de la cellule 'Cell'
'Cell.Offset(0, 2) permet de recuperer le contenu de la 2eme colonne à droite de la cellule 'Cell'

If Cell = ComboBox1 Then _
Resultat = Resultat & Cell.Offset(0, 1) & vbTab & Cell.Offset(0, 2) & vbCrLf
Next Cell

'affiche le contenu de la variable dans le textbox
TextBox1 = Resultat
End Sub


bonne journée
MichelXld

 

[Apprenti]

merci beaucoup pour ces explications ...
bonne journée