Bonjour à toutes et à tous.

J'explique ma situation

J'ai une combobox 1 avec des Noms
J'ai une combobox 2 avec une date (n° de semaine)

Les valeurs de la combobox 1 et 2 se trouvent également dans une feuille.
Combobox 1 en colonnes
Combobox 2 en ligne

J'ai d'abord utiliser le code ci dessus pour rechercher la valeur de la combobox 1 dans la feuille

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
'Cells.Select
On Error GoTo fin
Cells.Find(What:=TextBox_date.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Columns.EntireColumn.Activate
UCase (ActiveCell.Column)
Fin:
Cela marche parfaitement.

J'ai voulu utiliser ce code pour la comboboxc 2

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
'On Error GoTo fin
Cells.Find(What:=TextBox_date.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Rows.EntireRow.Activate
UCase (ActiveCell.Row)
fin:
Malheureusement en combinant les 2 cela ne marche pas

Le but est de trouver l'intersection des valeurs des 2 combobox afin de pouvoir remplir la cellule.

Quelqu'un aurait il une idée svp?

Merci d'avance