Discussion :

[vs86963]

Bonjour,
J'ai une carte avec une forme "Shapes.Range(Array("1"))"liée à la macro ci-dessous.
Mon fichier est sur une autre feuille et je voudrais répéter cette opération sur les 340 lignes suivantes
Sachant que chaque forme suit le numéro de l'ID

ID	Commune	INSEE1	CP	Canton	Intercommunalité
1	Adriers	86001	86430	L'Isle-Jourdain	C.C. du Montmorillonnais
2	Amberre	86002	86110	Mirebeau	C.C. du Mirebalais
3	Anché	86003	86700	Couhé	C.C. de la Région de Couhé
4	Angles-sur-l'Anglin	86004	86260	Saint-Savin	C.C. des Vals de Gartempe et Creuse

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
29
30
31
32
Sub Editeurs()
 
Sheets("Vienne").Shapes.Range(Array("1")).Select
  With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 0, 0)
        .Transparency = 0
        .Solid
    Sheets("Communes").Select
   Range("H5").Select
If Range("h5") = "Cosoluce" Then
.ForeColor.RGB = RGB(255, 0, 0)
     .Transparency = 0
     .Solid
    ElseIf Range("h5") = "BL" Then
    .ForeColor.RGB = RGB(96, 96, 255)
     .Transparency = 0
     .Solid
  ElseIf Range("h5") = "" Then
  .ForeColor.RGB = RGB(255, 255, 255)
  .Transparency = 0
  .Solid
  ElseIf Range("h5") = "Cégid" Then
  .ForeColor.RGB = RGB(128, 0, 64)
  .Transparency = 0
  .Solid
 
     End If
    End With
 
 Sheets("Vienne").Select
End Sub

[Menhir]

Commencer par lire ceci : https://msdn.microsoft.com/fr-fr/VBA...next-statement

[Menhir]

Tout d'abord une mise au point : je lis très rarement les demandes en message privé et j'y réponds encore plus rarement.
Et tu devrais lire les règles du forum, entre autre celle-ci : http://club.developpez.com/regles/#LIV-J

J'ai bien compris le fonctionnement de la boucle, mais ce qui me bloque c'est incrémenter de 1 chaque forme et de passer à la cellule inférieure à chaque boucle

Si tu n'as pas compris comment incrémenter dans une boucle For To, c'est que tu n'as pas compris le fonctionnement de cette boucle et que tu devrais relire le lien.

Si tu ne comprends toujours pas, alors lis ceci :
http://silkyroad.developpez.com/vba/boucles/
http://silkyroad.developpez.com/VBA/LesVariables/