Comment faire un "i" variable ?

Bonjour à tous.

Je pense que la solution à mon problème est simple. J'ai un code donc le début est le suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub UpdateIncome()   Dim i As Variant   i = RowCount   For i = 5 To 60000   Application.ScreenUpdating = False   Worksheets("G_Income_Recalc").Select   If Cells(i, 3) = "" Then Exit For

---

Je cherche simplement à rendre variable le "5" et le "60000". Est-il possible d'avoir un Msgbox me demandant d'entrer ces deux chiffres ? Il est aussi possible de placer ces chiffres dans deux cellules du fichier avant d'exécuter la Macro.

J'imagine qu'il faut les déclarer en variable mais je ne sais pas trop comment m'y prendre.

Merci de vos aides

Fred

Salut,

Citation:

---

Envoyé par 8Telegraphist8

Est-il possible d'avoir un Msgbox me demandant d'entrer ces deux chiffres ?

---

en fait il s'agit une inputbox :

Code:

---

1 2 3 4 5 6 7 8 9

dim debut as integer dim fin as integer   debut = inputbox ("début de la boucle ?") fin = inputbox ("fin de la boucle ?")   for i = debut to fin ... next i

---

Citation:

---

Envoyé par 8Telegraphist8

Il est aussi possible de placer ces chiffres dans deux cellules du fichier avant d'exécuter la Macro.

---

si les valeurs sont dans la feuille active en A1 et B1 cela donne :

Code:

---

1 2 3

for i = range("A1").value to range("B1").value ... next

---

Là aussi, si tu veux rendre ton code plus claire, tu peux déclarer et initialiser des variables.

Bonjour,

par inputbox :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub TotoParInput() Dim Premier As Long Dim Dernier As Long Dim i As Long   Premier = Application.InputBox("Premier indice ?", , , , , , , 1) Dernier = Application.InputBox("Dernier indice ?", , , , , , , 1) For i = Premier To Dernier ' le traitement Debug.Print i Next i   End Sub

---

Par valeur de cellule (ici A1 et A2 de la feuille active)

Code:

---

1 2 3 4 5 6 7

Sub TotoParPlage() Dim i As Long For i = Cells(1, 1).Value To Cells(2, 1).Value ' le traitement Debug.Print i Next i End Sub

---

Ok ok ! J'ai capté.
Merci à vous Jérôme et Joe

Fred