Remplace date sous condition

[undo74]

Bonjour à tous,
le code ci-dessous ne fonction pas correctement pouvez-vous svp m'aider à résoudre mon problème ?
J'ai une colonne B avec des dates je veux remplacer seulement les dates qui sont inférieur au 31/12/2014 et supérieure ou égal au 01/01/2016.
condition :
si inférieur au 31/12/2014 je remplace par 01/01/2015
si supérieure ou égal au 01/01/2016 je remplace par 31/12/2015
sinon je conserve la valeur actuel.

résultat:
Je dois avoir que des dates en 2015 dans la colonne B


voici le code:

        If Cells(i, 2).Value < 31 / 12 / 2014 Then
        Cells(i, col).Value = 1 / 1 / 2015
          
        ElseIf Cells(i, 2).Value >= 1 / 1 / 2016 Then
        Cells(i, col).Value = 31 / 12 / 2015
          
          
            
      Else
          Cells(i, col).Value = Cells(i, 2).Value

merci par avance.

 

[JCGL]

Re : Remplace date sous condition

Bonjour à tous,

Peux-tu essayer :

Sub UpdateMonth(ByVal col As Integer)
'Initialisation de la boucle
    Dim i As Integer
    i = 2
    'Boucle sur la liste de cellule
    Do While (Cells(i, 2).Value <> "")
        If Cells(i, 2).Value < DateSerial(2014, 12, 31) Then
            Cells(i, 2).Value = DateSerial(2015, 1, 1)
        ElseIf Cells(i, 2).Value >= DateSerial(2016, 1, 1) Then
            Cells(i, 2).Value = DateSerial(2015, 12, 31)
        Else
            Cells(i, 2).Value = Cells(i, 2).Value
        End If
        i = i + 1
    Loop
End Sub

A+ à tous

 

[FROLLINDE]

Re : Remplace date sous condition

Bonsoir..

Ou ...

Sub UpdateMonth(ByVal col As Integer)

'Initialisation de la boucle
Dim i As Integer
i = 2
'Boucle sur la liste de cellule
Do While (Cells(i, 2).Value <> "")
If Cells(i, 2).Value < #12/31/2014# Then
Cells(i, col).Value = #1/1/2015#
ElseIf Cells(i, 2).Value >= #1/1/2016# Then
Cells(i, col).Value = #12/31/2015#
Else
Cells(i, col).Value = Cells(i, 2).Value
End If
i = i + 1
Loop
End Sub

 

[Staple1600]

Re : Remplace date sous condition

Bonjour à tous


Normalement Rows et Columns se "diment" en Long , non ?
Donc théoriquement
Sub UpdateMonth(ByVal col&)
'Initialisation de la boucle
Dim i&

 

[undo]

Re : Remplace date sous condition

Bonjour JCGL, FROLLINDE, Staple1600;
C'est nickel ! vos deux solutions marche très bien
Staple1600;
Je n'ai pas trop compris ta remarque ? : confuses:
Merci infiniment pour votre aide.
À bientôt j'espère pour d'autres aventures