Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Maxime26

XLDnaute Nouveau
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 .

VB:
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
 

Pièces jointes

  • TEST.xlsm
    19 KB · Affichages: 1
Solution
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 .

VB:
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

Maxime26

XLDnaute Nouveau
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 .

VB:
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…