[RESOLU] Récup d'info dans un Label

[Ternoise]

Bonjour le Forum

Comment récupérer dans deux Labels différents les entêtes du haut et de gauche d'un tableau ?

Merci de toute aide

David

 

[Si...]

Re : Récup d'info dans un Label

salut

code dans l'UsF

Private Sub UserForm_Initialize()
  With Feuil1
    Label1 = .Cells(ActiveCell.Row, 3)      '3 pour la colonne de noms
    Label2 = .Cells(14, ActiveCell.Column)  '14 pour la ligne des dates
  End With
End Sub

 

[job75]

Re : Récup d'info dans un Label

Bobjour Ternoise, Si..., le forum,

Private Sub UserForm_Initialize()
Label1 = ActiveCell(, 4 - ActiveCell.Column)
Label2 = ActiveCell(15 - ActiveCell.Row)
End Sub

A+

 

[job75]

Re : Récup d'info dans un Label

Re,

Ou aussi :

Private Sub UserForm_Initialize()
Label1 = ActiveCell.EntireRow.Cells(3)
Label2 = ActiveCell.EntireColumn.Cells(14)
End Sub

A+

 

[laetitia90]

Re : Récup d'info dans un Label

bonjour les amis 🙂🙂🙂
on pourrait tous mettre dans l'evenementielle

 Private Sub Worksheet_SelectionChange(ByVal R As Range)
 With UserForm1
 If Not Intersect(R, [D15:I26]) Is Nothing And R.Count = 1 Then _
 .Label1 = Cells(R.Row, 3): .Label2 = Cells(14, R.Column): .Show
 End With
End Sub

 

[Ternoise]

Re : Récup d'info dans un Label

Bonjour à tous

Merci de votre engouement à cette question ! parfait
Je reviens bientôt pour d'autres questions !!!
Bonne journée
David