Problème Combobox colonne de référence contenant une formule

[slaurent01]

Bonjour le forum,

Dans mon classeur "Devis" j'ai un combobox dans un userform dont les sources sont dans un onglet du classeur appelé "Papiers".
Dans cet onglet il n'y a aucune formule, juste une liste de données. Mon code sur la combobox fonctionne parfaitement.

Maintenant je souhaite lié cet onglet "Papiers" à un classeur extérieur qui sera une base.
Du moment que ma colonne de référence comporte une formule, mon code ne marche plus.

Private Sub ComboBox1_Change()
'A chaque changement de la combobox les deux textbox suivantes vont prendre les valeurs
'trouver dans la feuille "Papiers"

Dim vpapier As Range
With Sheets("Papiers")
Set vpapier = .Columns("a:a").Find(Me.ComboBox1.Value)
If Not vpapier Is Nothing Then Me.Tbxgr.Value = vpapier.Offset(0, 1).Value
If Not vpapier Is Nothing Then Me.Tbxprx.Value = vpapier.Offset(0, 2).Value

End With
Exit Sub

Faut il écrire le code différement ?
Merci par avance
cordialement
stéphane

 

[Herdet]

Re : Problème Combobox colonne de référence contenant une formule

Bonjour
A essayer :
n = Range("A:A").Find(What:="zzzz", LookIn:=xlValues, LookAt:=xlPart).Row pour contenu partiel
ou
n = Range("A:A").Find(What:="zzzz", LookIn:=xlValues, LookAt:=xlWhole).Row pour contenu exact

A+
Robert

 

[slaurent01]

Re : Problème Combobox colonne de référence contenant une formule

bonjour le forum,

bonjour Herdet merci pour ta réponse,mais le code ne fonctionne pas.
Cordialement
stéphane

 

[slaurent01]

Re : Problème Combobox colonne de référence contenant une formule

re,

Je joins deux fichiers pour plus de clarté.
Cordialement
stéphane