Une façon de faire :
Copie ceci dans un module standard :
Le nom retenu pour ta variable est MaVar
**********************************************
La dernière valeur retenue par la variable à la ré-ouverture de
ton classeur sera celle contenue par cette dernière au moment
de la dernière sauvegarde de ton classeur.
***********************************************
'-----------------------
Public Property Get MaVar() As Variant
Dim S As String
S = ThisWorkbook.Names("Toto").RefersTo
MaVar = Int(Right(S, Len(S) - 1))
End Property
'-----------------------
Public Property Let MaVar(ByVal vNewValue As Variant)
ThisWorkbook.Names.Add "toto", Int(vNewValue), False
End Property
'-----------------------
Ligne de commande pour attribuer une valeur à ta variable
de n'importe où dans ton code
MaVar = 25
Ligne de commande pour récupérer la valeur de ta variable
de n'importe où dans ton code
a = MaVar
Une façon de faire :
Copie ceci dans un module standard :
Le nom retenu pour ta variable est MaVar
**********************************************
La dernière valeur retenue par la variable à la ré-ouverture de
ton classeur sera celle contenue par cette dernière au moment
de la dernière sauvegarde de ton classeur.
***********************************************
'-----------------------
Public Property Get MaVar() As Variant
Dim S As String
S = ThisWorkbook.Names("Toto").RefersTo
MaVar = Int(Right(S, Len(S) - 1))
End Property
'-----------------------
Public Property Let MaVar(ByVal vNewValue As Variant)
ThisWorkbook.Names.Add "toto", Int(vNewValue), False
End Property
'-----------------------
Ligne de commande pour attribuer une valeur à ta variable
de n'importe où dans ton code
MaVar = 25
Ligne de commande pour récupérer la valeur de ta variable
de n'importe où dans ton code
a = MaVar
Une façon de faire :
Copie ceci dans un module standard :
Le nom retenu pour ta variable est MaVar
**********************************************
La dernière valeur retenue par la variable à la ré-ouverture de
ton classeur sera celle contenue par cette dernière au moment
de la dernière sauvegarde de ton classeur.
***********************************************
'-----------------------
Public Property Get MaVar() As Variant
Dim S As String
S = ThisWorkbook.Names("Toto").RefersTo
MaVar = Int(Right(S, Len(S) - 1))
End Property
'-----------------------
Public Property Let MaVar(ByVal vNewValue As Variant)
ThisWorkbook.Names.Add "toto", Int(vNewValue), False
End Property
'-----------------------
Ligne de commande pour attribuer une valeur à ta variable
de n'importe où dans ton code
MaVar = 25
Ligne de commande pour récupérer la valeur de ta variable
de n'importe où dans ton code
a = MaVar
Une façon de faire :
Copie ceci dans un module standard :
Le nom retenu pour ta variable est MaVar
**********************************************
La dernière valeur retenue par la variable à la ré-ouverture de
ton classeur sera celle contenue par cette dernière au moment
de la dernière sauvegarde de ton classeur.
***********************************************
'-----------------------
Public Property Get MaVar() As Variant
Dim S As String
S = ThisWorkbook.Names("Toto").RefersTo
MaVar = Int(Right(S, Len(S) - 1))
End Property
'-----------------------
Public Property Let MaVar(ByVal vNewValue As Variant)
ThisWorkbook.Names.Add "toto", Int(vNewValue), False
End Property
'-----------------------
Ligne de commande pour attribuer une valeur à ta variable
de n'importe où dans ton code
MaVar = 25
Ligne de commande pour récupérer la valeur de ta variable
de n'importe où dans ton code
a = MaVar
Une façon de faire :
Copie ceci dans un module standard :
Le nom retenu pour ta variable est MaVar
**********************************************
La dernière valeur retenue par la variable à la ré-ouverture de
ton classeur sera celle contenue par cette dernière au moment
de la dernière sauvegarde de ton classeur.
***********************************************
'-----------------------
Public Property Get MaVar() As Variant
Dim S As String
S = ThisWorkbook.Names("Toto").RefersTo
MaVar = Int(Right(S, Len(S) - 1))
End Property
'-----------------------
Public Property Let MaVar(ByVal vNewValue As Variant)
ThisWorkbook.Names.Add "toto", Int(vNewValue), False
End Property
'-----------------------
Ligne de commande pour attribuer une valeur à ta variable
de n'importe où dans ton code
MaVar = 25
Ligne de commande pour récupérer la valeur de ta variable
de n'importe où dans ton code
a = MaVar
Une façon de faire :
Copie ceci dans un module standard :
Le nom retenu pour ta variable est MaVar
**********************************************
La dernière valeur retenue par la variable à la ré-ouverture de
ton classeur sera celle contenue par cette dernière au moment
de la dernière sauvegarde de ton classeur.
***********************************************
'-----------------------
Public Property Get MaVar() As Variant
Dim S As String
S = ThisWorkbook.Names("Toto").RefersTo
MaVar = Int(Right(S, Len(S) - 1))
End Property
'-----------------------
Public Property Let MaVar(ByVal vNewValue As Variant)
ThisWorkbook.Names.Add "toto", Int(vNewValue), False
End Property
'-----------------------
Ligne de commande pour attribuer une valeur à ta variable
de n'importe où dans ton code
MaVar = 25
Ligne de commande pour récupérer la valeur de ta variable
de n'importe où dans ton code
a = MaVar
ta suggestion est bonne et fonctionnelle...
A) Le gros avantage à la méthode proposée c'est que
tu n'as pas besoin de déterminer un moment particulier
où tu dois sauvegarder ta variable...cela se fait automatiquement
au même moment de l'ensemble des données.
Aucune procédure événementielle n'est requise dans le ThisWorkbook.
B) Dans la procédure "Property Let", il serait possible d'ajouter un peu
de code pour vérifier la valeur que le programme emmagasine...
exemple dans ce cas : que la valeur passée correspond bien à l'étendue
que représente une donnée de type "integer" sinon renvoyé un message
particulier à l'usager ou définir un autre action le cas échant.
En passant, je retiens ta suggestion pour retrouver la valeur du nom.
Public Property Get MaVar() As Variant
MaVar = [toto]
End Property
Public Property Let MaVar(ByVal vNewValue As Variant)
ThisWorkbook.Names.Add "toto", Int(vNewValue), False
End Property
"isabelle" a écrit dans le message de news:
bonjour denis,
pourquoi ne pas mettre simplement la variable dans un "Nom" ?
Sub StokerVariable()
LaVariable = 2
Names.Add "MaVar", LaVariable, False
End Sub
Sub RécupérerVariable()
LaVariable = [MaVar]
End Sub
isabelleUne façon de faire :
Copie ceci dans un module standard :
Le nom retenu pour ta variable est MaVar
**********************************************
La dernière valeur retenue par la variable à la ré-ouverture de
ton classeur sera celle contenue par cette dernière au moment
de la dernière sauvegarde de ton classeur.
***********************************************
'-----------------------
Public Property Get MaVar() As Variant
Dim S As String
S = ThisWorkbook.Names("Toto").RefersTo
MaVar = Int(Right(S, Len(S) - 1))
End Property
'-----------------------
Public Property Let MaVar(ByVal vNewValue As Variant)
ThisWorkbook.Names.Add "toto", Int(vNewValue), False
End Property
'-----------------------
Ligne de commande pour attribuer une valeur à ta variable
de n'importe où dans ton code
MaVar = 25
Ligne de commande pour récupérer la valeur de ta variable
de n'importe où dans ton code
a = MaVar
ta suggestion est bonne et fonctionnelle...
A) Le gros avantage à la méthode proposée c'est que
tu n'as pas besoin de déterminer un moment particulier
où tu dois sauvegarder ta variable...cela se fait automatiquement
au même moment de l'ensemble des données.
Aucune procédure événementielle n'est requise dans le ThisWorkbook.
B) Dans la procédure "Property Let", il serait possible d'ajouter un peu
de code pour vérifier la valeur que le programme emmagasine...
exemple dans ce cas : que la valeur passée correspond bien à l'étendue
que représente une donnée de type "integer" sinon renvoyé un message
particulier à l'usager ou définir un autre action le cas échant.
En passant, je retiens ta suggestion pour retrouver la valeur du nom.
Public Property Get MaVar() As Variant
MaVar = [toto]
End Property
Public Property Let MaVar(ByVal vNewValue As Variant)
ThisWorkbook.Names.Add "toto", Int(vNewValue), False
End Property
"isabelle" <aaa@aaa> a écrit dans le message de news: eEUmUYD0GHA.1292@TK2MSFTNGP03.phx.gbl...
bonjour denis,
pourquoi ne pas mettre simplement la variable dans un "Nom" ?
Sub StokerVariable()
LaVariable = 2
Names.Add "MaVar", LaVariable, False
End Sub
Sub RécupérerVariable()
LaVariable = [MaVar]
End Sub
isabelle
Une façon de faire :
Copie ceci dans un module standard :
Le nom retenu pour ta variable est MaVar
**********************************************
La dernière valeur retenue par la variable à la ré-ouverture de
ton classeur sera celle contenue par cette dernière au moment
de la dernière sauvegarde de ton classeur.
***********************************************
'-----------------------
Public Property Get MaVar() As Variant
Dim S As String
S = ThisWorkbook.Names("Toto").RefersTo
MaVar = Int(Right(S, Len(S) - 1))
End Property
'-----------------------
Public Property Let MaVar(ByVal vNewValue As Variant)
ThisWorkbook.Names.Add "toto", Int(vNewValue), False
End Property
'-----------------------
Ligne de commande pour attribuer une valeur à ta variable
de n'importe où dans ton code
MaVar = 25
Ligne de commande pour récupérer la valeur de ta variable
de n'importe où dans ton code
a = MaVar
ta suggestion est bonne et fonctionnelle...
A) Le gros avantage à la méthode proposée c'est que
tu n'as pas besoin de déterminer un moment particulier
où tu dois sauvegarder ta variable...cela se fait automatiquement
au même moment de l'ensemble des données.
Aucune procédure événementielle n'est requise dans le ThisWorkbook.
B) Dans la procédure "Property Let", il serait possible d'ajouter un peu
de code pour vérifier la valeur que le programme emmagasine...
exemple dans ce cas : que la valeur passée correspond bien à l'étendue
que représente une donnée de type "integer" sinon renvoyé un message
particulier à l'usager ou définir un autre action le cas échant.
En passant, je retiens ta suggestion pour retrouver la valeur du nom.
Public Property Get MaVar() As Variant
MaVar = [toto]
End Property
Public Property Let MaVar(ByVal vNewValue As Variant)
ThisWorkbook.Names.Add "toto", Int(vNewValue), False
End Property
"isabelle" a écrit dans le message de news:
bonjour denis,
pourquoi ne pas mettre simplement la variable dans un "Nom" ?
Sub StokerVariable()
LaVariable = 2
Names.Add "MaVar", LaVariable, False
End Sub
Sub RécupérerVariable()
LaVariable = [MaVar]
End Sub
isabelleUne façon de faire :
Copie ceci dans un module standard :
Le nom retenu pour ta variable est MaVar
**********************************************
La dernière valeur retenue par la variable à la ré-ouverture de
ton classeur sera celle contenue par cette dernière au moment
de la dernière sauvegarde de ton classeur.
***********************************************
'-----------------------
Public Property Get MaVar() As Variant
Dim S As String
S = ThisWorkbook.Names("Toto").RefersTo
MaVar = Int(Right(S, Len(S) - 1))
End Property
'-----------------------
Public Property Let MaVar(ByVal vNewValue As Variant)
ThisWorkbook.Names.Add "toto", Int(vNewValue), False
End Property
'-----------------------
Ligne de commande pour attribuer une valeur à ta variable
de n'importe où dans ton code
MaVar = 25
Ligne de commande pour récupérer la valeur de ta variable
de n'importe où dans ton code
a = MaVar
ta suggestion est bonne et fonctionnelle...
A) Le gros avantage à la méthode proposée c'est que
tu n'as pas besoin de déterminer un moment particulier
où tu dois sauvegarder ta variable...cela se fait automatiquement
au même moment de l'ensemble des données.
Aucune procédure événementielle n'est requise dans le ThisWorkbook.
B) Dans la procédure "Property Let", il serait possible d'ajouter un peu
de code pour vérifier la valeur que le programme emmagasine...
exemple dans ce cas : que la valeur passée correspond bien à l'étendue
que représente une donnée de type "integer" sinon renvoyé un message
particulier à l'usager ou définir un autre action le cas échant.
En passant, je retiens ta suggestion pour retrouver la valeur du nom.
Public Property Get MaVar() As Variant
MaVar = [toto]
End Property
Public Property Let MaVar(ByVal vNewValue As Variant)
ThisWorkbook.Names.Add "toto", Int(vNewValue), False
End Property
"isabelle" a écrit dans le message de news:
bonjour denis,
pourquoi ne pas mettre simplement la variable dans un "Nom" ?
Sub StokerVariable()
LaVariable = 2
Names.Add "MaVar", LaVariable, False
End Sub
Sub RécupérerVariable()
LaVariable = [MaVar]
End Sub
isabelleUne façon de faire :
Copie ceci dans un module standard :
Le nom retenu pour ta variable est MaVar
**********************************************
La dernière valeur retenue par la variable à la ré-ouverture de
ton classeur sera celle contenue par cette dernière au moment
de la dernière sauvegarde de ton classeur.
***********************************************
'-----------------------
Public Property Get MaVar() As Variant
Dim S As String
S = ThisWorkbook.Names("Toto").RefersTo
MaVar = Int(Right(S, Len(S) - 1))
End Property
'-----------------------
Public Property Let MaVar(ByVal vNewValue As Variant)
ThisWorkbook.Names.Add "toto", Int(vNewValue), False
End Property
'-----------------------
Ligne de commande pour attribuer une valeur à ta variable
de n'importe où dans ton code
MaVar = 25
Ligne de commande pour récupérer la valeur de ta variable
de n'importe où dans ton code
a = MaVar
ta suggestion est bonne et fonctionnelle...
A) Le gros avantage à la méthode proposée c'est que
tu n'as pas besoin de déterminer un moment particulier
où tu dois sauvegarder ta variable...cela se fait automatiquement
au même moment de l'ensemble des données.
Aucune procédure événementielle n'est requise dans le ThisWorkbook.
B) Dans la procédure "Property Let", il serait possible d'ajouter un peu
de code pour vérifier la valeur que le programme emmagasine...
exemple dans ce cas : que la valeur passée correspond bien à l'étendue
que représente une donnée de type "integer" sinon renvoyé un message
particulier à l'usager ou définir un autre action le cas échant.
En passant, je retiens ta suggestion pour retrouver la valeur du nom.
Public Property Get MaVar() As Variant
MaVar = [toto]
End Property
Public Property Let MaVar(ByVal vNewValue As Variant)
ThisWorkbook.Names.Add "toto", Int(vNewValue), False
End Property
"isabelle" <aaa@aaa> a écrit dans le message de news: eEUmUYD0GHA.1292@TK2MSFTNGP03.phx.gbl...
bonjour denis,
pourquoi ne pas mettre simplement la variable dans un "Nom" ?
Sub StokerVariable()
LaVariable = 2
Names.Add "MaVar", LaVariable, False
End Sub
Sub RécupérerVariable()
LaVariable = [MaVar]
End Sub
isabelle
Une façon de faire :
Copie ceci dans un module standard :
Le nom retenu pour ta variable est MaVar
**********************************************
La dernière valeur retenue par la variable à la ré-ouverture de
ton classeur sera celle contenue par cette dernière au moment
de la dernière sauvegarde de ton classeur.
***********************************************
'-----------------------
Public Property Get MaVar() As Variant
Dim S As String
S = ThisWorkbook.Names("Toto").RefersTo
MaVar = Int(Right(S, Len(S) - 1))
End Property
'-----------------------
Public Property Let MaVar(ByVal vNewValue As Variant)
ThisWorkbook.Names.Add "toto", Int(vNewValue), False
End Property
'-----------------------
Ligne de commande pour attribuer une valeur à ta variable
de n'importe où dans ton code
MaVar = 25
Ligne de commande pour récupérer la valeur de ta variable
de n'importe où dans ton code
a = MaVar
ta suggestion est bonne et fonctionnelle...
A) Le gros avantage à la méthode proposée c'est que
tu n'as pas besoin de déterminer un moment particulier
où tu dois sauvegarder ta variable...cela se fait automatiquement
au même moment de l'ensemble des données.
Aucune procédure événementielle n'est requise dans le ThisWorkbook.
B) Dans la procédure "Property Let", il serait possible d'ajouter un peu
de code pour vérifier la valeur que le programme emmagasine...
exemple dans ce cas : que la valeur passée correspond bien à l'étendue
que représente une donnée de type "integer" sinon renvoyé un message
particulier à l'usager ou définir un autre action le cas échant.
En passant, je retiens ta suggestion pour retrouver la valeur du nom.
Public Property Get MaVar() As Variant
MaVar = [toto]
End Property
Public Property Let MaVar(ByVal vNewValue As Variant)
ThisWorkbook.Names.Add "toto", Int(vNewValue), False
End Property
"isabelle" a écrit dans le message de news:
bonjour denis,
pourquoi ne pas mettre simplement la variable dans un "Nom" ?
Sub StokerVariable()
LaVariable = 2
Names.Add "MaVar", LaVariable, False
End Sub
Sub RécupérerVariable()
LaVariable = [MaVar]
End Sub
isabelleUne façon de faire :
Copie ceci dans un module standard :
Le nom retenu pour ta variable est MaVar
**********************************************
La dernière valeur retenue par la variable à la ré-ouverture de
ton classeur sera celle contenue par cette dernière au moment
de la dernière sauvegarde de ton classeur.
***********************************************
'-----------------------
Public Property Get MaVar() As Variant
Dim S As String
S = ThisWorkbook.Names("Toto").RefersTo
MaVar = Int(Right(S, Len(S) - 1))
End Property
'-----------------------
Public Property Let MaVar(ByVal vNewValue As Variant)
ThisWorkbook.Names.Add "toto", Int(vNewValue), False
End Property
'-----------------------
Ligne de commande pour attribuer une valeur à ta variable
de n'importe où dans ton code
MaVar = 25
Ligne de commande pour récupérer la valeur de ta variable
de n'importe où dans ton code
a = MaVar
bonjour à tous,
je me retrouve confrontée au problème suivant :
j'aimerais stocker une variable (integer) après fermeture d'un classeur
Excel car elles me seront utiles à sa prochaine ouverture.
Je me suis apercue que si on affectait purement et simplement la valeur à
cette variable (déclarée en Public dans un module), celle-ci est perdue à
la
réouverture du classeur (info ou intox ? peut-être ai-je fait une mauvaise
manip ?)
J'ai donc essayé de stocker cette valeur dans un customproperties de ma
worksheets(1), et ma variable "zaza" récupère bien la valeur dans
customproperties.item(1) lors de la procédure wrkbook_open (je le teste à
l'aide d'un msgbox immédiatement ds wrkbk_open).
Mais si j'execute un msgbox zaza une fois que mon classeur est ouvert il
m'affiche 0 pour zaza
est-ce du à une mauvaise manip de ma part ou alors la réinitialisation de
toutes les variables du classeur a lieu après wrkbk_open ?
Autre question pratique d'utilisation du forum:
Dans le cas où notre question ait déjà été posée par un autre utilisateur
d'exel, existe-t-il un moyen de parcourir les post existant sur le forum
(la
liste est longue :p) pour la retrouver et éviter les doublons, notamment
lorqu'on utilise ie ?
Merci de l'attention que vous accordez à nos petites préoccupations... :)
Céline
bonjour à tous,
je me retrouve confrontée au problème suivant :
j'aimerais stocker une variable (integer) après fermeture d'un classeur
Excel car elles me seront utiles à sa prochaine ouverture.
Je me suis apercue que si on affectait purement et simplement la valeur à
cette variable (déclarée en Public dans un module), celle-ci est perdue à
la
réouverture du classeur (info ou intox ? peut-être ai-je fait une mauvaise
manip ?)
J'ai donc essayé de stocker cette valeur dans un customproperties de ma
worksheets(1), et ma variable "zaza" récupère bien la valeur dans
customproperties.item(1) lors de la procédure wrkbook_open (je le teste à
l'aide d'un msgbox immédiatement ds wrkbk_open).
Mais si j'execute un msgbox zaza une fois que mon classeur est ouvert il
m'affiche 0 pour zaza
est-ce du à une mauvaise manip de ma part ou alors la réinitialisation de
toutes les variables du classeur a lieu après wrkbk_open ?
Autre question pratique d'utilisation du forum:
Dans le cas où notre question ait déjà été posée par un autre utilisateur
d'exel, existe-t-il un moyen de parcourir les post existant sur le forum
(la
liste est longue :p) pour la retrouver et éviter les doublons, notamment
lorqu'on utilise ie ?
Merci de l'attention que vous accordez à nos petites préoccupations... :)
Céline
bonjour à tous,
je me retrouve confrontée au problème suivant :
j'aimerais stocker une variable (integer) après fermeture d'un classeur
Excel car elles me seront utiles à sa prochaine ouverture.
Je me suis apercue que si on affectait purement et simplement la valeur à
cette variable (déclarée en Public dans un module), celle-ci est perdue à
la
réouverture du classeur (info ou intox ? peut-être ai-je fait une mauvaise
manip ?)
J'ai donc essayé de stocker cette valeur dans un customproperties de ma
worksheets(1), et ma variable "zaza" récupère bien la valeur dans
customproperties.item(1) lors de la procédure wrkbook_open (je le teste à
l'aide d'un msgbox immédiatement ds wrkbk_open).
Mais si j'execute un msgbox zaza une fois que mon classeur est ouvert il
m'affiche 0 pour zaza
est-ce du à une mauvaise manip de ma part ou alors la réinitialisation de
toutes les variables du classeur a lieu après wrkbk_open ?
Autre question pratique d'utilisation du forum:
Dans le cas où notre question ait déjà été posée par un autre utilisateur
d'exel, existe-t-il un moyen de parcourir les post existant sur le forum
(la
liste est longue :p) pour la retrouver et éviter les doublons, notamment
lorqu'on utilise ie ?
Merci de l'attention que vous accordez à nos petites préoccupations... :)
Céline
bonjour à tous,
Autre question pratique d'utilisation du forum:
Dans le cas où notre question ait déjà été posée par un autre utilisateur
d'exel, existe-t-il un moyen de parcourir les post existant sur le forum
(la
liste est longue :p) pour la retrouver et éviter les doublons, notamment
lorqu'on utilise ie ?
Merci de l'attention que vous accordez à nos petites préoccupations... :)
Céline
bonjour à tous,
Autre question pratique d'utilisation du forum:
Dans le cas où notre question ait déjà été posée par un autre utilisateur
d'exel, existe-t-il un moyen de parcourir les post existant sur le forum
(la
liste est longue :p) pour la retrouver et éviter les doublons, notamment
lorqu'on utilise ie ?
Merci de l'attention que vous accordez à nos petites préoccupations... :)
Céline
bonjour à tous,
Autre question pratique d'utilisation du forum:
Dans le cas où notre question ait déjà été posée par un autre utilisateur
d'exel, existe-t-il un moyen de parcourir les post existant sur le forum
(la
liste est longue :p) pour la retrouver et éviter les doublons, notamment
lorqu'on utilise ie ?
Merci de l'attention que vous accordez à nos petites préoccupations... :)
Céline