Paramétrer ma selection de cellule

[Corthese]

Bonjour,

Je débute dans la programmation VBA et je souhaite réaliser le projet suivant:
A partir d'une colonne de chiffres dans excel, je souhaite faire un programme qui selectionne une par une chaque valeur de la colonne
Puis qui affiche à l'écran une par une chaque valeur tous les 2 secondes.

Je voudrais savoir si cela est possible, de plus je voudrais savoir comment faire pour paramètrer ma selection de cellule. je voudrais faire une boucle qui modifie le N° de ma cellule.
Exemple :

Sub macro 1
mavar = Range ("A1").value
MsgBox "FC"&mavar

End Sub

Au lieu de A1 je voudrais avoir Ax ou x est une inconnue que j'incremente par une boucle -->A1, A2, A3, etc

Par avance merci pour vos futures conseils
Cordialement
Corthese

 

[michel]

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