Discussion :

[ouinih]

Bonjour,
J’ai une fonction VBA. Pour le débogage je souhaite afficher dans une feuille Excel la valeur de certaines variable. J’utilise l’instruction :

Code :

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

 Workbooks("class_name.xls").Sheets("feille_name").Range(J29).Value = ma_variable

A cette instruction, le programme s’arrete et n’affiche rien dans la cellule J29.
merci d'avance.

[MarcelG]

Bonjour,

Ecris plutôt

Code :

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

Range("J29")

[ouinih]

j'ai le même comportement avec Range("J29")

[Marc-L]

Bonjour, bonjour,

vérifier ce que contient donc la variable, certainement rien …

Sinon une présentation claire & exhaustive est nécessaire car explication vague et micro bout de code ne suffisent pas !

[MarcelG]

Salut,

la valeur ma_variable semble être inconnue.
Peut-être un problème de portée.

Juste avant ta ligne de code, écris

Code :

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

Msgbox ma_variable

Et retourne le résultat

[ouinih]

la variable contient bien une valeur. le code

Code :

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

1
2
 
Msgbox ma_variable

affiche bien la valeur de ma variable dans un msgbox. mais impossible de l'afficher dans une cellue!

[MarcelG]

Salut,

Tu as bien placé le code Msgbox juste avant la ligne que tu as citée?

autrement dit

Code :

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

1
2
Msgbox ma_variable
Workbooks("class_name.xls").Sheets("feille_name").Range("J29").Value = ma_variable

Dans l'affirmative, ta feuille est-elle protégée?
Essaie de rentrer manuellement une valeur pour vérifier.

[ouinih]

j'arrive à bien ecrire dans la cellule manuellement.
le MsgBox est placé juste avant la ligne de code qui ne fonctionne pas.
petite précision, la fonction est appelée dans une case Excel (=Fonction_name(paramètres))

[YanBos]

Hello,

La feuille s'appelle bien "feille_name" ?

[SfJ5Rpw8]

Bonjour,

..
petite précision, la fonction est appelée dans une case Excel (=Fonction_name(paramètres))

la précision qui manquait ... une fonction personnalisée ne peu pas modifier le contenu d'une autre cellule ...


Description des limites des fonctions personnalisées dans Excel

[ouinih]

Merci! du coup le plus simple est décrire dans un fichier texte. Voyez-vous d'autres moyens?

[Marc-L]

Affichage direct dans la fenêtre Exécution du VBE via Debug.Print (consulter l'aide) …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[ouinih]

merci

[vpovpo]

On peut contourner en quelque sorte le fait qu'une fonction personnalisée (utilisée dans une formule) ne peut écrire dans une autre cellule. Cela peut se faire en passant par une variable globale. Mettez dans une cellule =test1() et dans une autre =test2(), avec:

Code :

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

1
2
3
4
5
6
7
8
Dim ARGU1 As String
Function test1() As String
    test1 = "Biensur"
    ARGU1 = "qu'on peut !"
End Function
Function test2() As String
    test2 = ARGU1
End Function

Ne serait-ce pas par ailleurs une source d'insécurité ?!

Bien sûr la valeur n'est pas écrite dans la cellule, car il y a une fonction par laquelle on accède à une variable globale, la même pour toutes les cellules y accédant.

On peut varier sur le même principe, par exemple mettre dans les 2 cellules =test1("que si") et =test2(2), avec:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim ARGU1 As String
Dim ARGU2 As String
Function test1(Optional ByVal s1 As String) As String
    test1 = "Biensur"
    ARGU1 = "qu'on peut !"
    If s1 <> "" Then ARGU2 = s1
End Function
Function test2(Optional ByVal i1 As Integer) As String
    test2 = ARGU1
    If i1 = 2 Then test2 = ARGU2
End Function

Mes salutations respectueuses.