valeur celulle dans label

[wrap food]

Bonjour,

Je cherche le code pour mettre la valeur d'une cellule dans un label qui se trouve sur une feuille.

je souhaiterais que le label change a chaque fois que la cellule est modifié

Merci a ceux qui pourront m'aider

 

[Gardien de phare]

Re : valeur celulle dans label

Bonjour,
Qu'est-ce que tu appelles un "label" ?

 

[Staple1600]

Re : valeur celulle dans label

Bonjour à tous

Gardien de phare: (salut 😉 )
Un Label est un contrôle ActiveX.
Une discussion sans pièce jointe fournie par le demandeur est une discussion qui aura du mal à avoir le Label Rouge.
La Belle de Cadix a des yeux de velours.

Question: Laquelle de ces trois affirmations nous interpelle le plus ici?
Tu peux nous éclairer wrap food ?

PS: Personnellement je suis toujours ébaubi quand je vois un vieux membre d'XLD oublier sa PJ dans sa question.

 

[wrap food]

Re : valeur celulle dans label

bonjour
Désolé je n'ai pas été très explicite.

Je ajouter dans une feuille un Label " contrôle activeX"
je souhaiterais que ce dernier soit mise à jour a chaque modification de la cellule

je mets une ersatz de mon fichier
Dans la feuil1 j'ai la base de donnée et dans la feuil4 un fichier déroulant et les label ( et les cellule si rapportant )


par avance merci

 

[Staple1600]

Re : valeur celulle dans label

Bonjour à tous

wrap_food
Observations:
1) il y a un TextBox pas un Label sur la feuille 1
2) La formule RECHERCHE fonctionne mal (celle-ci fonctionnera mieux : =RECHERCHEV($B$2;Feuil1!$C$3:$G$8;2;0)
3) Pourquoi afficher dans des Labels ce qu'on voit dans les cellules adjacentes ???

 

[Staple1600]

Re : valeur celulle dans label

Re

Voici donc une possibilité (test OK sur ta PJ)
(et pour le plaisir de contredire ce que je viens de dire dans mon précédent message 😉 )

'code dans la feuille Feuil4
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Byte
Set ws = ActiveSheet
For i = 1 To ws.OLEObjects.Count
    If TypeName(ws.OLEObjects(i).Object) = "Label" Then
    ws.OLEObjects(i).Object.Caption = Cells(i + 3, "B").Value
    End If
Next
End Sub

PS: J'ai changé certaines propriétés des Label

 

[wrap food]

Re : valeur celulle dans label

Merci pour ta solution

Mais peut-on faire plus simple

du type :Label1.Caption = (Range("b5"))

c'est pour que je puis adapter plus facilement à mon fichier ( je ne suis que débutant)

le fichier que j'ai mis en PJ n'est qu'une petite parie du fichier final.
j'ai plus de 15 Label par feuilles positionnés sur une image de formulaire de mon client ( impossible d'avoir l'original)
C'est pour cela que je passe par des Labels ...

Mais j'en demande peut-être beaucoup

désolé

 

[Staple1600]

Re : valeur celulle dans label

Re________________________________________EDITION: Bonsoir xhudi69 😉

wrap food
Inscrit sur le forum depuis 2005, tu ne peux pas te considérer comme débutant, non ?

Le code que je t'ai proposé est pourtant assez simple
(et avec la boucle, on identifie tous les labels sur la feuille)
Tu proposes ceci

Mais peut-on faire plus simple

du type :Label1.Caption = (Range("b5"))

Tu as testé?
Non car tu aurais vu que la syntaxe serait de style 😉
(ici exemple avec des Labels renommés)

Private Sub Worksheet_Change(ByVal Target As Range)
Set ws = ActiveSheet
ws.OLEObjects("lbPRENOM").Object.Caption = [B4]
ws.OLEObjects("lbDNaissance").Object.Caption = [B5]
ws.OLEObjects("lbLNaissance").Object.Caption = [B6]
ws.OLEObjects("lbDept").Object.Caption = [B7]
End Sub

