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