Discussion :

[TITOU2911]

Bonjour,

Je suis complètement novice sous VBA mais j’aurais besoin d’un dépannage rapide si cela vous est possible !

Voilà mon besoin :

J’ai un fichier avec en : Colonne A : Date début de location JJ/M/AAAA
Colonne B : Date de fin de location JJ/M/AAAA

Et colonne C à MP le jour de l’année (de 1 à 365)


J’aurais besoin qu’une macro me positionne le chiffre 1 dans chaque colonne comprise entre ce deux dates.

Par exemple pour une location de chalet entre le 01/06/2010 et le 07/06/2010 je souhaiterais avoir 0 dans chaque colonne sauf dans les colonnes EX à FD (jour 152 à 158) ou je souhaiterais avoir un 1 dans chacune d’elle.

Il faudrait que la macro s’exécute sur autant de ligne que la feuille en contient !

J’imagine que c’est possible mais que c’est compliqué ?

Merci d’avance.

[ESVBA]

une solution :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub esvba()
    For Each rw In Sheets("Feuil1").Range("A2:A" & Sheets("Feuil1").Range("A65000").End(xlUp).Row)
        For Each cn In Range("C1:MP1")
            If DateSerial(Year(Cells(rw.Row, 1).Value), 1, 0) + cn.Value >= Cells(rw.Row, 1) And _
               DateSerial(Year(Cells(rw.Row, 2).Value), 1, 0) + cn.Value <= Cells(rw.Row, 2) Then
                Cells(rw.Row, cn.Column).Value = 1
            Else
                Cells(rw.Row, cn.Column).Value = ""
            End If
        Next cn
    Next rw
End Sub

ESVBA

[mercatog]

Je suis complètement novice sous VBA mais j’aurais besoin d’un dépannage rapide si cela vous est possible !

J’imagine que c’est possible mais que c’est compliqué ?

C'est possible et pour juger de la complexité, ça dépend, si on s'y met par désir d'apprendre ou simplement suite à la première citation.
Un dépannage rapide ne te sera d'aucune utilité.
ESBVA a la gentillesse de te donner une proposition avec 2 boucles (assez gourmande)
Une autre proposition avec une seule boucle

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim LastLig As Long, i As Long
Dim d As Integer, f As Integer
 
With Sheets("Feuil1")
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    For i = 2 To LastLig
        .Range("C" & i & ":ND" & i).ClearContents
        d = DatePart("y", CDate(.Range("A" & i).Value), , vbFirstJan1)
        f = DatePart("y", CDate(.Range("B" & i).Value), , vbFirstJan1)
        .Range(.Cells(i, 2 + d), .Cells(i, 2 + f)).Value = 1
    Next i
End With

[Patrice740]

Bonjour,

Essaie ce code, en adaptant le numéro de feuille (1) et la première cellule contenant la date de début (A2) :

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
  Dim C As Range
  With Worksheets(1)
    For Each C In .Range("A2:A" & .Cells(.Rows.Count, "A").End(xlUp).Row).Cells
      C.Offset(, C.Value - DateSerial(Year(Date), 1, 0) + 1) _
       .Resize(, DateDiff("d", C.Value, C.Offset(, 1).Value) + 1).Value = 1
    Next C
  End With
End Sub

Patrice

[Philippe Tulliez]

Bonjour,
Sauf s'il est impératif de passer par du VBA, c'est un cas classique d'un planning qui peut être réglé par une simple fonction Excel
En A3 la date de début, en B2 la date de fin, dd représente le 1er jour de l'année, sur la ligne 1 à partir de la colonne C les nombres de 1 à 366

Code :

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

=(($A2-dd)<C$1) * (($B2-dd)+1>=C$1)

Pour cacher les 0, décocher l'option d'affichage des valeurs nulles ou utiliser la mise en forme conditionnelle.
Autre possibilité, en plaçant cette formule dans la Mise en forme conditionnelle, permet de mettre la cellule en évidence tout en laissant la possibilité de remplir la cellule avec une autre valeur.