Aide VBA pour recopier une cellule

Version imprimable

12/04/2011, 17h44
TITOU2911

Aide VBA pour recopier une cellule

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.

bonsoir titou2911, le forum

une solution :

Code:

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

Citation:

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

:nono:

Citation:

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:

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

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:

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

13/04/2011, 05h55
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:

=(($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.