Coup de main pour gérer validation avec usf

Salut le forum

J'ai crée un usf pour gérer des validations.

Mon usf comporte un combobox et des textbox.

La liste du combobox devra être les éléments(non vide) de la E6:N6 de la feuille PARAMETRE.

Je souhaite que lorsque je sélectionne un élément de la liste du combobox, que les données lui concernant s'affichent dans les textbox de mon usf.

Exemple:

Si je choisis la valeur de E6 dans le combobox, ci-dessous ce qui devra se produire:

le textbox2 devra prendre la valeur de la cellule E11

le textbox3 devra prendre la valeur de la cellule E15

le textbox4 devra prendre la valeur de la cellule E17

le textbox5 devra prendre la valeur de la cellule E18

le textbox6 devra prendre la valeur de la cellule E19

le textbox7 devra prendre la valeur de la cellule E22

le textbox8 devra prendre la valeur de la cellule E23

le textobjet devra prendre la valeur de la cellule E25

Si je choisis la valeur de F6 dans le combobox, ci-dessous ce qui devra se produire:

le textbox2 devra prendre la valeur de la cellule F11

le textbox3 devra prendre la valeur de la cellule F15

le textbox4 devra prendre la valeur de la cellule F17

le textbox5 devra prendre la valeur de la cellule F18

le textbox6 devra prendre la valeur de la cellule F19

le textbox7 devra prendre la valeur de la cellule F22

le textbox8 devra prendre la valeur de la cellule F23

le textobjet devra prendre la valeur de la cellule F25

Si je choisis la valeur de G6 dans le combobox, ci-dessous ce qui devra se produire:

le textbox2 devra prendre la valeur de la cellule G11

le textbox3 devra prendre la valeur de la cellule G15

le textbox4 devra prendre la valeur de la cellule G17

le textbox5 devra prendre la valeur de la cellule G18

le textbox6 devra prendre la valeur de la cellule G19

le textbox7 devra prendre la valeur de la cellule G22

le textbox8 devra prendre la valeur de la cellule G23

le textobjet devra prendre la valeur de la cellule G25

etc.

Private Sub ComboBox1_Change()
On Error Resume Next
col = Sheets("ETAT_DGAE").Cells(6, Sheets("ETAT_DGAE").Columns.Count.End(xlToLeft).Column).Find(ComboBox1.Value).Column
    TextBox2.Value = Sheets("ETAT_DGAE").Cells(11, col)
    TextBox3.Value = Sheets("ETAT_DGAE").Cells(15, col)
    TextBox4.Value = Sheets("ETAT_DGAE").Cells(17, col)
    TextBox5.Value = Sheets("ETAT_DGAE").Cells(18, col)
    TextBox6.Value = Sheets("ETAT_DGAE").Cells(19, col)
    TextBox7.Value = Sheets("ETAT_DGAE").Cells(22, col)
    TextBox8.Value = Sheets("ETAT_DGAE").Cells(23, col)
    TextObjet.Value = Sheets("ETAT_DGAE").Cells(25, col)
End Sub

Bonjour

Bonjour EngueEngue

A vérifier

Salut EngueEngue et Banzaï

Merci pour vos solutions.

Celle de Banzaï a bien fonctionné.

Merci