Renvoyer les valeurs des cellules vers label USF

[apdf]

Bonjour,

Je suis à la recherche d'un code pour envoyer les 4 derniere ligne des colonnes "A B C" vers les labels de mon USF

Je vous en remercie d'avance

ci joint mon fichier qui seras plus parlant

 

[Papou-net]

Re : Renvoyer les valeurs des cellules vers label USF

Bonjour apdf,

Si j'ai bien compris la question, voici comment modifier ta macro :

Private Sub UserForm_Initialize()
Dim dLg As Long, Lg As Long, Lb As Byte

With Sheets("Feuil1")
  dLg = .Range("A1").End(xlDown).Row
  Lb = 8
  For Lg = dLg To dLg - 3 Step -1
    Me.Controls("Label" & Lb - 1) = .Range("C" & Lg)
    Me.Controls("Label" & Lb) = .Range("A" & Lg)
    Lb = Lb - 2
  Next
  Me.Label9 = .Cells(dLg, 2)
End With
End Sub

En te souhaitant une bonne journée.

Cordialement.

PS : tu as fait une erreur dans les noms des labels. Il te faut renommer "Labe8" en "Label8".

 

[apdf]

Re : Renvoyer les valeurs des cellules vers label USF

Bonjour Papou-net

Je te remercie c'est nickel et j'ai réparé mes labels

Je te souhaite une bonne journée.

 

[xrevenge]

Re : Renvoyer les valeurs des cellules vers label USF

Salut,

Voici une autre méthode moins factorisée.

Bien a toi,

Sebastien

 

[apdf]

Re : Renvoyer les valeurs des cellules vers label USF

Bonjour xrevenge,

Je te remercie pour ta question:

' Que veux tu ici ????
Label9 = Range("b2")
End Sub

Ici doit se trouver le N° de la table qui correspond au 4 nom

@+

 

[xrevenge]

Re : Renvoyer les valeurs des cellules vers label USF

ah, Ok. Je pense que tu as réussi avec la solution de papou-net ou bien la mienne un peu plus lourde mais facilement compréhensible je pense.
bien à toi,
Sébastien