Renvoyer les valeurs des cellules vers label USF

Papou-net

XLDnaute Barbatruc

• 27 Mars 2012

• #2

Re : Renvoyer les valeurs des cellules vers label USF

Bonjour apdf,

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

Code:

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".

 

Vote positif 0 Vote négatif

A

apdf

XLDnaute Occasionnel

• 27 Mars 2012

• #3

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.

 

Vote positif 0 Vote négatif

X

xrevenge

Guest

• 27 Mars 2012

• #4

Re : Renvoyer les valeurs des cellules vers label USF

Salut,

Voici une autre méthode moins factorisée.

Bien a toi,

Sebastien

 

Pièces jointes

• Cellule Label.xlsm

  22.3 KB · Affichages: 53

Vote positif 0 Vote négatif

A

apdf

XLDnaute Occasionnel

• 27 Mars 2012

• #5

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

Cliquez pour agrandir...

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

@+

 

Vote positif 0 Vote négatif

X

xrevenge

Guest

• 27 Mars 2012

• #6

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

 

Vote positif 0 Vote négatif