Microsoft 365 macro bloquée

[pierre4]

Devis

+

1.00​

2*3

#BLOQUÉ!​

... =SI(F3="-";-@calcul*G3;@calcul*G3)

bonjour,
depuis peu, j'ai mes macros qui sont bloquées...est ce dû à office?
pouvez vous m'aider svp
merci
Pierre

 

[Compte Supprimé 979]

Bonjour Pierre4

Est-ce qu'on peut avoir le fichier ou les macros qui bloquent !?

A+

 

[pierre4]

bonjour Bruno
ci joint un fichier

 

[pierre4]

avec le fichier c'est mieux!

 

[cathodique]

avec le fichier c'est mieux!

Bonjour BrunoM45😉, @pierre4 🙁,

@pierre4: Il n'y a aucun code dans ton fichier. C'est une blague ou quoi?

 

[JHA]

Bonjour à tous,

Il y avait une mauvaise syntaxe de la formule en "D2"

JHA

 

[pierre4]

bonjour,
pardon oui je viens de voir qu'il n'y avait plus la macro...
non normalement la cellule avec la macro me fait les multiplications...maintenant cela me mets "bloqué"
dans la cellule "bloqué" il y a =SI(F3="-";-@calcul*G3;@calcul*G3)

Sub Métrés()
Dim plage As Range, Cellule As Range, Recherche As Range
If ActiveSheet.Name = "Métrés" Then
Set plage = ActiveSheet.Range("A1:B1000")
Else
Exit Sub
End If
For Each Cellule In plage
If Not Cellule.Value = "" Then
Application.FindFormat.Clear
Set Recherche = Sheets("Ouvrages").Range("D:G").Find(Cellule, lookat:=xlWhole)
If Not Recherche Is Nothing Then
Cellule.Font.FontStyle = Recherche.Font.FontStyle
Cellule.Font.Italic = Recherche.Font.Italic
Cellule.Font.Size = Recherche.Font.Size
Cellule.Font.Bold = Recherche.Font.Bold
Cellule.RowHeight = Recherche.RowHeight
Cellule.Font.ColorIndex = Recherche.Font.ColorIndex
Cellule.Interior.Color = Recherche.Interior.Color
Cellule.Borders(xlEdgeBottom).LineStyle = Recherche.Borders(xlEdgeBottom).LineStyle

End If
End If
Next Cellule
End Sub


pourquoi? je ne m'y connais pas malheureusement.

 

[pierre4]

bonjour JHA
en ouvrant votre fichier
je ne comprends pas...

 

[cathodique]

bonjour,
pardon oui je viens de voir qu'il n'y avait plus la macro...
non normalement la cellule avec la macro me fait les multiplications...maintenant cela me mets "bloqué"
dans la cellule "bloqué" il y a =SI(F3="-";-@calcul*G3;@calcul*G3)

Sub Métrés()
Dim plage As Range, Cellule As Range, Recherche As Range
If ActiveSheet.Name = "Métrés" Then
Set plage = ActiveSheet.Range("A1:B1000")
Else
Exit Sub
End If
For Each Cellule In plage
If Not Cellule.Value = "" Then
Application.FindFormat.Clear
Set Recherche = Sheets("Ouvrages").Range("D:G").Find(Cellule, lookat:=xlWhole)
If Not Recherche Is Nothing Then
Cellule.Font.FontStyle = Recherche.Font.FontStyle
Cellule.Font.Italic = Recherche.Font.Italic
Cellule.Font.Size = Recherche.Font.Size
Cellule.Font.Bold = Recherche.Font.Bold
Cellule.RowHeight = Recherche.RowHeight
Cellule.Font.ColorIndex = Recherche.Font.ColorIndex
Cellule.Interior.Color = Recherche.Interior.Color
Cellule.Borders(xlEdgeBottom).LineStyle = Recherche.Borders(xlEdgeBottom).LineStyle

End If
End If
Next Cellule
End Sub


pourquoi? je ne m'y connais pas malheureusement.

Set Recherche = Sheets("Ouvrages").Range("D:G").Find(Cellule, lookat:=xlWhole)

La feuille Ouvrages n'existe pas dans ton fichier.

 

[cathodique]

bonjour JHA
en ouvrant votre fichier
je ne comprends pas...

peut-être comme ceci tu comprendras mieux

 

[pierre4]

bonjour, je n'y arrive pas, cela est identique dans tous mes fichiers même des années précédentes...
la fonction "arrondi " fonctionne bien
c'est calcul qui bloque

 

[pierre4]

je pense que c'est la fonction "calcul" qui a disparue d'excel ? impossible? problème de mise à jour ?

 

[cathodique]

je pense que c'est la fonction "calcul" qui a disparue d'excel ? impossible? problème de mise à jour ?

J'avoue que je ne comprends pas grand chose. J'ai parcouru toutes les fonctions de mon Excel2010 et je n'ai pas trouvé de fonction "EVALUER". Mais bizarrement, cette dernière fonction sur ton fichier (voir image)
En effet, l'opération saisie dans les cellules sont bien évaluées. Désolé de ne pouvoir te donner d'explication.

 

[Compte Supprimé 979]

Bonjour tout le monde,

Une reprise d'un post de 2008 d' @eriiic que je salue

Il est effectivement possible de le faire sans vba mais avec une astuce.
Je le livre à titre d'info (vba permet plus de souplesse) mais pour un besoin ponctuel ça peut servir, surtout si on n'est pas à l'aise avec vba.

Sous un ancien excel (le 4 ?) il y avait la fontion =EVALUER(A2) qui permettait justement de calculer le résultat de la fonction ecrite en TEXTE dans A2. Par exemple A1: 5 A2: '=A1*2.54

La fonction (plus documentée) a été désactivée. Si je saisi en A3: =EVALUER(A2) j'ai droit à 'fonction non valide'.

Par contre, en passant par la définition d'un nom on arrive à passer.
Menu 'insertion / nom / définir...'
nom : fonction_variable
fait référence à : =EVALUER(Feuil1!$A$2)
...
eric

Il faut vraiment le savoir 😜🧐

@+

 

[Chris401]

Bonjour à tous
La fonction EVALUER (que l'on trouve dans le nom défini) est une macro xl4
J'utilisais ces macros dans mon jeune temps ...