Utilises constante VBA dans excel

Résolu/Fermé

mvp19 - 13 mars 2009 à 19:38
mvp19 - 16 mars 2009 à 16:04

Bonjour, j'ai créé des constantes dans un module VBA de mon fichier (ex.: Public const coucou as string = "coucou") et j'aimerais y faire référence dans une cellule Excel.

J'ai essayé =coucou mais ça ne fonctionne pas. Ça me retourne #NOM comme erreur.
Je peux cependant faire des référnces à des fonctions de mon module...

Quelqu'un peut m'aider ?

Merci à l'avance.

A voir également:

Vba constante
Excel compter cellule couleur sans vba - Guide
Mkdir vba ✓ - Forum VB / VBA
L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
Autofill vba ✓ - Forum Excel
Vba range avec variable ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 718
13 mars 2009 à 22:13

bonjour

Dans ta feuille tu peux appeler des fonctions VBA mais tu ne peux pas utiliser les variables de macro.

Si tu veux faire référence à "coucou", il te faut créer une fonction "coucou" qui elle, pourra te renvoyer la variable que tu choisiras.

mvp19
16 mars 2009 à 16:04

C'est tellement simple comme solution que je n'y avais pas pensé !!!
Merci beaucoup

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

Méthode find dans VBA - Recherche de données sous Excel

ouverture d'un fichier excel à partir d'un code VBA

appliquer une pause dans une macro vba excel