Code pour "caption" Label

[titymax]

Bonjour,

Je souhaiterais que le paramètre "Caption" d'un intitulé "Label" prenne la valeur d'une cellule lorsqu'on on appelle la Userform le contenant.

Quel est le code ?

Celui que j'essaie ne fonctione pas :

Label1.Caption = Range("XY").Value

XY étant les coordonnées de la cellule.

Merci à tous

A bientôt.

 

[Efgé]

Re : Code pour "caption" Label

BOnjour titymax,
Peut être avec
Label1.Caption = Sheets("Feuil1").Range("A1").Value
Cordialement

 

[Gorfael]

Re : Code pour "caption" Label

Salut titymax et le forum

Private Sub UserForm_Initialize()
Me.Label1.Caption = [A1]
End Sub

Recopira le contenu de A1 dans le contrôle Label1
Donc tu ne nous donnes tout, ta formule devant fonctionner.
A+

 

[titymax]

Re : Code pour "caption" Label

Merci Efgé, mais apparemment cale ne fonctionne pas non plus, il s'affiche toujours "Label1".



Merci encore...

 

[titymax]

Re : Code pour "caption" Label

Merci à tous,

mais soit je n'ai pas bien compris et je n'ai tapé le code où il faut, soit je ne sais pas, en tous les cas ça ne fonctionne pas.

Pffffff... satané Excel....

 

[Efgé]

Re : Code pour "caption" Label

Re à tous,
En complément du fichier exemple de carcharodon-carcharias, si vous voulez modifier le 'caption' dans une macro en dehors du USF :

USF_Gene.Label1.Caption = Sheets("feuil1").Range("A1").Value

En partant du principe que votre USF s'appelle USF_Gene.
Cordialement

 

[titymax]

Re : Code pour "caption" Label

Un grand merci "Le Squale" lol non vraiment super ça fonctionne à merveille !!!

Merci à tous encore une fois, ce forum c'est GENIALISSIME !!!

Bonne fin de journée à tous.

 

[YANN-56]

Re : Code pour "caption" Label

Bonjour à toi, à tous et ceux qui passeront par là.

Quand il est nécessaire d'en avoir une caisse,
je procède ainsi à la volée:

En premier lieu de les mettre dans un Frame;
ce qui permettra de placer l'ensemble dans l'USF.
Cet ensemble Visible ou Non.
(Voir en même temps la création d'un module de classe)

Private Sub UserForm_Initialize()
Dim LABELS_USF As Control
Dim TOPS_LABELS_USF As Integer
TOPS_LABELS_USF = 20

For i = 4 To ActiveSheet.Range("A65536").End(xlUp).Row

Set LABELS_USF = UserForm1.Frame1.Controls.Add("Forms.Label.1", , True)

    With LABELS_USF
    
      .Left = 6
      .Width = 100
      .Height = 20
      .Top = TOPS_LABELS_USF
      .BackColor = &HFFFFFF
      .ForeColor = &H800000
      .Caption = ActiveSheet.Cells(i, 1).Value & " : "
      .Font.Size = 14
      .TextAlign = fmTextAlignRight
      
         With .Font
         .Italic = False
         .Bold = True
         .Name = "Times new roman"
         .Size = 18
         End With
            
     End With
   
      TOPS_LABELS_USF = TOPS_LABELS_USF + 26

Next i

End Sub

P.S Bien choisir la boucle sur la Feuille active...

P'tit Classeur exemple joint.

Bon après-midi

Yann

 

[Habitude]

Re : Code pour "caption" Label

D'abord tu dois mettre ton code dans la fonction Initialize de ton userform

Label1.Caption = Range("XY").Value

XY étant les coordonnées de la cellule.

La fonction Range n'utilise pas des coordonnées.
La fonction Cells est plus approprié


label1.caption= nomdetafeuille.cells(X, Y)