Enregistrement de Macro
Bonjour à tous,
Je tente de créer une macro à partir de l'enregistrement de macro, mais je n'arrive pas à la réutiliser par la suite.
Ci joint le fichier test (situation initiale)
le fichier test1 (situation voulu après manip manuelle)
le fichier test2 (une fois la macro enregistrée lancée)
Le résultat n'est pas du tout le même.
Pourriez vous m'apporter vos lumières sur le pourquoi de cette différence.
Pour info : Macro enregistrée
Sub Macro()
'
' Macro Macro
'
'
Cells.Select
Selection.Replace What:="0", Replacement:="0", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="1", Replacement:="1", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="2", Replacement:="2", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="3", Replacement:="3", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="4", Replacement:="4", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="5", Replacement:="5", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="6", Replacement:="6", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="7", Replacement:="7", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="8", Replacement:="8", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="9", Replacement:="9", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("E:G").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(E1>=0,8;E1<0,85)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = -0.249946592608417
End With
Selection.FormatConditions(1).StopIfTrue = True
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(E1<>"""";E1<0,8)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = True
Range("B2").Select
End Sub
Merci d'avance pour votre aide
Peka
Salut,
Dans Test et Test2, les pourcentages sont des textes : par exemple 80,00 %
et ils sont alignés à gauche par défaut.
Dans Test1, les pourcentages sont numériques : 80,00% et alignés à droite.
Voila pourquoi la mise en forme conditionnelle marche dans ce fichier et pas dans Test2.
Pour corriger, tu peux remplacer " %" par "%" dans les colonnes E, F et G.
A+
H
Manuellement c'est faisable, mais par macro je n'y parviens pas.
C'est justement ça le problème que je rencontre.
Je voudrai que cela se fasse automatiquement
Ou au pire, existe t-il une macro susceptible de virer ces ***** de triangles verts ?
Sachant que ce fichier sera utilisé sur plusieurs PC, je ne cherche pas à désactivez la case Activer la vérification des erreurs arrière-plan
Merci
Essaie cette macro à placer dans ton fichier Test2 :
Sub M_Remplacer_Textes()
'Cette macro remplace les " %" par des "%"
'ce qui donne des pourcentages exploitables
Columns("E:G").Select
Selection.Replace What:=" %", Replacement:="%", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End SubA+
H
Ca a pas l'air de fonctionner.
J'avou ne pas comprendre pourquoi ça fonctionne manuellement mais pas en macro