Discussion :

[cerede2000]

Bonjour,

Déjà voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim colonne As Range
Dim cell As Range
Set colonne = Range("A1")
Set cell = Range("A2")
For i = 0 To 9
    If Weekday(Date, vbMonday) Then
        colonne.Value = Date + (7 * i + (10 - (Weekday(Date, vbMonday))))
    Else
        colonne.Value = Date + 7 * i
    End If
 
    While cell.End(xlDown).Value <> ""
        If cell.End(xlDown).Value <> "" Then
            Range("A2", Range("A2").End(xlDown)).Value = ""
        End If
    Wend
 
    Set colonne = colonne.Next
Next

En faite il remplis des cellules avec une date, ça c'est bon
Et ensuite il vide les cellules qui sont en dessous de celle qui contient la date, et c'est la mon problème avec cette ligne:

Code :

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

Range("A2", Range("A2").End(xlDown)).Value = ""

Je ne voit pas comment faire pour quelle puisse être incrémenter.

Merci

[fring]

Bonjour,

Je n'arrive pas à comprendre en lisant ton code ce que tu cherches à obtenir, tu peux essayer de l'expliquer stp ?

[JackOuYA]

Bonsoir,

voila ce que j'ai compris :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Dim colonne As Range
Dim l As integer
Set colonne = Range("A1")
 
For i = 0 To 9
    If Weekday(Date, vbMonday) Then
        colonne.Value = Date + (7 * i + (10 - (Weekday(Date, vbMonday))))
    Else
        colonne.Value = Date + 7 * i
    End If
l = colonne.EntireColumn.Rows(65535).End(xlUp).Row
  If l>= 2 Then
   Range(colonne.Offset(1), colonne.Offset(l - 1)).ClearContents
  End If
Set colonne = colonne.Next
Next

[cerede2000]

C'est bon j'ai trouvé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Bouton1_Clic()
    Dim cell As Range
    Set cell = Range("A2")
    For i = 0 To (Selection.Columns.Count - 1)
        While cell.End(xlDown).Value <> ""
            If cell.End(xlDown).Value <> "" Then
                Range(cell, cell.End(xlDown)).Value = ""
            End If
        Wend
 
        Set cell = cell.Next
    Next
End Sub