Dans cet article, nous allons montrer comment ajouter un contrôle RefEdit dans le formulaire utilisateur et faire référence à la plage de cellules en l’utilisant.

Dans cet exemple, nous avons créé un formulaire utilisateur surligneur que nous pouvons utiliser pour mettre en évidence la plage de cellules avec une couleur jaune.

Nous avons pris des exemples de données comprenant le nom et l’heure de connexion du membre de l’équipe.

RawData

Ajout de RefEdit dans le formulaire utilisateur

Ajoutez un formulaire utilisateur, cliquez sur le contrôle RefEdit dans la boîte à outils et sélectionnez et déposez le contrôle sur le formulaire utilisateur.

ArrowRefEditControl

Explication logique

Pour mettre en évidence la cellule, cliquez sur le bouton Surligneur. Cela ouvrira le formulaire utilisateur. Sélectionnez la plage à l’aide de RefEdit. Cliquez sur le signe du tiret pour sélectionner les cellules.

ArrowHighlighter

Pour sélectionner des cellules adjacentes, appuyez sur la touche Maj tout en vous déplaçant vers une autre cellule. Pour sélectionner des cellules non adjacentes, appuyez sur la touche Ctrl tout en sélectionnant différentes cellules. Les cellules sélectionnées seront entourées de lignes pointillées et l’adresse de la cellule apparaîtra dans la boîte.

ArrowSelection

Les cellules sélectionnées seront surlignées en jaune en appuyant sur le bouton OK. Cliquez sur l’événement du bouton Ok contient le code VBA pour mettre en évidence les cellules sélectionnées.

ArrowHighlightedCell

Veuillez suivre ci-dessous pour le code

Option Explicit

Sub running()

UserForm1.Show

End Sub

'Add below code in "Ok" button on userform

Option Explicit

Private Sub CommandButton1_Click()

Dim SelectRange As Range

Dim Address1 As String

On Error GoTo Last

'Get the address from the RefEdit control

Address1 = RefEdit1.Value

'Set the SelectRange Range object to the range specified in the RefEdit control

Set SelectRange = Range(Address1)

'Highlight the selected range in yellow color

SelectRange.Interior.Color = RGB(255, 255, 0)

'Unload the userform.

Unload Me

Last:

End Sub

Si vous avez aimé ce blog, partagez-le avec vos amis sur Facebook et Facebook.

Nous serions ravis de vous entendre, faites-nous savoir comment nous pouvons améliorer notre travail et le rendre meilleur pour vous. Écrivez-nous à [email protected]