problème d'écriture dans feuille Résolu

Question

Bonjour,

J'ai écrit le code suivant qui s'exécute sans erreur mais qui n'écrit rien dans les cellule de la feuille.
J'ai bien écrit quelle que chose dans les TextBox en question.
b est le userform qui contient ces TextBox 
j'ai essayer avec .value a la fin mais sa ne marche pas plus

for i = 1 to 4
worksbooks("Fomulaire").worksheets("ajdonne").range("A" & i) = b.controls("TextBox" & i).text
next i

Merci

PlacageGranby · Answer

Bonjour

Essayez un msgbox
for i = 1 to 4
msgbox b.controls("TextBox" & i).text
'worksbooks("Fomulaire").worksheets("ajdonne").range("A" & i) = b.controls("TextBox" & i).text
next i 

C'est pratique comme outil de débuggage pour voir ce que le code voit.
En théorie,  il faudrait un  .value
Quel est le message d'erreur quand vous avez .value ?

Bob0876 · Answer

Bonjour,

merci pour l'astuce. Avec .value sa fait la même chose le msgbox me dit que le textbox  est vide.

Je crois que c'est lors de l'exécution du programme la valeur est perdu mais je ne comprend pas pourquoi

ce serait parce que mon userform ce ferme durant l'exécution du programme?

PlacageGranby · Answer

Dans ce cas,  ouvrir une variable globale (peut-être un array à une dimension) et l'assigner les textbox lorsque l'userform est actif.
Et ensuite utiliser cette variable,  cela pourrait être une piste de solution.

Le msgbox nous aide à deviner de quel coté du = se trouve l'erreur.

Bob0876 · Answer

Merci pour l'aide je vais tester sa demain

Problème d'écriture dans feuille

4 réponses

Votre réponse

Discussions similaires