erreur d'exécution basic. '423' TintAndShade

[Patrick1964]

Bonjour à tous et merci de m’accueillir dans votre site d’entraide
J’ai il y a quelques années effectué écrit sous excel avec des macros les lignes de commandes ci-dessous mais voilà en vb pas de problème même si j’écrit mal mais ca fonctionne , au travail ils m’ont enlevés la suite office pour me mettre LibreOffice mais les macros sont écrits en basic d’où mon problème.
Une âme charitable voudrais bien m’expliquer pourquoi j’ai un retour d’instruction "Erreur d’exécution BASIC.
‘423’ TintAndShade "

Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1

Sub L_30()

 L_30 Macro'
' Limitation 30'   

    Selection.Copy
    Columns("H:H").Select
    ActiveSheet.Paste
    Range("H1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Vitesse limité"
    Range("I5").Select
    Columns("H:H").ColumnWidth = 12.29
    Columns("H:H").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
    Columns("H:H").Select
    Selection.Replace What:="1", Replacement:="30", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="2", Replacement:="30", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Avec mers remerciements
Patrick

[PYS]

Bonjour @Patrick1964

Selon cet article la propriété n’est disponible que pour les objets Application.Version >= 12 or

print Application.Version

renvoie 11 dans le contexte LibreOffice.

De toute manière, je ne pratique pas Excel mais, en effet, cette propriété permettant d’éclairer/assombrir une couleur n’est pas disponible dans LibreOffice qui gère cela différement (couleur & transparence ) cf. Format▸Cellule▸ onglet Effet de police.

Tu pourras définir la couleur par ex. comme ceci :

thiscomponent.currentSelection.CharColor = -16776961

Cordialement

[Patrick1964]

Bonjour,
j’ai effectué le changement cela fonctionne
un grand merci
pouvez vous me conseiller concernant cette programmation
Cordialement
Patrick

[PYS]

me conseiller concernant cette programmation

La question est un peu vague… donc réponse générale : la page Macros de notre wiki regroupe l’essentiel des ressources disponibles.

Cordialement