Discussion :

[Orbeaman]

Bonjour,

J'ai déjà pas mal lu d'article à propos des déclarations Declare et notamment par la différence de typage introduite par PtrSafe.

Etrangement, quand j'écris par exemple la déclaration conditionnelle, la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
#If VBA7 And Win64 Then
    Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#Else
    Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long) '<= apparaît en rouge
#End If

Avez-vous une explication ?

Merci par avance !

[Arkham46]

Bonjour,

L'éditeur vérifie la syntaxe (juste pour la coloration) en fonction de la version en cours d'utilisation, même sur les lignes non concernées par la compilation conditionnelle.

C'est rouge mais ça ne veut pas dire grand chose.

[Orbeaman]

Merci, je dois avouer ne pas avoir eu le courage de lancer une macro dans ces conditions...

Du coup, je me pose une autre question similaire. Je développe une macro sous Excel 2013 et il faut qu'elle soit également compatible avec Excel 2010 moyennement quelques "allégement".

Le code suivant plante, car la constante msoChartFieldRange de type MsoChartFieldType n'existe pas dans Office 2010. Est-ce possible de contourner ce problème ? Je tiens à préciser que je souhaite vérifier la version d'Office dans la version et non avant son appel. Je guère non plus envie de redéfinir la constante, ce que je crains être inévitable.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
 
    If Application.Version < "15.0" Then Exit Sub
 
    '...
 
    Dim srs As Series
 
    srs.DataLabels.Format.TextFrame2.TextRange.InsertChartField ChartFieldType:=msoChartFieldRange, _
                                                                                        Formula:=Range(...), _
                                                                                        Position:=-1
    '...
 
End Sub

[clementmarcotte]

Bonjour,

C'est une nouvelle caractéristique de Excel 2013. À part que de créer l'équivalent en Excel 2010, il n'y a pas vraiment d'autre solution que de t'en passer. En général, c'est mieux de développer sur la version la plus ancienne. Ils font plus attention à la compatibilité ascendante qu'à la compatibilité descendante.

[RAFAAJ2000]

Tu peux utiliser le valeur de la Enum/Constante msoChartFieldRange au lieu de son nom ... Dans votre cas vous mettrez 7

Aussi tu peux utiliser la Method CallByName sur l'object TextRange et gerer l'erreur 438

PS:
SVP - ignore la premiere proposition car je viens de realiser que la Method InsertChartField n'existe pas dans excel 2010

[RAFAAJ2000]

Essaie cela :

Ce code ne produit pas d'erreur de compilation en excel 2010 meme si la propriéte InsertChartField n'existe pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub ExampleCallByName()
 
    Dim oTextFrame2 As TextFrame2
    Dim oObj As Object
 
    Set oTextFrame2 = Feuil1.ChartObjects(1).Chart.SeriesCollection(1).DataLabels.Format.TextFrame2
 
    On Error Resume Next  'cette ligne fonctionne en excel 2013
        Set oObj = CallByName(oTextFrame2.TextRange, "InsertChartField", VbMethod, 7, ActiveCell ,1)
    On Error GoTo 0
 
    If oObj Is Nothing Then  'si oObj est Nothing donc on affaire a excel 2010
        Debug.Print "excel 2010"
        'Continue ici avec ton code alternatif pour excel 2010 ...
    End If
 
End Sub