Bonjour,
Pour finir mon projet j'ai un petit souci. Je cherche à remplir un tableau a partir d'un userform et de plusieurs objet.
L'idée est la suivante. Un DTPicker pour la date qui se met sur la première ligne, un label avec un intitulé qui depend d'un choix de bouton (matin, midi et soir) qui se met sur la seconde ligne. Puis dans la colonne la ligne 32 ou doit s'inscire le temps via une textbox.
Pour cette textbox j'ai écris ceci
Private Sub TextBox2_Change()
On Error Resume Next
Col = [1:1].Find(Me.DTPicker1.Value).Column
Col = [2:2].Find(Me.Label3.Caption).Column
Lig = 36
Cells(Lig, Col) = Me.TextBox2.Value
End Sub
Mais forcément cela ne prend en compte que la valeur de la Label, et si j'ai "04/05/12 matin" puis le "05/05/12 matin" la valeur de la textbox pour la seconde date (05/05) se mettra dans la première colonne (04/05).
Pouvez vous m'aidez à corriger cette formule pour avoir l’intersection d'une ligne de deux colonnes.
Merci par avance
Pour finir mon projet j'ai un petit souci. Je cherche à remplir un tableau a partir d'un userform et de plusieurs objet.
L'idée est la suivante. Un DTPicker pour la date qui se met sur la première ligne, un label avec un intitulé qui depend d'un choix de bouton (matin, midi et soir) qui se met sur la seconde ligne. Puis dans la colonne la ligne 32 ou doit s'inscire le temps via une textbox.
Pour cette textbox j'ai écris ceci
Private Sub TextBox2_Change()
On Error Resume Next
Col = [1:1].Find(Me.DTPicker1.Value).Column
Col = [2:2].Find(Me.Label3.Caption).Column
Lig = 36
Cells(Lig, Col) = Me.TextBox2.Value
End Sub
Mais forcément cela ne prend en compte que la valeur de la Label, et si j'ai "04/05/12 matin" puis le "05/05/12 matin" la valeur de la textbox pour la seconde date (05/05) se mettra dans la première colonne (04/05).
Pouvez vous m'aidez à corriger cette formule pour avoir l’intersection d'une ligne de deux colonnes.
Merci par avance