Copier les cellules selon date

Bonsoir,

je souhaiterais copier les valeurs et les couleurs des cellules (B1 et B2 et A6 et B6 et C6 et D6) d'une feuille(machine)

vers une feuille(équipement périmé) OU feuille(équipement sera périmé) OU feuille(équipement périmé)

de façon automatique et selon condition des dates.

de mm façon les cellules (B1 et B2 et A7 et B7 et C7 et D7) d'une feuille(machine)

vers une feuille(équipement périmé) OU feuille(équipement sera périmé) OU feuille(équipement périmé)

de façon automatique et selon condition des dates.

de mm façon les cellules (B1 et B2 et A8 et B8 et C8 et D8) d'une feuille(machine)

vers une feuille(équipement périmé) OU feuille(équipement sera périmé) OU feuille(équipement périmé)

de façon automatique et selon condition des dates.

Sub copier_selon_date()
    Dim I As Byte
    Dim J As Byte
    Dim K As Byte

    Application.ScreenUpdating = False
    For I = 6 To 30
        K = 0
        For J = 3 To 43
            If K = 2 Then K = 0: GoTo SUITE
            DG = Cells(I, J).Value
            If DG >= Now() + 12 Then
                'copier DG Dans Sheets (équipement A jour)

           ElseIf DG > Now() And DG < Now() + 12 Then
               'copier DG Dans Sheets (équipement sera périmé)

            Else:
                     'copier DG Dans Sheets (équipement périmé)
            End If
            K = K + 1
SUITE:
        Next J
    Next I
    Application.ScreenUpdating = True

    End Sub

Merci grandement de votre aide

Salut,

Si je t’ai bien compris, ton code modifié joint à ce fichier devrait faire l’affaire.

Pour l’instant il manquerait juste le report des couleurs.

Si tu lances deux fois de suite le code, les premières données sont tout d’abord effacées.

Evite de placer des infos directement dans le fichier : on ne sait pas si ce sont des informations à l'attention de l'utilisateur, on doit les comparer à celles placées sur ton fil, etc. De plus, il est plus difficile d'en consulter l'historique.

Cordialement.

bonjour

merci bien Yvouille

ca marche tres bien

merci de votre aide