Bonjour le forum,
Je voudrais récupérer des données via un changement de valeur d'une combobox mais mon code plante, pouvez vous m'indiquer ou se trouve l'erreur ?
Je voudrais récupérer la valeur de la cellule qui se situe à droite de la valeur de la combobox.
le code ci dessous fonctionne, mais cela active la feuille et je ne voudrais pas la voir s'activer.
Je ne vois pas comment faire
Merci
Je voudrais récupérer des données via un changement de valeur d'une combobox mais mon code plante, pouvez vous m'indiquer ou se trouve l'erreur ?
Je voudrais récupérer la valeur de la cellule qui se situe à droite de la valeur de la combobox.
Code:
Private Sub Famille_Change()
Dim mot, x, y As String
mot = Famille.Value
Plage = Sheets("BDD").Range("T2:T6")
With Plage
Set c = .Find(mot, LookIn:=xlValues, lookat:=xlPart)
firstAddress = c.Address
x = Mid(firstAddress, 1, 2)
y = Mid(firstAddress, 3, 5)
Var_Famille = Range(x & y).Offset(0, 1)
End With
End Suble code ci dessous fonctionne, mais cela active la feuille et je ne voudrais pas la voir s'activer.
Je ne vois pas comment faire
Code:
Private Sub Famille_Change()
Dim mot, x, y As String
mot = Famille.Value
Sheets("BDD").Activate
With Sheets("BDD").Range("T2:T6")
Set c = .Find(mot, LookIn:=xlValues, lookat:=xlPart)
firstAddress = c.Address
x = Mid(firstAddress, 1, 2)
y = Mid(firstAddress, 3, 5)
Var_Famille= Range(x & y).Offset(0, 1)
End With
End SubMerci