Ecrire dans une cellule à partir d'une fonction vba

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:

---

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.

Bonjour,

Ecris plutôt

Code:

---

Range("J29")

---

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

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 !

Salut,

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

Juste avant ta ligne de code, écris

Code:

---

Msgbox ma_variable

---

Et retourne le résultat

la variable contient bien une valeur. le code

Code:

---

1 2	Msgbox ma_variable

---

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

Salut,

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

autrement dit

Code:

---

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.

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))

Hello,

La feuille s'appelle bien "feille_name" ?

Bonjour,

Citation:

---

Envoyé par ouinih

..
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

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

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


__________________________________________________________________________________________

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

merci

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:

---

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:

---

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.