Comparaison de dates
Bonjour
Je cherche a realiser une fonction qui compare les dates dans deux colonnes: quand le mois est different il ne se passe rien mais quand celui-ci est le meme la ligne correspondante est recopiee dans une autre worksheet.
Je precise aussi que la premiere colonne de date ne contient que des numeros de mois et la seconde colonne de vrais dates au format date.
Voici le code que j'ai pour l'instant. Il ne bug pas mais rien ne se passe a part la creation d'une nouvelle worksheet:
Sub Fcstaccuracy()
Dim I As Integer, NRow As Integer, NuMonth As Integer, NuMonthPO As Integer
'Calcule le nombre de lignes actives
NRow = Application.WorksheetFunction.CountIf(Range("A:A"), "ACT&PLN") + 1
'Ajouter une nouvelle worksheet
Sheets.Add.Name = "Fcst_accuracy"
'Copier 1ere ligne de sheet1 a "Fcst_accuracy"
Sheets("Sheet1").Range("A1").EntireRow.Copy Destination:=Sheets("Fcst_accuracy").Range("A1")
'Boucle pour copier les lignes pour lesquelles le mois concorde
For I = 2 To NRow
NuMonth = Range("A" & I).Value
NuMonthPO = Month(Range("B" & I).Value)
If NuMonthPO = NuMonth Then
Sheets("Sheet1").Range("A" & I).EntireRow.Copy Destination:=Sheets("Fcst_accuracy").Range("A" & Rows.Count).End(xlUp).Offset(1)
Else
End If
Next I
End Sub
Aussi, il y a parfois deux dates inscrites dans certaines cellules de la seconde colonne. J'aimerai si possible pouvoir effectuer la comparaison avec la seconde date indiquee.
J'ai mis un fichier joint en exemple.
Merci de votre aide.
frangy --> Ca fonctionne tres bien merci du coup de main!
Du coup je marque le sujet comme resolu