Fonction Intersect dans Feuille
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:
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:
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:mrgreen:
