Discussion :

[Eddie827]

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 :

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

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

[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 ?

[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 !!

[araigné]

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 :

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
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