Code pour "caption" Label

titymax · 25 Mars 2010

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é · 25 Mars 2010

Re : Code pour "caption" Label

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

Gorfael · 25 Mars 2010

Re : Code pour "caption" Label

Salut titymax et le forum

Code:

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 · 25 Mars 2010

Re : Code pour "caption" Label

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

Merci encore...

titymax · 25 Mars 2010

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é · 25 Mars 2010

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 :

Code:

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

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

titymax · 25 Mars 2010

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 · 25 Mars 2010

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)

HTML:

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 · 25 Mars 2010

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)

Code pour "caption" Label

titymax

XLDnaute Occasionnel

Efgé

XLDnaute Barbatruc

Gorfael

XLDnaute Barbatruc

titymax

XLDnaute Occasionnel

titymax

XLDnaute Occasionnel

Efgé

XLDnaute Barbatruc

titymax

XLDnaute Occasionnel

YANN-56

XLDnaute Barbatruc

Pièces jointes

Habitude

XLDnaute Accro

Discussions similaires