Bonjour a tous,
j'ai creer une macro qui selectionne 7 cellules d'une colonne.
le but est de remplir ces 7 cellules par le sjours de la semaine allant de samedi a vendredi.
donc en gros la premiere cellule de la colonne serait samedi dernier, puis dimanche pui aujourd'hui lundi etc....

bref tout ca ca marche tres bien. voici le code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Testing()
Dim InputDate As Date
Dim i As Integer
InputDate = Date
i = 0
 
If WorksheetFunction.CountBlank(Range("B11:B17")) = Range("B11:B17").Count Then
    Range("B11", Range("B17")).Select
        For Each Cell In Selection
            Cell.Value = DateValue(InputDate - WeekDay(InputDate) + i)
            i = i + 1
        Next
End If
 
End Sub
le probleme, c'est que si un jour quelqu'un decide de changer la colonne B ou se trouvent les dates en question, ben il pourra plus executer la macro.
On ma dit qu'il y avait un moyen de renommer les selection et au lieu de "B11:B17" mettre le nom...

quelqu'un pour m'aider?

Merci!