Discussion :

[Invité]

Bonjour tout le monde!
Je suis sur Excel 2003 et je souhaiterais mettre plusieurs refEdit dans un userform. Je vais vous expliquer le probleme.

J'ai un fichier TS.xls oú est le userForm avec les refEdit. J'ai un fichier AT.xls avec les données. Je souhaiterais dans TS.xls faire des liens vers certaine cellules de AT.xls. Mais pour savoir vers quel cellules faire ces liens, je souhaite utiliser plusieur refEdit. Le probleme, c'est que des que le showModal du userForm est sur false, plus rien ne fonctionne.... je suis obligé de planter Excel avec le gestionnaires des taches. Or je suis obligé de mettre showModal á false si je veux pouvoir passer á l'autre fichier. Je voulais savoir s'il existe une solution ou si c'est un probleme de VBA ?

J'ai vu qu'on pouvait faire la meme chose avec un inputBox. Mais cette solution n'est pas satisfaisante dans mon cas vu que je souhaite avoir plusieur refEdit sur un UserForm. Et il est impossible d'avoir plusieurs InputBox... enfin je crois.


Je ne sais pas si j'ai été tres clair...
Merci á ceux qui pourront m'aider

[Invité]

Aprés moult recherche, il semblerais que depuis la version 2000 d'Excel, il est devenu un impossible d'utiliser refEdit pour lier avec un autre classeur. J'ai trouvé une solution ici : http://www.tushar-mehta.com/publish_...rinterface.htm

Il s'agit de créer une nouvelle classe qui permet ensuite de considérer des textBox comme des refEdit. C'est pas l'idéal mais je pense que c'est ce qu'il y a de mieux

[ouskel'n'or]

Et il est impossible d'avoir plusieurs InputBox... enfin je crois.

Tu as essayé ?

[Invité]

Salut ouskel'n'or!

Ben en fait, je ne vois pas du tout comment je pourrais faire pour avoir dans une fenetre inputBox plusieurs champs... Tu as une idée ?

[ouskel'n'or]

J'ai qutre chose avec Inputbox et un commandbutton (ShowModal = false)

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
    Workbooks("Creances(2).xls").Activate
    Worksheets("feuil1").Select
    UserForm1.Hide
    Set Result = Application.InputBox("Sélectionner les cellules", "Sélection", Type:=8)
    MsgBox Result.Address
    Workbooks("Creances.xls").Activate
    Worksheets("feuil1").Select
    UserForm1.Show
End Sub

Q+

[ouskel'n'or]

Je reponds a ton dernier message : Appuie sur ctrl pour selectionner plusieurs plages

[ouskel'n'or]

j ai fait une fausse manip, je suis passe en clavier QUERTY, tu sais comment on fait pour retrouver le clavier AZERTY ? (Avec les touches de fonction)

[Invité]

Ouais j'avais vu ce bout de code dans un autre topic. Le probleme, c'est que je dois pouvoir sélectionner des cellules dans différents onglets. Et avec cette méthode, ce n'est pas trop possible (Enfin j'ai essayé et je n'ai pas réussi). Mais sinon ca aurait été sympa!

Merci quand meme

edit: Ah non, j'avais déja eu le souci mais je ne me souviens plus.... peut etre ctrl+tab ? (pour repasser en AZERTY)

[ouskel'n'or]

Non, pas de pb, avec ctrl que tu tiens appuye, jai teste c'est ok.
Bye