concatener dans label laveur cellule et texte

[wrap food]

Bonjour,

je souhaiterais recuperer dans une cellule d'une feuille une valeur( au format date JJJ JJ MMM AAAA) et la concatener avec un texte " nous somme le :" et mettre tous cela dans le Label d'un USF

Si vous avez la solution

par avance merci

 

[KenDev]

Re : concatener dans label laveur cellule et texte

Bonsoir Wrap Food,

Sans avoir tester, dans l'initialisation de l'userform :
Label1.Caption = "Nous sommes le " & Format(cells(1,1), "jjjj jj mmm yyyy") devrait fonctionner (sauf fautes de frappes)

Cordialement

KD

 

[Staple1600]

Re : concatener dans label laveur cellule et texte

Bonsoir

EDITION: si nous sommes le inutile de passer par une cellule 🙄

Private Sub UserForm_Initialize()
Label1.Caption = "Nous sommes le " & Format(Date, "dddd dd mmm yyyy")
End Sub

wrap food
Ou est la difficulté ?

Tu as cherché sur le forum des fils de discussions similaires?

Tu as regardé l'aide VBA ?

Tu as essayé quelque chose au moins ?

EDITION: trop rapide le KenDev, faut dire que mon pyjama n'est pas trés ample

 

[KenDev]

Re : concatener dans label laveur cellule et texte

Bonsoir Staple, WrapFood,

@Staple : A moins que tu aies pris du poids ? 🙂 Je fais référence à tes 11kg bien sur...
Sinon je trouve aussi que c'est une question de quelqu'un devant posséder moins de 10 posts à son compteur, mais parfois je ne résiste pas à une occasion de faire le malin. 😛

Cordialement

KD

 

[KenDev]

Re : concatener dans label laveur cellule et texte

Bonsoir Carcharon et les autres,

Je le fait systématiquement et même des

 dès que le code est un peu conséquent mais là c'était pour indiquer que je l'avais fait à main levée, avec les risques que cela comporte.Mettre des j à la place des d par exemples... :rolleyes:

Cordialement

KD

 

[Staple1600]

Re : concatener dans label laveur cellule et texte

Bonsoir Staple, WrapFood,
.
Sinon je trouve aussi que c'est une question de quelqu'un devant posséder moins de 10 posts à son compteur,

KD

Ce qui me tracasse, c'est que Wrap food est inscrit depuis 2005.
En six ans, il a du en voir passer des fils avec des userforms plein de labels.
je m'étonne donc qu'il ne connaisse pas Format

edition: bonsoir CC

 

[wrap food]

Re : concatener dans label laveur cellule et texte

Bonjour à tous,,

j ai un probéme sur le code, a priori, il y a une incompatibilité avec

-Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Load caisses
caisses.Show
End Sub

lorsque la procédure commence
j 'ai un bloquage qui apparé
erreur d exécution '13'
imcompatibilité de type


si vous pouviez m'aider

par avance

merci

 

[Staple1600]

Re : concatener dans label laveur cellule et texte

Bonjour le fil

wrap food
C'est une autre question non ?
Rien à voir avec un label

Donc tu devrais ouvrir un autre fil de discussion (cf la charte)
(sauf si tu te décides à chercher enfin un peu seul des solutions aux problèmes rencontrés en VBA)

 

[wrap food]

Re : concatener dans label laveur cellule et texte

Bonjour,Staple1600

je sais pas si sais une autre question mais je pense pas .

seriez vous pourquoi j ai ce mesage d'erreur qui apparé..

J'ai cherché sur le forum mais j ai rein trouvé..

mais je suis pas tres bon en VBA.

merci par avance

 

[Staple1600]

Re : concatener dans label laveur cellule et texte

Re


Comme le dit la charte
Il est préférable de joindre un fichier exemple pour illustrer le problème rencontré...

Franchement, je ne comprends pas ta façon de fonctionner sur XLD.

Tu es membre depuis 2005 pourtant.

 

[wrap food]

Re : concatener dans label laveur cellule et texte

Re
Staple1600

comme c'est pas tres clair je joints un fichier test .

je n'arrive pas a comprende pourquoi sa bloque sur "Load " de USF

si vous trouvé, je vous en serais reconnaissant

Merci

 

[Guest]

Re : concatener dans label laveur cellule et texte

bonjour,

Mon ami Staple t'avais donné une réponse il y a déjà longtemps au post #3

Label22.Caption = "Saisie des caisses du " & Format(Date, "dddd dd mmm yyyy")

Il faut lire les réponses

A+

 

[Staple1600]

Re : concatener dans label laveur cellule et texte

Re


C'est ici que cela coince
C'est soit:

Private Sub UserForm_Initialize()
Label22.Caption = "Saisie des caisses du " & Format(Range("a1"), "dddd dd mmm yyyy")
End Sub

ou

Private Sub UserForm_Initialize()
Label22.Caption = "Saisie des caisses du " & Format(Date, "dddd dd mmm yyyy")
End Sub

mais pas un melange des deux 🙄


Il serait utile pour toi de chercher à comprendre la syntaxe, non ?

PS: a1 est vide ...

PS2: Re Monsieur HASCO (faut s'accrocher aux branches parfois 😉 )

 

[wrap food]

Re : concatener dans label laveur cellule et texte

Re

Comme vous avesz peut le constater je ne suis pas doué.

je vous remercie de votre aide et j 'essayerais d'etres plus attentif la prochaine fois.

merci encore

désolé