A
albert
Guest
bonsoir à tous, bonsoir fourum,
c'est un plaisir chaque jour renouvelé que de rendre visite au forum... surtout après avoir "lutté" en vain pour trouver la solution... (qui se cache bien...)
Voilà....
Dans la pièce jointe,
Les dates de la feuille Reference sont complètes, elles sont comparées successivement avec les dates des feuilles AA et BB
Dans la feuille AA, il manque le 26/06
Dans la feuille BB, il manque le 07/07
(ce que le code doit trouver)
Le code compare correctement AA à la feuille référence et colore le 26/03
Mais ensuite, la feuille BB est comparée à la feuille AA (à la place de la feuille Référence)
(computer rebelle)
donc, j'ai deux pb à résoudre :
- Comment obtenir une comparaison successive de chaque feuille (AA,BB …) avec la feuille Référence ??
-Lorsque les dates manquantes sont trouvées par le code, comment obtenir qu’elles soient ajoutées à leur place, dans les feuilles AA et BB (pour complèter les colonnes)???
merci d'avance
albert
le code :
Sub Comparaison()
Application.ScreenUpdating = False
Dim Cellule1 As Range, Cellule2 As Range
Compteur = Sheets.Count - 1
For i = 1 To Compteur
With Sheets("Reference")
For Each Cellule1 In Range("P7", Range("P7").End(xlDown))
Sheets(i).Select
For Each Cellule2 In Range("P7", Range("P7").End(xlDown))
If Cellule1 <> Cellule2 Then
Cellule1.Font.Color = vbGreen
Else
Cellule1.Font.Color = vbBlack
Exit For
End If
Next Cellule2
Next Cellule1
Application.ScreenUpdating = True
End With
Next i
Sheets("Reference").Select
End Sub
c'est un plaisir chaque jour renouvelé que de rendre visite au forum... surtout après avoir "lutté" en vain pour trouver la solution... (qui se cache bien...)
Voilà....
Dans la pièce jointe,
Les dates de la feuille Reference sont complètes, elles sont comparées successivement avec les dates des feuilles AA et BB
Dans la feuille AA, il manque le 26/06
Dans la feuille BB, il manque le 07/07
(ce que le code doit trouver)
Le code compare correctement AA à la feuille référence et colore le 26/03
Mais ensuite, la feuille BB est comparée à la feuille AA (à la place de la feuille Référence)
(computer rebelle)
donc, j'ai deux pb à résoudre :
- Comment obtenir une comparaison successive de chaque feuille (AA,BB …) avec la feuille Référence ??
-Lorsque les dates manquantes sont trouvées par le code, comment obtenir qu’elles soient ajoutées à leur place, dans les feuilles AA et BB (pour complèter les colonnes)???
merci d'avance
albert
le code :
Sub Comparaison()
Application.ScreenUpdating = False
Dim Cellule1 As Range, Cellule2 As Range
Compteur = Sheets.Count - 1
For i = 1 To Compteur
With Sheets("Reference")
For Each Cellule1 In Range("P7", Range("P7").End(xlDown))
Sheets(i).Select
For Each Cellule2 In Range("P7", Range("P7").End(xlDown))
If Cellule1 <> Cellule2 Then
Cellule1.Font.Color = vbGreen
Else
Cellule1.Font.Color = vbBlack
Exit For
End If
Next Cellule2
Next Cellule1
Application.ScreenUpdating = True
End With
Next i
Sheets("Reference").Select
End Sub