Sélection de plages Excel VBA ...

Question

Hello !

Je dois trouver une alternative aux refedit, car ils produisent des plantages et des effets de bords assez impressionnant. Est-ce que quelqu'un saurait comment permettre &#224; l'utilisateur de s&#233;lectionner ses plages et d'ins&#233;rer le tout dans une textbox ?

Je sais que c'est possible d'intercepter les mouvement de souris &#224; l'aide de l'&#233;v&#233;nement SheetSelectionChange de l'objet excel.application. Withevents doit aussi &#234;tre utilis&#233; en quelque part.

Apr&#232;s diff&#233;rents tests, je n'arrive &#224; rien, et ne comprend pas comment utiliser ces &#233;v&#232;nements et objets. Est-ce que qqun pourrais me donner un coup de main ?

Merci pour votre aide.
Hector

valtrase · Answer

Lut,
Tu peux utiliser une inputBox
Dim Myrange
Set Myrange = Application.InputBox("S&#233;lectionnez une plage de cellules", Type:=8)
MsgBox Myrange.Address

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

cs_Hector78 · Answer

Hello !

Merci pour la r&#233;ponse rapide ... j'ai d&#233;j&#224; explor&#233; cette solution avec l'inputbox, et &#231;a tourne bien ... par contre de devrais personnaliser l'interface de saisie ... je ne peux donc pas utiliser cette option ... il me faut vraiment une solution bas&#233;e sur un userform, avec une interception des d&#233;placements souris ...

Une id&#233;e comment proc&#233;der ?

valtrase · Answer

Re,
Tu peux intercepter le changement de plage de la sorte:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If UserForm1.Visible = True Then
   UserForm1.Label1.Caption = Sh.Name & "!" & Target.Address
End If
End Sub

Bien sur tu devras l'adapter &#224; ton cas

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

valtrase · Answer

Oui ne pas oublier de mettre ta userform non modale
UserForm1.Show False

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

cs_Hector78 · Answer

Hello !

Merci pour le code.

En guise de test, j'ai cr&#233;&#233; un nouveau user form (Userform1) avec le composant label (label1). J'ai coll&#233; le code pr&#233;c&#233;dement propos&#233; dans la source, puis lanc&#233; le formulaire en non modal. Mais rien n'appara&#238;t dans mon label, lors du d&#233;placement de la souris ... Que faut-il ajouter, &#224; ce code pour qu'il tourne ?

Merci.
Hector

valtrase · Answer

Fait un test en s&#233;lectionnant des cellules sur ta feuille !!
C'est ce que tu veux non ? si j'ai bien compris!!

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

cs_Hector78 · Answer

Effectivement, et c'est bien ce que j'ai fait. Je s&#233;lectionne des cellules de la feuille, mais rien ne se passe ...

valtrase · Answer

En fait je pense que tu as coll&#233; le code au mauvais endroit .....
tu dois le coller dans le module de ThisWorkBook et non pas sur ta UserForm
donc tu ouvres le module de thisWorkBook et tu colles le code dans l'&#233;v&#233;nement 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object.........

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

cs_Hector78 · Answer

Hello !

Merci pour le message !
Effectivement c'&#233;tait pas au bon endroit et pour l'utiliser depuis un form il faut faire :

Private WithEvents m_oExcelApp As Excel.Application
Private Sub UserForm_Initialize()
    Set m_oExcelApp = Excel.Application
End Sub

J'ai encore un petit soucis. Comment modifier le type de s&#233;lection ? je ne voudrais pas utiliser la selection de type surbrillance, mais celle du type copier/coller c'est &#224; dire une selection "clignotante et tournante" ?

Merci.
Hector

valtrase · Answer

Tu codes en VBA ou en VB ?

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

cs_Hector78 · Answer

en VBA

Sélection de plages Excel VBA ...

11 réponses

Discussions similaires