Re : Remplir un TextBox avec une lListeBox
Re Bonsoir
Encore un nouveau problème de recherche avec conditions multiples ; sais très bien faire avec une formule mais en VBA je ne vois pas comment faire simplement
voilà ce que donne la formule : =SI(OU(B71="";F71="");"";SI(B71="Bouteur D4";RECHERCHEV(F71;BULL!$D$16:$U$121;18;FAUX);SI(B71="Bouteur D5";RECHERCHEV(F71;BULL!$D$16:$U$121;16;FAUX);SI(B71="Bouteur D6";RECHERCHEV(F71;BULL!$D$16:$U$121;14;FAUX);SI(B71="Bouteur D7S";RECHERCHEV(F71;BULL!$D$16:$U$121;12;FAUX);SI(B71="Bouteur D7U";RECHERCHEV(F71;BULL!$D$16:$U$121;10;FAUX);SI(B71="Bouteur D8S";RECHERCHEV(F71;BULL!$D$16:$U$121;8;FAUX);SI(B71="Bouteur D8U";REUCHERCHEV(F71;BULL!$D$16:$U$121;6;FAUX);SI(B71="Bouteur D9S";RECHERCHEV(F71;BULL!$D$16:$U$121;4;FAUX);SI(B71="Bouteur D9U";RECHERCHEV(F71;BULL!$D$16:$U$121;2;FAUX);""))))))))))
J'ai une condition différente par machine donc je pense être obliger de répéter ces conditions. Par exemple si je choisi dans une listBox6 D9U dont l'adresse est Feuille Bull, "E15"
ensuite je dois chercher la distance de pousse que j'entre dans la TexBox48 que je dois comparer à la plage de cellule ("D16
121") puis lorsque j'ai trouvé la ligne, me déplacer jusqu'à la colonne D9U (Colonne 5)
J'ai pensé à un truck répéter autant de fois que j'ai de sorte de machine
Dim Ligne As String, Colonne As String, Rh As Double
If LisBox6 = "D9U" And TextBox48 <> "" Then
Sheets("Bull").Activate
Ligne = Application.Match(Me.TextBox48 * 1, Column(5))
Colonne = 5
Rh = Cell(Ligne, Colonne).Value
Sheets("Programme des travaux").Activate
End If
Je me servirais en suite de Rh pour mon calcul final