Comment afficher la sélection de la plage ou des valeurs des cellules dans une boîte de message dans Excel ?
Dans certains cas, vous pouvez avoir besoin de retrouver facilement la plage sélectionnée ou d’afficher l’ensemble des valeurs contenues dans une plage limitée. Cet article vous présente des méthodes simples pour faire apparaître une boîte de message indiquant soit la référence des cellules sélectionnées, soit leurs valeurs détaillées dans Excel.
Faire apparaître une boîte de message pour afficher une plage de cellules à l’aide d’un code VBA
Faire apparaître une boîte de message pour afficher les valeurs de Plage limitée à l’aide d’un code VBA
Faire apparaître une boîte de message pour afficher une plage de cellules à l’aide d’un code VBA
Le code VBA suivant affiche, dans une boîte de message, la plage que vous avez sélectionnée. Procédez comme suit.
1. Après avoir sélectionné une plage de cellules dans la feuille de calcul, appuyez simultanément sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Dans la fenêtre Microsoft Visual Basic pour Applications, cliquez sur Insertion > Module. Copiez ensuite le code VBA ci-dessous et collez-le dans la fenêtre du module.
Code VBA : Boîte de message pour afficher une plage de cellules
Sub Test()
On Error Resume Next
MsgBox Application.Selection.Address, vbInformation, "Kutools for Excel"
End Sub3. Appuyez sur la touche F5 pour exécuter le code. Une boîte de message s’affiche alors, contenant la référence de la plage sélectionnée.
Faire apparaître une boîte de message pour afficher les valeurs de Plage limitée à l’aide d’un code VBA
Supposons que vous souhaitiez afficher, dans une boîte de message, toutes les valeurs des cellules de la plage A1:D13, comme le montre la capture d’écran ci-dessous. Exécutez le code VBA suivant.
1. Appuyez simultanément sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Dans Microsoft Visual Basic pour Applications, cliquez sur Insertion > Module. Copiez ensuite le code VBA ci-dessous et collez-le dans la fenêtre du module.
Code VBA : Boîte de message pour afficher les valeurs des cellules sélectionnées dans Excel
Sub message()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xStr As String
Dim xRow As Long
Dim xCol As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
For xRow = 1 To xRg.Rows.Count
For xCol = 1 To xRg.Columns.Count
xStr = xStr & xRg.Cells(xRow, xCol).Value & vbTab
Next
xStr = xStr & vbCrLf
Next
MsgBox xStr, vbInformation, "Kutools for Excel"
End Sub3. Appuyez sur la touche F5 pour exécuter le code. Dans la boîte de dialogue Kutools pour Excel qui s’ouvre, sélectionnez la plage dont vous souhaitez afficher les valeurs dans une boîte de message, puis cliquez sur le bouton OK. Voir la capture d’écran :
Vous obtiendrez alors une boîte de message semblable à celle illustrée ci-dessous, affichant toutes les valeurs des cellules de la plage limitée.
Articles associés:
- Comment créer une minuterie pour fermer automatiquement une boîte de message après un délai défini dans Excel ?
- Comment faire apparaître une boîte de message en cliquant sur une cellule précise dans Excel ?
- Comment copier du texte depuis une boîte de message dans Excel ?
- Comment faire apparaître une boîte de message lors de l’activation ou de l’ouverture d’une feuille de calcul spécifique dans Excel ?
- Comment faire apparaître une boîte de message lorsque la valeur d’une cellule change dans une plage spécifique sous Excel ?
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels