Discussion :

[thomasisajerk]

Bonjour,

Je souhaiterai, via une TextBox dans un UserForm, afficher le contenu d'une cellule spécifique d'un autre classeur ouvert.

Code :

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

1
2
3
4
5
6
7
Private Sub TextBox1_Change()
        ' Afficher le contenu de la cellule A44 du classeur "bdd.xls"
End Sub
 
Private Sub TextBox2_Change()
        ' Afficher le contenu de la cellule B33 du classeur "bdd.xls"
End Sub

Impossible d'afficher la cellule dans une TextBox, j'ai posté le code propre, si quelqu'un a une idée, merci d'avance !

[fring]

Hello,

Code :

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

Me.TextBox1 = Workbooks("bdd.xls").Sheets(1).Range("A44")

nom ou position de la feuille à adapter

[thomasisajerk]

Bonjour,
Merci pour cette réponse !
Je n'ai aucune erreur, mais sa ne m'affiche rien alors que l'autre classeur est bien ouvert.

Merci d'avance

[jojo86]

La feuille sur laquelle tu veux lire les valeur (A44...) est bien la 1ere feuille du classeur Bdd.xls?

Car si ta feuille est la 2eme ou la 3eme, il faut changer le numéro dans la formule :

Code :

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

Me.TextBox1 = Workbooks("bdd.xls").Sheets(2).Range("A44")

[thomasisajerk]

Bonjour,

J'ai bien évidement changé le numéro de la feuille, rien y fait !

Merci d'avance

[fring]

Ca doit fonctionner mais là comme ça, sans plus d'info, je suis incapable de deviner à distance ce qui coince. (cellule vide, erreur de syntaxe, code mal placé, paramétrages de la textbox, etc...)