Discussion :

[8Telegraphist8]

Bonjour à tous.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jerome.vaussenat]

Salut,

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

en fait il s'agit une inputbox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[joe.levrai]

Bonjour,

par inputbox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[8Telegraphist8]

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

Fred