Modifier la valeur d'une variable via un pointeur sur cette variable

Version imprimable

Bonjour

On peut assigner l'adresse d'une variable à un pointeur à l'aide de VarPtr(). Mais peut-on récupérer la valeur de la variable via son adresse (pointeur) ?
Petit exemple de code
Code:

1 2 3 4 5 6 7 8 9 Public Function TestPointeur() Dim Ptr As LongPtr, I As Integer I = 9 Ptr = VarPtr(I) 'Je voudrais pouvoir changer la valeur de I via le pointeur Ptr (une sorte de VarPtr inverse) &Ptr=7 'Ceci ne fonctionne pas End Function
Merci d'avance

02/08/2016, 10h06
Jean-Philippe André

Salut,

j'ai trouvé une piste sur le KB suivant :
https://support.microsoft.com/fr-fr/kb/199824

Est-ce que ca fait avancer ton schmiblick ?
02/08/2016, 10h11
Eddie827

Merci pour la tentative mais j'avais déjà trouvé cette info.
C'est l'inverse que je souhaite faire. Obtenir la valeur d'une variable via son adresse !!

CopyMemory

Bonjour,

Via l'API kernel32 il est possible de récupérer le contenu d'une variable connaissant son pointeur.
Personnellement je recommanderai d'utiliser des objets (modules de classe) pour réaliser ce genre d'opération, bien entendu tout dépend de l'objectif!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
#If VBA7 Then
Public Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias _
    "RtlMoveMemory" (destination As Any, source As Any, _
    ByVal length As Long)
#Else
Public Declare Sub CopyMemory Lib "kernel32" Alias _
    "RtlMoveMemory" (destination As Any, source As Any, _
    ByVal length As Long)
#End If
 
Sub AccesPointeur()
 
    #If VBA7 Then
    Dim Pointeur As LongPtr
    #Else
    Dim Pointeur As Long
    #End If
 
    Dim Variable As Long
    Dim VarPointeurContenu As Long
 
    Pointeur = VarPtr(Variable)
    Variable = 2016
 
    Call CopyMemory(ByVal VarPtr(VarPointeurContenu), ByVal Pointeur, 4)
    Debug.Print VarPointeurContenu
 
End Sub