[Résolu] Plage avec For...Each

[boudha74]

Bonjour,

le code ci-dessous fonctionne, mais parcours toute ma feuille.
Je souhaiterais qu'il le fasse simplement pour les plage B4:B60 et H4:H60.
Merci de votre aide

Dim bdp As Range
 For Each bdp In Worksheets("bd_Postes").Range("A2:A30")
  With Target
  If .Value = bdp.Value Then
  .Interior.ColorIndex = bdp.Interior.ColorIndex
  .Font.ColorIndex = bdp.Font.ColorIndex
   Exit For
  End If
 End With
Next

 

[Robert]

Re : Plage avec For...Each

Bonjour Boudha et bienvenu, bonjour le forum,

Ton code actuel ne parcours pas toute ta feuille comme tu sembles le dire mais seulement la plage A2:A30 de l'onglet bd_Postes.
Modifie cette ligne :

For Each bdp In Worksheets("bd_Postes").Range("A2:A30")

par :

For Each bdp In Worksheets("bd_Postes").Range("B4:B60,H4:H60")

 

[boudha74]

Re : Plage avec For...Each

Bonjour Robert,

je me suis mal exprimé... je souhaite bien qu'il aille regarder dans la plage de ("bd_Postes").Range("A2:A30") pour comparer les valeurs. En revanche, je souhaiterais que la condition ne s'effectue que pour la plage Range("B4:B60,H4:H60") car actuellement il verifie la condition pour toutes les cellules de feuille dans lequel j'ai ce code.

J'espere avoir ete plus clair.

Merci ton aide

 

[JNP]

Re : Plage avec For...Each

Bonjour le fil ,
C'est pas parce qu'il y a target qu'on doit en déduire tout seul qu'il s'agit d'une événementielle ...

If Intersect(Target, Range("B4:B60,H4:H60")) Is Nothing Then Exit Sub

Bonne journée

 

[boudha74]

Re : Plage avec For...Each

Merci beaucoup c'est exactement cela.

Bravo au forum.

Comment fait on pour mettre en resolu ?

 

[JNP]

Re : Plage avec For...Each

Re

Comment fait on pour mettre en resolu ?

Tu modifies le titre du post en ajoutant [Résolu] si tu y arrives, sinon, c'est pas grave ...
Bonne soirée