remplir la cellule qui ce trouve à l'intersection de......

[pascal21]

bonsoir à tous
j'ai un tableau que j'aimerais remplir grâce à un userform
dans cet userform j'ai un zone de liste pour les noms (colonnes)
une autre pour les dates (lignes)
une pour les taches à remplir dans les cases
UNE CELLULE PEUT CONTENIR UNE OU PLUSIEURS TACHES
donc le choix d'un nom et d'une date donne à l'intersection une cellule que j'aimerais remplir grâce à la zone de liste "taches"
je vous joint un classeur exemple pour mieux comprendre
merci

 

[Softmama]

Re : remplir la cellule qui ce trouve à l'intersection de......

Bonsoir,

Rentre ce code, dans le bouton Valider de ta userform:

Private Sub CommandButton1_Click()
On Error Resume Next
    Col = [3:3].Find(Me.ListBox1.Value).Column
    lig = [B:B].Find(CDate(Me.ListBox2.Value)).Row
    Cells(lig, Col) = Me.ListBox3.Value
End Sub

 

[pascal21]

Re : remplir la cellule qui ce trouve à l'intersection de......

bonsoir sotfmama
c'est impécable,
entre temps j'avais rajouter des listbox "taches" pour avoir la possibilité de rentrer plusieurs taches dans une même cellule
j'ai rajouté ton code et le tour est fait
merci