Microsoft 365 macro bloquée

pierre4

XLDnaute Occasionnel
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
 

pierre4

XLDnaute Occasionnel
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.
 

cathodique

XLDnaute Barbatruc
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.
VB:
Set Recherche = Sheets("Ouvrages").Range("D:G").Find(Cellule, lookat:=xlWhole)

La feuille Ouvrages n'existe pas dans ton fichier.
 

cathodique

XLDnaute Barbatruc
bonjour JHA
en ouvrant votre fichier
je ne comprends pas...
peut-être comme ceci tu comprendras mieux
pierre4.gif
 

cathodique

XLDnaute Barbatruc
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.
1636801087741.png
 
C

Compte Supprimé 979

Guest
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 😜🧐

@+
 

Pièces jointes

  • Pierrre4_Classeur11.xlsm
    26.1 KB · Affichages: 7

Discussions similaires

Réponses
4
Affichages
410
Réponses
8
Affichages
650

Statistiques des forums

Discussions
314 450
Messages
2 109 721
Membres
110 551
dernier inscrit
Khyolyanna