Petronie
XLDnaute Occasionnel
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:
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:
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
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:
Code:
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:
Code:
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