Petit problème de calendrier

[Petronie]

Bonsoir le Forum.
J'ai un petit soucis avec un calendrier.
Je voudrais encoder des vacances dans un calendrier.
On m'a déjà aidé pour pouvoir encodé un jour bien précis mais maintenant, je voudrais pouvoir encoder une période entre 2 dates. Je m'explique.
Voilà le code que l'on m'a donné pour encoder une date précise:

Private Sub CommandButton1_Click()
Dim Ligne As Integer, Colonne As Integer

Ligne = 6 + (4 * Month(Calendar1.Value))
Colonne = 1 + Day(Calendar1.Value)

Cells(Ligne, Colonne).Select

Unload JourPrecis

If ActiveCell.Offset(1, 0) = 'P' Then    'le 'P' signifie que c'est un jour presté
ActiveCell.Offset(1, 0).Value = 'V'   ' le 'v' veut dire 'vacance'
ActiveCell.Offset(1, 0).Interior.ColorIndex = 15
End If
End Sub

Maintenant, j'aurais voulu l'adapter. J'étais partie avec l'idée de changer le 'Calendar1.Value' en 'DTPicker1.Value' puisque pour ici, je n'utilise plus le calendar mais le DTPicker. Pour la date de début de congé, c'est ok. Pour la date de fin de congé, c'est aussi ok. Mais pour ce qui est entre ces deux dates, je ne sais pas comment m'y prendre.
Voilà, le code que j'ai mis jusqu'ici:

Private Sub CommandButton1_Click()
Dim Ligne As Integer, Colonne As Integer

Ligne = 6 + (4 * Month(DTPicker1.Value))
Colonne = 1 + Day(DTPicker1.Value)
Ligne = 6 + (4 * Month(DTPicker2.Value))
Colonne = 1 + Day(DTPicker2.Value)
Cells(Ligne, Colonne).Select

Unload Periode

If ActiveCell.Offset(1, 0) = 'P' Then
ActiveCell.Offset(1, 0).Value = 'V'
ActiveCell.Offset(1, 0).Interior.ColorIndex = 15
End If
End Sub

Est-ce quelqu'un peut m'aider si c'est pas trop compliqué. (et en espérant que je ne me suis pas plantée depuis le début) 😱

Merci d'avance à vous.

Message édité par: Pétronie, à: 21/06/2006 21:41

 

[Pierrot93]

Bonjour Pétronie

pourquoi ne pas faire une boucle 'for' entre tes 2 dates, un peu comme ci dessous

for i = DTPicker1.Value to DTPicker2.Value

next i

Si cela peut t aider...

Bonne journée
@+

 

[Petronie]

Merci Pierrot93, mais pour répondre à ta question qui est 'Pourquoi ne pas faire une boucle?...'; ben c'est parceque je n'y connais rien. J'apprends quelques petits trucs au fur et à mesure, avec les exemples que l'on me donne. Mais, je vais quand même essayer ce que tu me dis. Le tout est de l'insérer convenablement dans mon module.
Merci à toi.