copie valeur Label dans cellule et format

[bignou77]

Bonjour,

Je vous remercie tous pour commencer, j'ai rendu ma derniere appli a mon boss avant de partir et il est hyper content. et tous ca grace a vous.

Je suis de nouveaux sur une petite appli, et je bloque sur un truc tous simple.
je voudrais copier dans une cellule la valeur d'un label qui est sur le meme onglet, et j'arrive pas.
j'ai taper :
Range("A3").Value = Label1.Value

le label1 est bien sur la feuille et non pas dans un USF

Et je bloque aussi sur une seconde chose qui est encore plus bete.
j'ai dans certaine cellules des mois et année (ex: janvier 2008) et je voudrais que le format ne soit pas date, de maniere a ce que dans la barre de formule il n'y ait pas de caracteres speciaux (dans ce cas "/") je choisi le format pas clic droit, etc... mais rien a faire cela reviens toujours sur un format date avec des "/".


Merci d'avance a tous, je sais c'est surement bete comme tous, mais je galere depuis plus de 2h dessus.

@bientot
Bignou77

 

[skoobi]

Re : copie valeur Label dans cellule et format

Bonjour,

pour le label, essaye ceci:
Range("A3").Value = ActiveSheet.Label1.Caption
.

Edit: j'ai ajouté "ActiveSheet" 😉

 

[bignou77]

Re : copie valeur Label dans cellule et format

Hello,
Merci a toi skoobi, c'est parfait. je savais que ca serais un truc tous bête.

si quelqu'un a une idée pour la mise en forme je suis toujours preneur
merci d'avance.

 

[skoobi]

Re : copie valeur Label dans cellule et format

Re,

la mise en forme du label ou de la cellule?

 

[bignou77]

Re : copie valeur Label dans cellule et format

Re,
Excuse moi skoobi j'etait partie au noel de ma boite.

donc c'est pour une cellule.
je change comme d'ha (clique droit, etc...) mais ca revien toujours (ou reste plutot) sur date, ce qui fait que quand je selectionne une des cellule dans la barre de formule j'ai par exemple pour janvier 2008 : 01/01/2008.
et ca me bloque pour ce que je voudrais faire ensuite.

Merci d'avance a toi ou tous ceux qui ce pencherons sur mon souci.

 

[bignou77]

Re : copie valeur Label dans cellule et format

Trouve,
j'ai mis
Worksheets(2).Range("B3").Value = "janvier" & " " & ActiveSheet.Label1.Caption

et ca marche.

Merci a tous.

@bientot
BIgnou77