J'ai un peu amélioré la macro pour que tu puisse trouver facilement les coordonnées des cellules :
Sub Action_range()
Dim MaPlage As Range
Set MaPlage = Selection
' Pour chaque cellule contenue dans la plage sélectionnée...
For Each Cell In MaPlage
' ici j'éxecute le programme
Ligne = Cell.Row ' N° de ligne de la cellule concernée
Colo = Cell.Column ' N° de Colonne de la cellule concernée
'exemple : afficher les valeurs des cellules
MsgBox ("La cellule :(" & Ligne & "," & Colo & ") a pour valeur: " & Cell.Value)
Next
End Sub
Bonjour,
je te propose d'utiliser un code comme celui ci-dessous pour traiter ta demande :
Sub Action_range()
Dim MaPlage As Range
Set MaPlage = Selection
' Pour chaque cellule contenue dans la plage sélectionnée...
For Each Cell In MaPlage
' ici j'éxecute le programme
MsgBox (Cell.Value) 'exemple : afficher les valeurs des cellules
Next
End Sub
Si tu rencontre des soucis, n'hésites pas à me recontacter.