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

XL 2016 Condition sur une colonne

Maxime26

XLDnaute Nouveau
Bonjour ,
je vous sollicite car j'ai une problématique ,
sur mon classeur j'ai 2 feuilles , dans la première je doit remplir le nom de certain pays , dans la seconde , il y a le nom de plusieurs pays .

But du programme :

Si le nom des pays que l'on renseigne en feuille 1 est déjà présent en feuille 2 ,la ligne contenant le pays en feuille 1 doit devenir orange

Je parviens a faire cela cependant ma problématique réside dans les lignes vides qui sont également surlignés .

Merci

VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

        Dim i As Integer
         Dim j As Integer

For i = 1 To 20
For j = 1 To 15


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
 

Pièces jointes

  • TEST.xlsm
    19.7 KB · Affichages: 3
Solution
Bonsoir,
Il faut juste rajouter une condition pour indiquer que la cellule ne doit pas être vide
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim i As Integer
  Dim j As Integer
    For i = 1 To 20
      For j = 1 To 15
        If Cells(i, 4) = Worksheets(2).Cells(j, 2) And Cells(i, 4) <> "" 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

M12

XLDnaute Accro
Bonsoir,
Il faut juste rajouter une condition pour indiquer que la cellule ne doit pas être vide
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim i As Integer
  Dim j As Integer
    For i = 1 To 20
      For j = 1 To 15
        If Cells(i, 4) = Worksheets(2).Cells(j, 2) And Cells(i, 4) <> "" 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…