XL 2013 Valeur selection cellules Msgbox

[RomainPOIRET]

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]

Bonjour @RomainPOIRET

Je te propose ceci :

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

@Phil69970

 

[youky(BJ)]

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

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]

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)]

Yes,
Voici
Bruno

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