Incrementation d'un Range

Bonjour,

Déjà voici mon code

Code:

---

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:

---

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

---

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

Merci ;)

Bonjour,

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

Bonsoir,

voila ce que j'ai compris :

Code:

---

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

---

C'est bon j'ai trouvé ;)

Code:

---

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

---