Discussion :

[srame]

Bonjour,

Je voudrais depuis un bouton d'un Userform pouvoir séléctionner une cellule dans ma feuille et revenir à mon userform sans que le reste de ma macro se poursuive.

Connaissez-vous un moyen ?

[ouskel'n'or]

Regarde ShowModal dans l'aide
Extrait

Lorsqu'un objet UserForm n'est pas modal, l'utilisateur peut afficher d'autres feuilles ou fenêtres sans fermer cet objet.

A+

[srame]

Si j'utilise la fonction MODAL comme ça, toute ma macro s'execute et cela ne m'arrange pas. Il faut que je puisse simplement aller sur ma feuille pour séléctionner ma cellules sans que ma macro continue.

Je sais pas trop comment expliquer cela.

Le but est de selectionner la cellule qui va recevoir mon nouveau text que j'ai dans mon TextBox.

[illight]

ça normalement cest la fonction de l'InputBox

Par exemple, si tu veux sélectionner une plage :

Code :

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

1
2
Dim P as Range
Set P = Application.InputBox("sélectionnez une plage",Type:=8)

Maintenant après, ça dépend ce que tu fais dans ton formulaire et s'il y a d'autres champs.
De plus, je sais pas si un InputBox de ce type existe pour un formulaire. Faut que je regarde

[illight]

Tu peux faire un truc barbare dans ton UserForm, c'est rajouter un bouton a coté d'une zone de texte ou tu mettra les références de ta plage de cellules. Dans ce bouton, lors du click tu met ça :

Code :

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

1
2
3
4
5
Private Sub CommandButton1_Click()
Dim p As Range
Set p = Application.InputBox("selection", Type:=8)
TextBox1.Value = p.Address
End Sub

ça te permet de pouvoir ouvrir une fenetre pour sélectionner une plage de cellules, et ça te l'écrira dans TextBox1.

Le seul souci que j'ai trouvé à cette méthode, et que je trouve très étrange, c'est que ça ne récupère que l'adresse des références en elle-meme, par exemple A$1:B$2 (d'ailleurs ça te met des dollars direct aussi), mais si tu prend une plage de cellules dans une autre cellule, ça te récupère pas le nom de la feuille, ça te mettra que les cellules.
Après, tu peux peut etre aussi afficher cet InputBox quand tu valide ton "formulaire". De cette manière, les modifications seront faites sur le scellules choisies.

A toi de voir

[AlainTech]

Pour sélectionner une plage, il existe le contrôle RefEdit.

[srame]

Tu peux faire un truc barbare dans ton UserForm, c'est rajouter un bouton a coté d'une zone de texte ou tu mettra les références de ta plage de cellules.

Cêst peut-être barbare, mais ça marche à merveille ce code .

Code :

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

1
2
3
4
5
Private Sub CommandButton1_Click()
Dim p As Range
Set p = Application.InputBox("selection", Type:=8)
TextBox1.Value = p.Address
End Sub

Le top du top serait que l'input box se ferme sur le simple clic. J'ai 8000 classeurs à modifier, alors chaque clic éliminé est un gros gain de temps.

Mais MERCI 8000 FOIS

Srame