Bonsoir à tous,

Je cherche en vain depuis quelques comment simplifier une action répéter une trentaine de fois.
L'action est liée à une valeur toutes les 8 lignes.
Mon code de base est celui-ci:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub Mise_En_Forme()
 
Application.DisplayAlerts = False
 
If Range("AG2").Value Like "CFA" Then
Call CFA("B3")
ElseIf Range("AG2").Value Like "E" Then
Call Entreprise("B3")
End If
'--------------------------------
If Range("AG10").Value Like "CFA" Then
Call CFA("B11")
ElseIf Range("AG2").Value Like "E" Then
Call Entreprise("B11")
End If
'--------------------------------
If Range("AG18").Value Like "CFA" Then
Call CFA("B19")
ElseIf Range("AG18").Value Like "E" Then
Call Entreprise("B19")
End If
'--------------------------------
 
'etc.....
 
Application.DisplayAlerts = True
 
End Sub
Quelqu'un connait-il une manière de mettre çà sous forme d'une boucle incrémentée tous les 8 du style:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Dim i As Integer
'La boucle suivante
's'incrémente de 1 à chaque fois
 
For i = 1 To 36 Step 8
Je ne sais pas comment faire varier en même temps la Ragne "AG2" et la Range "B3".

Merci de votre aide à tous.