Discussion :

[wyzer]

Bonjour,

Pourriez-vous me dire comment faire pour traiter une par une, les dates contenue dans une cellule sous cette forme :

Cellule A2 = "01/01/2011,05/11/2011,01/02/2011"

Ce que j'aimerais c'est pouvoir faire une boucle de la première date à la dernière contenue dans cette cellule

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For i = premièreDate To dernièreDate
    For j = 2 To dernièreLigne
        If .Range("b" & j) = i Then .Rows.ClearContents
    Next
Next

Dans cet exemple il y a 3 boucles, car il y trois dates contenue dans la cellule A2.

Merci par avance pour votre aide.

[casefayere]

J'ai supprimé mes deux réponses que je pense, erronées, et propose ce code que cette fois, j'ai testé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub MACRO3()
 
Dim LastLig As Long
Dim DatesCel, i As Long, j As Long
DatesCel = Split(Range("A2"), ",", -1)
LastLig = Range("B" & Rows.Count).End(xlUp).Row
For i = 0 To UBound(DatesCel) - 1
  For j = LastLig To 2 Step -1
    If CDate(Range("B" & j)) = CDate(DatesCel(i)) Then Rows(j).ClearContents
  Next j
Next i
End Sub

[wyzer]

Merci !!