XL 2019 Impossible de modifier la police

Caninge · 26 Août 2023

Bonjour à tous,

une personne qui travaille dans la même association m'a envoyé un fichier Excel.
Il est prévu par la suite d'ajouter d'autres pages.
Mais en premier lieu, je n'ai jamais vu cela...

Dans la barre de formule rien d'écrit !
Impossible de changer la police et je n'ai pas chercher plus.
Pouvez me donner un coup de main. Il y un mystère à élucider...lol

TooFatBoy · 26 Août 2023

Cousinhub à dit:
Ton fichier sur mon PC

Ah zut, le sauvegarder sur mon Excel 2016 32 n'a pas suffit.

Un dernier essai : est-ce que celui-là passe mieux ???

[edit] J'ajoute un .xlb, au cas où... [/edit]

Cousinhub · 27 Août 2023

TooFatBoy à dit:
Ah zut, le sauvegarder sur mon Excel 2016 32 n'a pas suffit.

Un dernier essai : est-ce que celui-là passe mieux ???

[edit] J'ajoute un .xlb, au cas où... [/edit]

Bonjour,
Comportement similaire, quelque soit le fichier...
Vraiment bizarre cette différence de traitement, selon la version Xl.
Si d'autres personnes (2019, 2021 ou 365) passent par là...

mapomme · 27 Août 2023

Bonjour à tous ,

Avec mon O365, les phénomènes aussi bizarres qu'étranges sont présents.
Je confirme, le classeur est marabouté gravement.
Il n'y a qu'une solution et exceptionnellement je vous la dévoile amicalement (rien que pour vous XLDiens) :

mapomme · 27 Août 2023

Re,

Si la solution ci-dessus ne vous tente pas (tant pis pour vous !) ou bien vous avez essayé cette méthode et ça a échoué (mais ça "c'est pas possible", je n'y crois pas !), alors testez ceci :

Dans votre classeur, dans l'éditeur VBA, insérez un module standard et collez-y le code suivant :

VB:

Sub Montrer()
Dim xrg As Range, x
   With Application
      .ScreenUpdating = False
      .Calculation = xlCalculationManual
      .EnableEvents = False
      On Error Resume Next
      Set xrg = Selection.SpecialCells(xlCellTypeConstants, xlTextValues)
      On Error GoTo 0
      If Not xrg Is Nothing Then
         For Each x In xrg.Cells
            If x.Value <> "" Then x.Value = Application.Clean(x)
         Next x
      End If
      .EnableEvents = True
      .Calculation = xlCalculationAutomatic
      .ScreenUpdating = True
   End With
End Sub

Ensuite :

sur votre feuille de calcul, sélectionnez la plage à traiter
une fois la plage sélectionnée, exécutez la macro Montrer()

Caninge · 27 Août 2023

Bonjour à tous,
Merci pour toutes vos réponses.
Je vais faire autrement on va m'envoyé les fichiers CSV.
En regardant dans la propriété du fichier : Feuille de calcul binaire Microsoft Excel XSLB.
C'est peut-être là le problème. A voir.
Caninge

mapomme · 27 Août 2023

Caninge à dit:
Je vais faire autrement on va m'envoyé les fichiers CSV.

Re,

Avez-vous testé ma macro ?

Caninge · 27 Août 2023

Bonjour mapomme,

oui c'est parfait ca fonctionne.

Mais je vais surtout demander à l'entreprise qui nous envoient ces fichiers,
de nous envoyer des fichiers XLS. Je ne vois pas pourquoi on nous envoie ce genre
de fichiers.

Je pourrais vous envoyer éventuellement le fichier CSV mais il y a des noms de personnes

Merci mapomme

CANINGE

Cousinhub · 27 Août 2023

Caninge à dit:
Bonjour mapomme,

Merci mapomme

CANINGE

Re-,
De rien, les autres n'ont été, à priori, d'aucune utilité...
J'ai essayé d'analyser ce fuck** de fichier, par un autre biais, et sans fichier csv initial, je pense que ça ne va pas être simple...
Si vous pouvez joindre un fichier csv, modifié uniquement par le bloc-note (et surtout pas déjà ouvert par Excel), afin d'enlever les données personnelles, un traitement à l'origine pourrait être envisagé...
Mais...
Bonne soirée et bon courage
Edit, et ce n'est certainement pas le type de fichier xlsb l'origine du souci
Edit2, je confirme que le traitement du fichier csv par le biais de Power Query est tout à fait envisageable (et que toute analyse ultérieur en serait facilitée)

Caninge · 27 Août 2023

Bonsoir à tous,

un message pour Cousinhub : Il ne faut pas dire que vous êtes inutile ce n'est pas vrai !
C'est bien de vouloir aider les autres. C'est une qualité.
Mais moi qui ne comprends pas tout et bien loin la plupart du temps.
Je ne réponds pas individuellement parce que tout simplement je n'y comprends rien du tout.
C'est comme si vous me parliez dans une autre langue que le français. Je n'ai jamais fait d'anglais d'allemand...
Je réponds à la réponse qui me convient le mieux c'est tout.
Allez je souhaite une bonne soirée à tous et merci encore.
Caninge

XL 2019 Impossible de modifier la police

Caninge

XLDnaute Accro

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Pièces jointes

Cousinhub

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

Caninge

XLDnaute Accro

mapomme

XLDnaute Barbatruc

Caninge

XLDnaute Accro

Cousinhub

XLDnaute Barbatruc

Caninge

XLDnaute Accro

Discussions similaires