En quoi c'est plus simple si tu as 15 labels, de ne pas passer par une boucle?
• Solution avec boucle 7 lignes de codes 😀
• l'autre syntaxe: 16 lignes de codes, et avec N labels, N lignes de code 🙄😕

 

[xhudi69]

Re : valeur celulle dans label

Bonsoir wrap food, le Forum,
Bonsoir Staple1600 🙂

j'ai plus de 15 Label par feuilles positionnés sur une image de formulaire de mon client ( impossible d'avoir l'original)

Si il n'est pas trop complexe, il serait peut-être bon de le reconstituer, surtout si tu sais à quoi il sert vraiment 🙄

@+ 😎

 

[wrap food]

Re : valeur celulle dans label

Bonsoir xhudi69
Bonsoir Staple 1600

C'est un doc pour des accès sécurisé dans locaux privés .
j'y est bien pensé mais cela ne donne pas le résultats souhaités et mon client refuse les docs que j'ai déjà fait.

mais encore merci d'essayé de résoudre mon problème

 

[Staple1600]

Re : valeur celulle dans label

Re

wrap food
Il te suffit de faire une copie de ton classeur avec des données fictives !!!
mais qui ressemble à l'original par sa structure et son son fonctionnement.
Par exemple, ici tu peux créer un classeur avec trois feuilles avec N labels et une feuille base de donnée
avec des données du type
NOM1 PRENOM1 01/01/2000 LNAISSANCE1 DEPT1
etc...

(Quand même depuis 2005, ce n'est pas la première fois que tu lis ce genre de conseils, non 😕😕)

 

[wrap food]

Re : valeur celulle dans label

bonjour

Voila j'ai affiné le fichier avec
1 onglet base
1 onglet demande d'accès pour choisir le document a remplir et la personne ( avec fichier déroulant)
1 onglet par type de doucement d'accès.

Si quelqu'un peut me dire comment faire cela m'aiderai ..

Par avance merci

 

[Staple1600]

Re : valeur celulle dans label

Re

wrap food
Si déjà, tu suivais tous les conseils donnés...
Ou sont les formules RECHERCHEV que je te suggérais de modifier dans ce message?
https://www.excel-downloads.com/threads/valeur-celulle-dans-label.216725/
De plus le fait que tu joignes un fichier *.xlsx, laisse à penser que tu n'as pas essayé le code VBA que je t'ai proposé.
(Un fichier xlsx ne peut pas contenir de macros)

Pour le reste, le remplissage des labels, les codes VBA précédemment fournis le font.
Encore faut-il l'utiliser ou du moins le tester.

Donc il suffit de faire la même chose sur ton fichier chez toi (en adaptant si besoin)

Où est-ce que tu bloques ??

PS: Pourquoi se compliquer à mettre des labels sur une image?
alors que ce qu'il y a sur l'image, on peut le faire sur les cellules en choisissant la bonne police et le format spécial sur Excel
qui ressemble aux points de suites sur Word.

 

[xhudi69]

Re : valeur celulle dans label

Bonsoir wrap food, le Forum,
Bonsoir Staple1600 🙂

Vite fait sur le gaz, est-ce quelque chose comme cela que tu veux 😕

Désolé si je suis à coté de la plaque, mais les temps sont durs 😉

@+ 😎

 

[Staple1600]

Re : valeur celulle dans label

Bonsoir xhudi69

xhudi69
Il y avait une image avec des labels sur cette image.
C'est ces labels que wrap food voudrait remplir
Et je vois que tu utlises des TextBox.C'est pas du jeu 😉
Par contre elle est passée ou l'image ?

EDITION: Quoi! Dans un userform !! Alors là, c'est de la triche 😛
wrap food n'a jamais dit qu'on avait le droit d'utiliser un userform.

M'en fiche. Car je suis sur qu'ensuite il faudra l'imprimer cet userform textbotisé, et là ce sera moins joli. Nah !