Discussion :

[thslt91]

Bonjour à tous,

Etant novice en programmation VBA, je suis à nouveau face à une "colle"....

J'ai deux feuilles Excel avec sur la première deux colonnes respectivement "début de l'action" et "fin de l'action" et sur la seconde 12 colonnes (représentant les 12mois de l'année) fusionnées sur base de 4 colonnes en dessous, renommées en semaine (semaine 32,33,34,....).

Ma question est la suivante, je cherche à réaliser une macro qui me permette, lorsque je rentre les dates (par exemple 1 février à 12 mars) à me remplir les cellules correspondantes en couleur. (style Gratt)
En clair, le VBA devrait "transformer" les dates en semaines et de là les colorer sur la même ligne . Par exemple si j'entre les dates sur la ligne 12, le remplissage s'effectue sur la ligne 12.

J'ai déjà effectué tous les tutos sur l'ex "site du 0" mais je ne trouve pas d'informations pertinentes à ce sujet...

Merci pour votre aide,

Bonne journée

[NEC14]

Bonjour,

Je pense que tu peux t'en sortir avec une formule Excel pour la semaine et la mise en forme conditionnelle pour la couleur.
Cela évitera de passe par du code
Cdt

[thslt91]

Bonjour,

Je ne pense pas que la mise en forme conditionnelle le permette étant donné que la cellule qui se remplit doit rester vide. Je pense que je suis contraint et forcé à passer en VBA...

[NEC14]

Voici un code pour le numéro de semaine (pas testé)

Code :

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

1
2
3
4
5
6
 
Function NOSEM(D As Date) As Long
D = Int(D)
   NOSEM = DateSerial(Year(D + (8 - WeekDay(D)) Mod 7 - 3), 1, 1)
   NOSEM = ((D - NOSEM - 3 + (WeekDay(NOSEM) + 1) Mod 7)) \ 7 + 1
End Function

Formule pour Excel 2010

Code :

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

1
2
 
=WEEKNUM(ta date(),21)

Formule pour Excel 2013

Code :

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

1
2
 
=ISOWEEKNUM(ta date())

Pour la couleur je regard dès que j'ai 5mn

[NEC14]

Voici un code que j'utilise pour colorer mes cellules une fois saisie
Ici j'utilise un bouton pour colorer ma cellule mais tout autre moyen est possible

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub B1_Click()
With Selection.Interior
    .ColorIndex = 6
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
End With
    Selection = "C"
        With Selection.Font
            .ColorIndex = 1
            .Bold = True
        End With
End Sub

[thslt91]

Bonjour ,

Merci pour votre code. Etant novice, je n'arrive pas à l'appliquer pour que quand j'entre les dates sous le bon format, il me colore automatiquement les cases des semaines correspondantes... Avez-vous une idée de "structure" de code?

Merci d'avance,

Bonne journée