Dans cet article, nous allons créer un événement de classeur double-clic pour créer une boîte de message pour l’enregistrement.

Les données brutes pour cet exemple se composent des données du service informatique, qui incluent le nom, l’âge, le service, la langue connue et le pays.

ArrowMain

Lorsque nous double-cliquons sur une cellule, tous les détails de cette ligne particulière seront affichés dans une boîte de message.

ArrowOutput

Explication logique

Dans cet article, nous avons utilisé l’événement Worksheet_BeforeDoubleClick pour créer une boîte de message. Cet événement sera déclenché lorsque nous double-cliquons sur une cellule particulière.

Explication du code

Si Target.Column> 5 Then Exit Sub Above code est utilisé pour restreindre l’événement de double-clic pour qu’il ne fonctionne que pour les 5 premières colonnes.

Pour intCounter = 1 à 5 txt = txt & Cells (Target.Row, intCounter) & vbLf Next intCounter Le code ci-dessus est utilisé pour concaténer les données dans une ligne.

vbLf est utilisé pour insérer un saut de ligne.

Veuillez suivre ci-dessous pour le code

'Add code in Sheet module

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

'Declaring variables

Dim intCounter As Integer

Dim txt As String

'Checking that target column should not be greater than 5

If Target.Column > 5 Then Exit Sub

Cancel = True

'Getting values of target row in string

For intCounter = 1 To 5

txt = txt & Cells(Target.Row, intCounter) & vbLf

Next intCounter

'Displaying string message

MsgBox txt

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 l’améliorer pour vous. Écrivez-nous à [email protected]