valider la chaîne de format pour les valeurs numériques dans excel (dna) - excel, excel-vba, excel-interop, excel-dna, vba

J'utilise un ADN Excel pour gérer un complément Excel. J'applique un format numérique à une cellule en utilisant Range.NumberFormat = myformat;. Je ne connais pas à l’avance la chaîne myFormat, elle est définie dans un backend.

Dans les bons cas, myFormat est quelque chose comme "0.00; (0.00) "ou" # ## 0,00 _ €; [Rouge] - # ## 0,00 _ € ", dans d'autres, quelque chose comme" toto ". Dans le dernier cas, l'affichage dans la cellule Excel est ########## ou quelque chose qui n’a pas de sens.

Alors, y a-t-il un moyen de vérifier que la chaîne myFormat est un format numérique valide pour excel avant d'appliquer le format à la cellule?.

Merci, Mario.

Réponses:

Sub tester()
Dim rng1 As Range, rng2 As Range

Set rng1 = Range("F1")" Formatted with 2 decimal places
Set rng2 = Range("G1")" Formatted with 6 decimal places

If rng1.NumberFormat <> rng2.NumberFormat Then
Beep
End If

End Sub