Discussion :

[toitonline]

Bonjour,

J'aimerais savoir s'il est possible de faire une déclaration de variable en tant que constante globale, égale à une valeur entrée dans une cellule excel?

Ex (qui ne marche pas) :

Code :

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

1
2
 
Public Const toto As Single = Range("feuill1!A1").Offset(0, 0).Value

Merci d'avance

[Invité]

Bonjour

Je ne vois pas l'intérêt, autant la stocker dans une variable Public à l'ouverture de ton classeur.

Ce que tu demandes (même si c'était possible) ne sert à rien, car une constante est fixe tout au long de la vie du programme, hors là tu veux mettre une donnée qui est dans un feuille, donc qui pourrait variée.

Donc en résumant passe par une variable et non par une constante.

Starec

[toitonline]

Merci, je retiens effectivement la remarque : c'est préférable d'en faire une variable globale.

Cependant, comment fait-on pour affecter la valeur de la cellule à une variable?

Code :

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

1
2
Public toto As Single
toto = Range("feuill1!A1").Value

J'aimerais que ma variable toto prenne la valeur rentrée dans la cellule A1

Merci encore d'avance

[Gorfael]

Salut toitonline et le forum

Code :

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

Public Const toto As Single = Range("feuill1!A1").Offset(0, 0)

Offset n'est pas une obligation (de même que value)
Ce que tu peux faire, c'est déclarer une variable globale (sur un module général) et faire une initialisation de la variable
- À l'ouverture du fichier(WorkBook_Open sur module ThisWorkBook)
- Avec si nécessaire, à chaque changement de la variable(Worksheet_Change sur module Feuil1)

Ou expliquer ton but
A+

[toitonline]

C'est gentil à vous de m'énoncer de grandes lignes, mais ne pourriez-vous pas me montrer avec le petit exemple comme ça, je pourrais comprendre et complexifier par la suite mon application.

[Invité]

Bonjour

Déclares

Code :

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

Public toto As Single

dans un module

Ecris

Code :

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

toto = Range("feuill1!A1").Value

dans l'évènement d'ouverture de ton classeur.

Un conseil, mets le nom d'une feuille du classeur, et pas seulement Range.

Starec

[Gorfael]

Salut toitonline et le forum

C'est gentil à vous de m'énoncer de grandes lignes, mais ne pourriez-vous pas me montrer avec le petit exemple comme ça, je pourrais comprendre et complexifier par la suite mon application.

La qualité et la précision des réponses sont proportionnelles à celles de la demande
A+

[toitonline]

Merci pour ces précisions.

J'ai fait comme Starec a marqué, mais au lieu de le charger par l'évènement d'ouverture de la feuille ou du classeur(JE NE SAIS PAS FAIRE!!), j'ai fait une macro qui me les charges. Cela fonctionne.

Simplement si tu peux me dire comment tu fais Starec, je t'en serai gré.

Merci à tous.

[helios77]

Pour la lancer à l'ouverture de ton classeur, tu fais ceci

Code :

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

1
2
3
4
5
 
Public toto as string
sub auto_open
toto= la valeur que tu veux lui donner
Endsub

A l'ouverture d'un classeur, Excel, cherche les macor qui s'appelle auto_open pour les exécuter tout de suite
tu as la même chose avec auto_close

[Gorfael]

Salut helios77 et le forum

A l'ouverture d'un classeur, Excel, cherche les macor qui s'appelle auto_open pour les exécuter tout de suite
tu as la même chose avec auto_close

Heu... ça date de Mathusalem cette méftode
Dans le moduke ThisWorkBook, tu as 2 cases : (Général) dans celle de gauche => à l'aide de son menu tu selectionne Workbook
Dans celle de droite, tu as toutes les macros automatiques qui son liées au classeur (Open, Close, etc...)
A+

[helios77]

C'est une autre possiblité
j'ai pourhabitude de ne pas mettre de code dans le FEuilles ou ThisWorkbook...
c'est pour çà que je suis sur "lancienne méthode"