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
Cela marche parfaitement.
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:
J'ai voulu utiliser ce code pour la comboboxc 2
Malheureusement en combinant les 2 cela ne marche pas
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:
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![]()
Partager