Incrementation d'un Range

[cerede2000]

Bonjour,

Déjà voici mon code

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:

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

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

Merci 😉

 

[Guest]

Re : Incrementation d'un Range

Bonjour,

Pas sûr d'avoir tout compris concernant ton objectif réel mais ceci pourra peut-être t'aider:
Exemple pour incrémenter:

For i = 0 To 9
    If Weekday(Date, vbMonday) Then
        Range("A" & i).Value = Date + (7 * i + (10 - (Weekday(Date, vbMonday))))
    Else
        Range("A" & i).Value = Date + 7 * i
    End If
Next i

A bientôt

 

[CBernardT]

Re : Incrementation d'un Range

Bonjour cerede2000 et le forum,

C'est un code difficile à comprendre.

Il serait préférable de nous dire, dans un petit fichier joint, ce que tu veux exactement !

Cordialement

Bernard

 

[cerede2000]

Re : Incrementation d'un Range

Alors ce que je veut en gros c'est parcourir les colonnes de cette maniere:
A1->B1->C1...

Mais pour cette ligne la:

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

C'est chaud à faire 🙁

 

[Gael]

Re : Incrementation d'un Range

Bonjour à tous,

Essaye avec le code suivant:

Sub test()
Dim colonne As Range
Dim cell As Range, i As Integer
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
    Range(cell, cell.End(xlDown)).Select
    Selection.Clear
    Set colonne = colonne.Next
    Set cell = cell.Next
Next
End Sub

@+

Gael

 

[cerede2000]

Re : Incrementation d'un Range

Parfait juste ce qu'il me fallait 😉

Merci 😉