Bonsoir
J'ai fait une boucle simple sur les cellules mais en se déplaçant sur les numeros et ça a très bien marché :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
Dim i
i = 1
While i <> 8
ActiveSheet.Range("F" & CStr(i)).Value = InputBox("le numero est jusqu'à 7", "ENTRER LA VALEUR DE N" & i)
i = i + 1
Wend
Je veux faire une simple boucle sur les cellules mais en se déplaçant sur les lettres
C'est à dire en se déplaçant FàL !(F ,G,H,I,J,K,L).
Par exemple :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Dim i
dim a
i = F
While i<> M
ActiveSheet.Range(F"5"Value = InputBox("le lettre est jusqu'à L", "ENTRER LA VALEUR DE N" &a)
i = i + 1
a = a+1
Wend
Ce code est totalement FAUX sur les syntaxes.Mais vous avez au moin compris ce que je voulais dire.

Alors quel est le bon code :
Merci.