incorporer cellules dans label USF

[gds35]

Mes AMIS du forum , Bonjour et Bon WE ,

Je desirerai incorporer le contenu des cellules A1 à D4 dans le label de mon Userform1 , je n'y arrive pas , avez vs une idée ??? Je joint un p'tit fichier d'exemple. Cordialement GDS35

 

[wilfried_42]

Re : incorporer cellules dans label USF

Bonjour

voici ton code en fonction de ce que j'ai compris

Private Sub UserForm_Initialize()
'
Dim Tableau As String
Label1.Caption = ""
For i = 1 To 4
    Label1.Caption = Label1.Caption & Sheets("Feuil1").Range("A" & i)
    If i < 4 Then Label1.Caption = Label1.Caption & vbCrLf
Next i
End Sub

 

[gds35]

Re : incorporer cellules dans label USF

Salut , WilFried , Merci de t'avoir interressé à mon Pb ,
J'ai rentré ton code mais malheureusement il ne marche pas j'ai eu beau le triturer , rien a faire..... De plus quand il marche au début je n'ai que la Premiere Colonne ???? , Peux tu tester avec l'exemple de la piece jointe , je continue a chercher. Cordialement GDS35

 

[MJ13]

Re : incorporer cellules dans label USF

Bonjour GDS, Wilfried.

Déjà au départ, tu mets

Range("A1:D4") = Tableau

Si tu n'as rien déclaré dans Tableau, ta zone se vide.
Il vaudrait mieux déja écrire

Tableau= Range("A1") .value

Ensuite j'aurai plutôt vu cela

Private Sub UserForm_Initialize()
Sheets("Feuil1").Select
For Each cell In Range("A1:d4")
NomAinscrire = NomAinscrire & cell.Value
Next
Label1.Caption = NomAinscrire
End Sub

 

[excalibur]

Re : incorporer cellules dans label USF

bonjour gds35 wilfried_42 MJ13 le forum si j ai compris !!!
si cellules plus nombreuses il faut passer par une boucle

 

[Lii]

Re : incorporer cellules dans label USF

Bonjour Tous

à tester le

Private Sub UserForm_Initialize()
  Dim Li As Byte, col As Byte
  Label1.Caption = ""
  For Li = 1 To 4
    For col = 1 To 4
      Label1.Caption = Label1.Caption & Sheets("Feuil1").Cells(Li, col) & " "
    Next col
    Label1.Caption = Label1.Caption & Chr(10)
  Next Li
End Sub

 

[wilfried_42]

Re : incorporer cellules dans label USF

re: bonjour à tous

voici un complement : le colonne sont séparée par un "-"

Private Sub UserForm_Initialize()
'
Dim i as integer, j as integer
Label1.Caption = ""
For i = 1 To 4
    for j = 1 to 4 
         Label1.Caption = Label1.Caption & Sheets("Feuil1").cells(i,j)
         if j < 4 then label.caption = label.caption & " - "
    next j 
    If i < 4 Then Label1.Caption = Label1.Caption & vbCrLf
Next i
End Sub

 

[gds35]

Re : incorporer cellules dans label USF

Merci Wilfried,Excalibur, Lii , Mj13 , ainsi qu'a tout le Forum je vais mettre en oeuvre vos conseils et remarques sans lesquelles , je ne pourrais aboutir a la demande de ma Direction , un Prog de gestion de Frais dep ..... il me faut le mettre en place avant le 01/12 . MERCI encore MERCI à tous et Bon WE . Des + cordialement GDS35