Plage d'entrée dans userform

**Val2000** · 03/07/2013, 09h27

Bonjour,

J'aimerais bien intégrer dans un userform une option de définir une plage d'entrée, comme on les utilise par exemple dans Excel pour allouer une plage de validation à une liste déroulante.
Est-ce que quelqu'un aurait une idée comment faire?
Merci d'avance.

**EngueEngue** · 03/07/2013, 10h29

Bah tu devras réenclancher le processus de remplissage de ta liste avec un évenement une fois le textbox rempli.

**Val2000** · 03/07/2013, 10h39

Ce qui m'intéresse c'est le bouton "choisir la plage" qui activera un certain fichier dans lequel l'utilisateur peut ensuite sélectionner une plage, "A1:B5" par exemple. Je voudrais récupérer cette adresse de plage dans un champ du userform.
Je ne veux pas une liste déroulante.

**pastis.vi** · 03/07/2013, 14h21

Salut Val2000 !

Tiens, voilà le bout de code qui permet à l'utilisateur de choisir une plage soit manuellement soit avec la souris:

Code :

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

1
2
3
4
5
6
Sub test()
 
Set LaPlage = Application.InputBox("Selectionnez la plage de cellules à utiliser avec la souris.", "Saisie", Type:=8)
MsgBox LaPlage.Address
 
End Sub

Si la plage se trouve dans une autre feuille il faudra certainement se placer dans la feuille destination avant d'ouvrir la fenêtre de choix de plage

**Val2000** · 18/07/2013, 10h38

Excuses-moi, j'étais partie en vacances et je n'avais pas m'ocasion d'essayer ton code.

C'est génial, merci!

Il reste un petit souci, avec ton code le bouton "annuler" buge : il demande un objet (LaPlage reste vide). Aurai-tu une idée comment contourner le problème?

**EngueEngue** · 18/07/2013, 10h40

Code :

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

1
2
3
4
5
6
sub toto()
On error goto fin
'ton code
exit sub
fin:
end sub

**Marc-L** · 18/07/2013, 10h43

Bonjour Val2000,

c'est normal ! Voir l'aide de cette méthode …

EngueEngue, surtout pas ‼ Rien qu'en lisant l'aide, t'aurais dû commencer par là ‼

Edit : il a raison sur ce coup !

__________________________________________________________________________________________

Merci de cliquer sur

pour chaque message ayant aidé puis sur

pour clore cette discussion …

**EngueEngue** · 18/07/2013, 10h51

Why not ?

Elle n'aime pas les plages vides, au lieu de mettre un if empty un exit sub marche bien, non ?

**Marc-L** · 18/07/2013, 11h10

Désolé EngueEngue, je suis allé trop vite, effectivement dans ce cas là précis il n'y a pas le choix
vu que False est renvoyé si Annuler est cliqué ne le faisant pas du tout dans une variable objet …

Donc +1 !

C'est pour cela que j'utilise en fait cette méthode dans une fonction renvoyant Nothing si Annuler est cliqué …