Discussion :

[frenche1]

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.

[78chris]

Bonjour

36 n'est par divisible par 8 !

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
Sub Mise_En_Forme()
 
Application.DisplayAlerts = False
 
For i=2 to 18 step 8 ' 18 ou tout autre multiple de 8 + 2
If Range("AG"& i).Value Like "CFA" Then
Call CFA("B" & i+1)
ElseIf Range("AG"& i).Value Like "E" Then
Call Entreprise("B"& i+1)
End If
Next i
 
Application.DisplayAlerts = True
 
End Sub

Pas sûr de l'intérêt des Application.DisplayAlerts ici

[frenche1]

Merci Chris.

Effectivement jamais tapé trop vite mon précédent texte.
La fin commençait en ligne 5 pour terminer en ligne 234.

Tout fonctionne très bien.