XL 2013 Valeur selection cellules Msgbox

RomainPOIRET · 4 Juin 2021

Bonjour à tous,

Je souhaiterais savoir comment avoir un Msgbox avec la valeur de chaque cellule d'une selection de cellule,

(sur mon fichier quand je prend une selection de cellule (clic droit de la cellule), le msgbox m'annonce uniquement la valeur de la cellule sélectionnée en premier ...)

En espérant être assez clair,

Cordialement,

Romain

Phil69970 · 4 Juin 2021

Bonjour @RomainPOIRET

Je te propose ceci :

VB:

Option Explicit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
MsgBox Target.Address
End Sub

@Phil69970

youky(BJ) · 4 Juin 2021

Bonjour à tous,
Ceci doit répondre correctement.
Bruno

VB:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim k, tx
Cancel = True
For k = 1 To Selection.Count: tx = tx & vbCr & Selection(k).Value: Next
MsgBox tx
End Sub

RomainPOIRET · 4 Juin 2021

Bonjour Phil69970, je parle bien de la valeur, pas de l'adresse

Bonjour youky !, c'est presque ça, je souhaiterai plus que chaque valeur apparaisse sur 1 Msgbox, ici toute la selection apparaît sur 1 seul Msgbox,

Merci de votre retour rapide,

Romain

youky(BJ) · 4 Juin 2021

Yes,
Voici
Bruno

VB:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim c
Cancel = True
For Each c In Selection
If c.Value <> "" Then MsgBox c.Value
Next
End Sub

XL 2013 Valeur selection cellules Msgbox

RomainPOIRET

XLDnaute Occasionnel

Pièces jointes

Phil69970

XLDnaute Barbatruc

youky(BJ)

XLDnaute Barbatruc

RomainPOIRET

XLDnaute Occasionnel

youky(BJ)

XLDnaute Barbatruc

Discussions similaires