Erreur d'écriture

[Florian53]

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.

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 Sub

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

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 Sub

Merci

 

[pierrejean]

Bonjour Florian
A tester:

Private Sub Famille_Change()
Dim mot As String
mot = Famille.Value
Set c = Sheets("BDD").Range("T2:T6").Find(mot, LookIn:=xlValues, lookat:=xlPart)
If Not c Is Nothing Then
   Var_Famille = c.Offset(0, 1)
End If
End Sub

 

[Florian53]

Nickel Pierrejean sa fonctionne. Merci à toi et bonne journée