VBA - Comparaison cellule-colonne

Obligation formelle d'utiliser VBA pour ça

Cliquez pour agrandir...

Ben_Is_Airborned à dit:

Là où ça se complique, c'est quand je veux colorier une date dans "Dates" qui n'existe pas dans "Résultats".
En effet, j'aimerai pouvoir mettre en valeur, pour différencier, les dates qui sont dans "DATES" mais qui ne sont pas physiquement listées dans les résultats.

Paramètres à savoir :
-Les données ci jointes ne sont qu'un extrait d'un tableau de plus de 40 000 lignes. Les dates peuvent apparaitre sur la page "Résultats" jusqu'à 350 fois la même.
- Obligation formelle d'utiliser VBA pour ça. Ce code est un extrait d'un UserForm_Initialize
- Excel 2000 sur Windows XP.

Cliquez pour agrandir...

Sub suppr_dates()
'
Dim DateMin As Date
Dim dateMax As Date
'
  
  Sheets("Dates").Select
  DateMin = Application.WorksheetFunction.Min(Sheets("Résultats").Range("A:A"))
  dateMax = Application.WorksheetFunction.Max(Sheets("Résultats").Range("A:A"))
  
  Range("A2").Select
  
  ActiveCell.Value = DateMin
  d = dateMax - DateMin
  d = d + 2
  
  Selection.AutoFill Destination:=Range("A2:A" & d), Type:=xlFillDefault
  
  Range("A1").Value = "Jour"
  Columns("A:A").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
          OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
  
  NbJours1 = Application.WorksheetFunction.CountA(Range("A:A")) - 1
  Range("A2").Select
  
  
  For i = 2 To NbJours1
    [B][COLOR="Blue"]If[/COLOR] Application.WorksheetFunction.CountIf(Sheets("Résultats").Range("D:D"), Cells(i, 1)) > 0 [COLOR="blue"]Then[/COLOR]
      Cells(i, 1).Interior.ColorIndex = 3[/B]
    End If
  Next i

End Sub

Ben_Is_Airborned à dit:

Là où ça se complique, c'est quand je veux colorier une date dans "Dates" qui n'existe pas dans "Résultats".
En effet, j'aimerai pouvoir mettre en valeur, pour différencier, les dates qui sont dans "DATES" mais qui ne sont pas physiquement listées dans les résultats.

Cliquez pour agrandir...

  For i = 2 To NbJours1
    If Application.WorksheetFunction.CountIf(Sheets("Résultats").Range("D:D"), Cells(i, 1)) [B][COLOR="red"]=[/COLOR][/B] 0 Then
      Cells(i, 1).Interior.ColorIndex = 3
    End If
  Next i