B
BEUBZIR
Guest
Bonjour à tous et à toutes,
Avec l'aide du forum et à force de fouiller, j'ai trouvé les formules suivantes que j'ai inséré dans VBA pour faire fonctionner mon userform.
Hors, v'là que je tombe encore sur un os.
Private Sub ComboBox1_Change()
Dim Var As String
Dim MotTrouve
Var = ComboBox1.Value
Set MotTrouve = Sheets("finition").Range("A:R").Find(What:=Var, LookAt:=xlWhole)
MotTrouve.Select
niveau.Value = MotTrouve.Offset(0, -1).Value
zone.Value = MotTrouve.Offset(0, 2).Value
End Sub
cette formule fonctionne super bien, mais seulement quand mon userform s'ouvre depuis la feuille où j'ai ma BDD.
Et bien évidement, j'aurais besoin de pouvoir l'ouvrir depuis une autre feuille que ma base de données et d'avoir le même effet.
si quelqu'un a une solution, je prends volontiers.
Merci d'avance.
Breubz...
Avec l'aide du forum et à force de fouiller, j'ai trouvé les formules suivantes que j'ai inséré dans VBA pour faire fonctionner mon userform.
Hors, v'là que je tombe encore sur un os.
Private Sub ComboBox1_Change()
Dim Var As String
Dim MotTrouve
Var = ComboBox1.Value
Set MotTrouve = Sheets("finition").Range("A:R").Find(What:=Var, LookAt:=xlWhole)
MotTrouve.Select
niveau.Value = MotTrouve.Offset(0, -1).Value
zone.Value = MotTrouve.Offset(0, 2).Value
End Sub
cette formule fonctionne super bien, mais seulement quand mon userform s'ouvre depuis la feuille où j'ai ma BDD.
Et bien évidement, j'aurais besoin de pouvoir l'ouvrir depuis une autre feuille que ma base de données et d'avoir le même effet.
si quelqu'un a une solution, je prends volontiers.
Merci d'avance.
Breubz...