Conservation de la valeur d'une cellule dans une variable

[Johanna]

Bonjour,

Voila je cherche à concerver la valeur d'une cellule dans une variable integer :
Dim Cel AS Range
Set Cel=Range("G11")

Or quand la valeur de la cellule G11 change, la variable Cel prend la nouvelle valeur. Existe-t-il une solution pour qua la valeur de Cel ne varie pas et reste constante quelle soit la valeur de la case G11 ?

Merci pour votre aide,
Johanna

 

[philippe]

Je ne comprend pas bien, ta variable cel n'est pas integer: mais range:
Si j'ai bien compris tu veux receuillir la 1ère valeur de G11 et la stocker afin
qu'elle na varie plus, même si on fait varier G11 c'est bien ça ??
Mais tu veux la conserver le temps de la macro ou plus longtemps??

Sub v()
'on suppose que la cellule A1 (ou celle que tu veux) est vide au départ
' c'est juste une cellule de stockage
Dim variable As Integer, varinit As Integer
varinit = Range("A1").Value 'on récupère la valeur initiale de ta variable
variable = Range("G11").Value
' si la variable initiale n'était pas inexistante alors elle prend la
' valeur de G11 dans les autres cas elle reste inchangée
If Range("A1").Value = "" Then varinit = variable
Range("A1").Value = varinit ' on stoche en A1 la valeur de ta variable
'modifiée ou non...
End Sub

 

[Johanna]

Merci beaucoup, mon problème est résolu !!!!