Décalation conditionnelle 64 bits (Windows API)

Version imprimable

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:

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 ! :P

15/03/2019, 20h26
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.

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

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:

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

15/03/2019, 21h31
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.
18/03/2019, 23h03
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

Essaie cela :

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

Code:

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