userform

[NACE]

Bonsoir.
Qui peut me dire comment afficher dans un userform le contenu de 2 celules (B7 et c3) qui se trouve sur une autre feuille du classeur.
Merci

 

[PascalXLD]

Bonjour

tu peux préciser le nom de la feuille avant

Par exemple

Textbox1=Sheets('Feuil3').range('B7')
Textbox2=Sheets('Feuil3').range('C3')

Bon courage

 

[NACE]

Merci pour la réponse
Mais peut on le faire pour des feuilles qui n'ont pas toujours le meme noms
Merci

 

[PascalXLD]

Bah oui

je t'ai mis sheets('Feuil3') mais tu mets ce que tu veux

Ton nom peut même être une variable

Mafeuille='Toto'

Textbox1=Sheets(Mafeuille).range('B3)

 

[NACE]

Merri beaucoup je vais mettre ça en pratique

 

[_Thierry]

Bonjour Pascal, Nace, le Forum

Attention dans ton Post de 17:41, j'aurai conseillé plutôt comme ceci :

    With Sheets('Feuil3'Â'Â')
        Me.TextBox1 = .Range('B7'Â'Â')
        Me.TextBox2 = .Range('C3'Â'Â')
    End With

Et sinon pour faire du Multi Feuilles alors là oui pas le choix, il faut bien les préciser ces feuilles !

Mais je crois que notre ami Nace a un autre souci quand il dit 'Mais peut on le faire pour des feuilles qui n'ont pas toujours le meme nom'

Si par exemple ta 'Feuil3' devient 'UnNouveauNom' dans son nom d'onglet, tu peux y faire référence par son numéro d'index...

Exemple

    With Sheets(3)
        Me.TextBox1 = .Range('B7'Â'Â')
        Me.TextBox2 = .Range('C3'Â'Â')
    End With

Mais bien sûr ceci est subordonné à ce que l'ex 'Feuil3' soit bien placée en troisième position en partant de la gauche...


Sinon un autre méthode encore plus radicale et stable et de faire directement référence au nom d'Objet Sheet et plus au nom de l'Onglet...

J'explique, si tu as renommé 'Feuil3' en 'UnNouveauNom' et bien le nom d'onglet c'est 'UnNouveauNom' par contre le nom d'Objet Sheet lui c'est toujours 'Feuil3', il est indépendant du nom d'onglet...

Pour voir ou renommer un nom d'Objet Sheet, il faut passer par VBE et être en fenêtre 'project Explorer' ([CTRL + R]) puis séléctionner la Feuille en question et Faire [F4] là on a aussi la fenêtre 'Propriété' qui indique le Name (nom d'Objet Sheet) que l'on peut éventuellement changer mais sans espace ni caractères spéciaux...

Enfin donc tout ceci pour dire qu'on peut faire

Exemple

    With Feuil3
        Me.TextBox1 = .Range('B7'Â'Â')
        Me.TextBox2 = .Range('C3'Â'Â')
    End With

Bonne Soirée
@+Thierry

Message édité par: _Thierry, à: 10/03/2005 18:12