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

 

[wrap food]

Re : valeur celulle dans label

bonjour,

je confirme il faudrait que je puisse imprimer le fichier apres ...

bien vu staple1600
encore désolé

 

[xhudi69]

Re : valeur celulle dans label

Bonjour wrap food, le Forum,

Avant d'aller plus en avant avec cet UserForm, j'aimerais savoir si cela te convient 😕
Si c'est le seul formulaire (et dans ce format) , que ton client te donne, et quelle prestation doit-tu lui fournir exactement (je n'ai pas bien saisis 😕 )

Ce que j'en ai compris, tu dois établir des feuilles d'autorisation tirées d'une base de données, j'ai juste ??
Dans l'affirmative je vois pour l'impression, pas ce matin car j'ai des courses à faire............😛

@+ 😎

 

[xhudi69]

Re : valeur celulle dans label

Bonjour wrap food, le Forum,
Chapeau bas staple1600 🙄

Vite fait sur le pouce, en PJ ton fichier avec l'UserForm formulaire. 😛

Pour déplacer l'UserForm: Click sur "TRAVAIL - COURTE DUREE" et déplace le.
Pour imprimer: Click dans le coin supérieur Droit.
Pour sortir de l'UserForm: DoubleClick sur "TRAVAIL - COURTE DUREE"

Si cela te convient......dis-moi.

@+ 😎

EDIT: Salut "Prisonner of the Grid" 😉 ....alors paris gagnés --...🙂...-- isn't it

 

[Staple1600]

Re : valeur celulle dans label

Salut xhudi69

Dans l'affirmative je vois pour l'impression, pas ce matin car j'ai des courses à faire............

J'espère que tu n'as pas oublié les œufs ou le lait.
Bon oui je sais là le pari est plus risqué 😉
mais si t'as vraiment oublié les œufs alors ça fait deux paris de gagné !

ok je sors 😉

 

[wrap food]

Re : valeur celulle dans label

bonjour à tous les deux

je suis désolé de répondre aussi tardivement

xhudi69

comment as tu fait pour mettre l'image dans l'userform ??
je n'arrive pas a le refaire

ta solution est surement la bonne; mais comme l'avait prévue staple1600, j'ai besoin d'imprimer le document une fois qu'il est rempli .

as-tu la solution

par avance merci

 

[xhudi69]

Re : valeur celulle dans label

Bonjour wrap food, le Forum,

Je l'ai dis ici:

Pour imprimer: Click dans le coin supérieur Droit.

comment as tu fait pour mettre l'image dans l'userform ??
je n'arrive pas a le refaire

Regarde bien dans les propriétés de UserForm1.......

@+ 😎

 

[wrap food]

Re : valeur celulle dans label

Re-bonjour Xhudi69


j'ai bien regardé les propriétés de UserForm1
j'ai tous mis comme sur le votre
sauf 😛ICTURE : (image bitmap) que je n'arrive pas à changer

et je ne peux pas copier une image dans l'Userform en direct ni en faisant copier coller ni en passant par la boite a outil vba.

je suis vraiment désolé mais pourriez-vous me donner quelques informations complémentaires

Merci de votre patience

cdt

 

[xhudi69]

Re : valeur celulle dans label

Bonsoir wrap food, leForum,

En fait j'ai fait une capture du formulaire sur ton fichier initial puis je l'ai exporté en image BitMap dans mon répertoire "Mes Images".
Puis dans les propriétés de l'UserForm.Picture, je l'ai tout simplement importé.

Lorsque l'UserForm a son image en fond, je n'ai plus qu'a mètre les TextBox et ComboBox à leur place avec leur proptiétés BackStyle à transparent.

@+ 😎

 

[wrap food]

Re : valeur celulle dans label

merci

super

et bravo

 

[wrap food]

Re : valeur celulle dans label

re bonjour

Désolé mais je pensais (et c'est faux ) qu'avec votre solution je pourrais m'en sortir tous seul Mais voila........


j'essaye d'adapter votre solution à mes besoins et le ni arrive pas .... ( c'est pas étonnent vu mon niveau )

en faite j'ai 14 colonne de données soit 14 info pour chaque personnes et je pensais "simplement" quand modifiant le code comme cela fonctionnerais
mais ce n'est pas le cas pourriez vous m'expliquer pourquoi ? ( j'aime bien comprendre ce que je fais)

par avance merci


Private Sub ComboBox1_Change()
Dim i As Integer, Drl As Integer, j As Integer

With Sheets("Base donnée")
Drl = .Range("A65500").End(xlUp).Row
For i = 2 To Drl
If .Cells(i, 1).Value = ComboBox1.Value Then
For j = 1 To 15
Controls("TextBox" & j).Value = .Cells(i, 1).Offset(, j)
Next j
End If
Next i
End With
End Sub

Private Sub ComboBox1_DropButtonClick()
Dim c As Range
Dim Drl As Integer
If ComboBox1.ListCount > 0 Then Exit Sub
With Sheets("Base donnée")
Drl = .Range("A65500").End(xlUp).Row
For Each c In .Range("A2:A" & Drl)
ComboBox1.AddItem c
Next c
End With
End Sub
Private Sub imprimer_Click()
Me.PrintForm '.........Impression de l'UserForm.....
End Sub
Private Sub fermer_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Unload Me
End Sub

Private Sub UserForm_Activate()
'=====================================================
FrmWndh = FindWindow(vbNullString, Me.Caption) ' ====
lStyle = GetWindowLong(FrmWndh, GWL_STYLE) ' ====
lStyle = lStyle And Not WS_CAPTION ' ====
SetWindowLong FrmWndh, GWL_STYLE, lStyle ' ====
'=====================================================
End Sub
Private Sub UserForm_Initialize()
End Sub
'================================================
Dim Style As Long ' ====
Hwnd = FindWindow(vbNullString, Me.Caption) '====
SetWindowLong Hwnd, -16, Style ' ====
DrawMenuBar Hwnd ' ====
'================================================
End Sub

 

[xhudi69]

Re : valeur celulle dans label

Bonsoir wrap food, le Forum

Il faudrait que tu me joignes ton fichier (avec données anonimisées) mais avec ta structure actuelle, je pourrais ainsi adapter le code.

@+ 😎

 

[wrap food]

Re : valeur celulle dans label

Bonjour désolé

j'ai eu quelque petits soucis

voila le fichier avec le nombres de champs qu'il me faudrait (Feuil1)

Si vous pouviez m'aider

et m'expliquer comment cela marche ( j'aime bien savoir)


Par avance merci de votre aide

 

[xhudi69]

Re : valeur celulle dans label

Bonjour wrap food, le Forum

Merci de ne pas modifier le fichier source, en l'occurence celui du post#18 (qui fonctionnait bien pour un début) 🙁

Les champs de la "Feuil1" ne correspondent pas tout à fait.
pour que le fichier fonctionne il faut:
Une base pour le personnel avec les renseignements d'usage
Une base organisme de médecine du travail
Une base société réceptionnaire (demandeuse) du certificat

Donc fais moi ces 3 onglets en mettant les entêtes de colonnes identiques à ce que demandé par le formulaire.

@+ 😎

 

[wrap food]

Re : valeur celulle dans label

Bonjour et merci de prendre de votre temps

voila le fichier avec les onglet' personnel " "médecine travail" et "société"


merci encore

 

[xhudi69]

Re : valeur celulle dans label

Bonjour wrap food

merci pour le fichier, OverBooké en ce moment, je vois ce que je peux faire 🙂

@+ 😎