Microsoft 365 #bloqué!

[LEPATOCHE]

Bonsoir le forum ,
j'ai un problème de quoi a s'arracher les cheveux un truc que je n'ai jamais vu sur
EXCEL de quoi perdre les pédales enfin bref je voudrais pas vous prendre tous pour des bébêtes mais
j'ai bien peur que ça ne soit pas possible d’être résolu ; donc dans une cellule que c’a soit n'importe la quel
quand je valide une formule =TRANSPOSE(Liste_des_onglets) et quand j'ai fini de marquer ma formule et je valide sur la touche entrer
c’a me marque #bloqué!
moi j'ai Microsoft 365 c'est pour cela que j'ai valider que sur une seule touche et mon classeur n'ai pas du tout
protéger et ni dans validation des données !
alors vous en pensez quoi de ce problème gigantesque merci de votre aide !

je voudrais bien vous joindre mon fichier mais trop volumineux !

 

[mapomme]

Bonjour @LEPATOCHE,

Je suppose que "Liste_des_onglets" (mais comment le savoir ?) est issue de l'utilisation de macros Excel 4.0.
Par défaut, ces macros sont bloquée dans Excel O365.

Voir la page web de chez Krosoft : Comment corriger un #BLOQUÉ ! erreur.
Sur cette page, vous avez un passage :

Si vous déroulez cette rubrique, vous avez un lien vers :
"Pour plus d’informations, consultez Utilisation des macros Excel 4.0."

Dans cette nouvelle page, vous trouverez la procédure pour autoriser les macros Excel 4.0.

 

[LEPATOCHE]

Bonjour mapomme et a vous tous ;
je vous joint un fichier voyer ce que ca donne dans la cellule A2

 

[mapomme]

Bonjour @LEPATOCHE ,

Je n'arrive pas à reproduire le phénomène sur ma bécane.
Attendons d'autres suggestions...

 

[LEPATOCHE]

comment cela peux ce produire avez vous une idée ?

 

[mapomme]

comment cela peux ce produire avez vous une idée ?

Ma première idée est qu'il s'agit d'un paramétrage (d'autorisation, d'activation, etc.) au niveau de votre Excel O365 d'où ma première suggestion.
Mais il faut se méfier des premières idées ...

 

[Dranreb]

Bonjour.
Moi j'ai #NOM!.
À votre place, je mettrais dans Feuil1 (Feuil1) :

Option Explicit
Private Sub Worksheet_Activate()
   Dim T() As Variant, N As Integer
   ReDim T(1 To ThisWorkbook.Sheets.Count, 1 To 1)
   For N = 1 To UBound(T, 1)
      T(N, 1) = Sheets(N).Name
      Next N
   Me.[A2].Resize(10000).ClearContents
   Me.[A2].Resize(UBound(T)).Value = T
   End Sub

Et dans ThisWorkbook :

Option Explicit
Private Sub Workbook_Open()
   Feuil1.Activate
   End Sub

Et je supprimerais le nom Liste_des_onglets.

 

[LEPATOCHE]

sur le premier fichier que j'ai envoyer c’a ne marche pas ! est un nouveau fichier c’a marche a merveille !
je vous joint le nouveau ! et voila trouver l'erreur

 

[Cousinhub]

Bonjour,
Si ça peut donner des idées...
Bonne journée

 

[LEPATOCHE]

dans le deuxieme fichier que j'ai envoyer ca marche ok ! mais si ont double clic sur la cellule A3
et bien sa marque #BLOQUE ! verifier de vous meme ce truc bizard

 

[Cousinhub]

Re-,
Bienvenue dans le monde 365 (ou 2021). Les formules se propagent toutes seules, et si on les empêche, pas contentes, les formules...

 

[LEPATOCHE]

de mon coté le paramétrage des macros est largement OK !
alors pas de solution pour moi j'ai tout fait encore chou blanc mais merci
quand même je reste connecter au cas ou une personne trouverai réponse

 

[Dranreb]

Et ma solution poste #7 ?

 

[LEPATOCHE]

OK c’a marche Dranreb merci a vous tous !