Compatibilité 2007 2010
Bonjour bonjour,
Un petit soucis concernant une macro Excel écrite sous 2007 et qui sous 2010 présente une fonction en moins.
Un bouton associé a un copié collé d'une ligne possède deux interfaces:
L'une avec "ajouter a la facture"
L'autre avec 'enlever a la facture"
Vous comprenez qu'une fois cliqué sur "ajouter a la facture" le texte du bouton se transforme en "enlever a la facture".
Pour info, la copie se dirige vers une autre feuille du classeur Excel.
HORS, le problème est que si j'effectue cette macro sous Excel 2010, le bouton reste inchangé et affichera toujours "'ajouter a la facture".
Voici les macro présente dans le classeur excel:
Macro1:
Rows("30:30").Select
Selection.Copy
Range("A31").Select
Selection.Insert Shift:=xlDown
Range("B27").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("B30:L30").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Range("L25").Select
End Sub
Macro 2:
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub
Macro 3:
Range("C10").Select
Selection.Locked = False
Selection.FormulaHidden = False
Selection.Locked = True
Selection.FormulaHidden = True
ActiveWorkbook.Save
ActiveWorkbook.Save
ActiveWorkbook.Save
ActiveWorkbook.Save
Quelqu'un peut-il m'indiquer ou se trouve le problème de compatibilité, ou alors une liste des termes à changer dans une macro lorsque l'on passe de 2007 à 2010 ?.
Merci par avance.
Un utilisateur un peu perdu et pas super fort
Bonjour,
Un petite fichier pour l'exemple avec tes besoins?
Cordialement.
Bon j'ai résolu mon petit problème.
Office 2010 ajoute l'option "protection du fichier" via un raccourci situé dans l'onglet "Révision".
Si la protection est activé, les boutons qui étaient sensé changer via une macro ne changent plus puisque office dois prendre cela comme une modification du texte du document excel.
Il suffit alors d'"Oter la protection" pour que la macro fonctionne à nouveau.