Paramétrer ma selection de cellule

bonjour Corthese

j'espere que les 3 exemples de macros pourront t'aider
les 3 procedures effectuent le meme type d'operation :
boucle sur la plage de cellule A1:A5 et affichage temporaire de chaque valeur


Sub MessageTemporaire()
Dim Cell As Range
For Each Cell In Range("A1:A5")
CreateObject("WScript.Shell").PopUp "FC" & Cell, 2, "Valeur de la cellule " & Cell.Address, 0
'description
'CreateObject("WScript.Shell").PopUp "Valeur1","Valeur2" ,"Valeur3","Valeur4"
'Valeur1= la donnée qui doit s'afficher dans le message
'Valeur2= le temps d'affichage du message
'Valeur3= le titre du message
'Valeur 4= le type de bouton qui s'afiche dans le message
Next Cell
End Sub


Sub BouclePlageCelluleA1A5()
Dim i As Byte
For i = 1 To 5
CreateObject("WScript.Shell").PopUp "FC" & Cells(i, 1), 2, "Valeur de la cellule " & Cells(i, 1).Address, 65
'description Cells(i, 1) :
' i correspond au numero de ligne
' 1 correspond au numero de colonne
Next
End Sub


Sub TroisiemeExemple()
Dim i As Byte
Dim MaVar As String 'si les données sont des chaines de caractere
For i = 1 To 5
MaVar = "FC" & Range("A" & i)
CreateObject("WScript.Shell").PopUp MaVar, 2, "Valeur de la cellule " & Range("A" & i).Address, 48
Next
End Sub



bonne journée
MichelXld