XL 2016 VBA - Condition plage cellule feuille 1 par rapport a une colonne en feuille 2

[Maxime26]

Bonjour a tous ,
je sollicite votre aide car je ne parviens pas a a faire fonctionner mon bout de code pour une raison qui m'échappe ( je suis débutant ) .

Fonction du code :

vérifier que les valeurs en feuille 1 colonne 4 sont présente en feuille 2 colonne 2 .
Si c'est le cas mettre un remplissage orange sur la ligne en question et mettre la valeur 0 sur cette même ligne en colonne E et H.

J'ai essayé pas mal de choses différentes , mais je n'ai jamais réussi a faire fonctionner la macro correctement ,
je parviens a faire la vérification par rapport a la feuille mais seulement sur une cellule précise alors que je souhaite le faire sur la colonne entière .

Merci .

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

        Dim i As Integer
 

For i = 1 To 100

If Cells(i, 4) = Worksheets(2).Range("B4") Then
  'If Cells(i, 4) = "Georgie" Or Cells(i, 4) = "France" Or Cells(i, 4) = "Belgique " Or Cells(i, 4) = "Italie"Then

    Range(Cells(i, 1), Cells(i, 11)).Interior.Color = RGB(255, 192, 0)
    Cells(i, 5) = 0
    Cells(i, 7) = 0
   
  End If

Next i

End Sub

 

[Wayki]

Bonjour,
Essayez de remplacer range("B4") par cells(i,2).
Sinon il faut créer une nouvelle boucle "for each"
A +

 

[Maxime26]

Merci ,effectivement avec une nouvelle boucle cela fonctionne ,néanmoins cela me pose une nouvelle problématique , je vais créer une nouvelle discussion .

Merci pour ton aide .

Private Sub Worksheet_SelectionChange(ByVal Target As Range)



        Dim i As Integer
         Dim j As Integer

For i = 1 To 100
For j = 1 To 100

If Cells(i, 4) = Worksheets(2).Cells(j, 2) Then

  'If Cells(i, 4) = "Georgie" Or Cells(i, 4) = "France" Or Cells(i, 4) = "Belgique " Or Cells(i, 4) = "Italie"Then


    Range(Cells(i, 1), Cells(i, 11)).Interior.Color = RGB(255, 192, 0)

    Cells(i, 5) = 0

    Cells(i, 7) = 0

    

  End If


Next j
Next i


End Sub