La fonction égale ne recopie pas le format

[Océane]

Bonjour le forum
Je ne sais pas si mon titre est évocateur mais le pB est simple dans l'exemple joint.
Par contre j'ai peur qu'il n'est pas de solution ....! mais on ne sait jammais avec le potientiel que represente XLD.
Merci d'avance et bon week end

 

[jeanpierre]

Re : La fonction égale ne recopie pas le format

Bonjour Pierre,

Pour moi, aucune solution sauf VBA qui va "pomper" l'info. et la restituer....

Excel sait, sois-disant, reconnaître les formats, ben...non... sauf les formats dates ou heures, qu'il t'impose d'office alors que tu ne souhaites qu'un simple calcul et un format ordinaire...

Les couleurs, contours et autres gras.... il s'en moque....

Bonnes fêtes à toi et à tous.

Jean-Pierre

 

[Océane]

Re : La fonction égale ne recopie pas le format

C'est bien ce que je pensais.
Un oubli : joyeux Noêl

 

[Excel_lent]

Re : La fonction égale ne recopie pas le format

Bonjour Oceane, JeanPierre

Un substitut m'a soufflé Alice en ce pays merveilleux : un doubleclick (VBA bien sûr).

Elle se joint à moi pour vous souhaiter, à tous, de passer de joyeuses fêtes.

 

[Océane]

Re : La fonction égale ne recopie pas le format

Bonsoir à tous
Je savais bien que je trouverai un accro de la macro, Excel_lent, çà marche mais à condition que l'on sache exactement ou mettre la formule =;
Si tu as le temps peux tu faire en sorte que le double clic se fasse à l'endroit ou on dépose la formule.
En plus moi j'ai besoin de travailler sur une feuille différente;
Voila si tu peux contacter une autre substitut...
Bon dimanche

 

[gbinforme]

Re : La fonction égale ne recopie pas le format

tu faire en sorte que le double clic se fasse à l'endroit ou on dépose la formule.
En plus moi j'ai besoin de travailler sur une feuille différente

Bonsoir Océane, le forum
Tu peux essayer de mettre cette macro dans Thisworkbook

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim sel As Object
Cancel = True
On Error GoTo fin
Set sel = Application.InputBox("Choisissez la cellule ou la plage à copier", "Choix de zone à copier", , , , , , 8)
sel.Copy Target
fin:
End Sub

Bonnes fêtes à tous

 

[Océane]

Re : La fonction égale ne recopie pas le format

Super çà marche
Merci gbinforme et bonne nuit à tous