Qualificateur incorrect sur un offset apres une methode find

Version imprimable

bonjour a tous, ::coucou:

Je viens a vous pour une histoire de syntaxe.

Je souhaite obtenir la valeur de la cellule a cote d'une autre( elle trouve par la method find)

J'ai essaye un offset mais VBA n'apprecie pas et affiche:

Citation:

Erreur de compilation, qualificateur incorrect

Pouvez-vous me donner une piste?:calim2:
:merci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub ComboBox1_Change() 'Define action whem you select a Dealer Code

'1/ Define elements:
    Dim Trouve As Range, PlageDeRecherche As Range
    Dim Valeur_Cherchee As String, AdresseTrouvee As String
    Dim Dealer_code As String

'2/ assigning values to variables:

    'a/ Reserch Dealer code...
        Valeur_Cherchee = ComboBox1.Value
    
    'b/ ...In second columns in sheet called "2014 &projection"
        Set PlageDeRecherche = Sheets("2014 &projection").Columns(2)


'3/Find method with exact value,(LookAt:=xlWhole)
    Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)

'4/Processing the possible error : If nothing is found:
    If Trouve Is Nothing Then
        'a/ value isnot found:
        AdresseTrouvee = Valeur_Cherchee & " n'est pas présent dans " & PlageDeRecherche.Address
    Else
        'b/value is found
        AdresseTrouvee = Trouve.Address
    End If
    
'5/select the Dealer name
Dealer_code = Range(AdresseTrouvee).Offset(0, -1).Value

MsgBox Dealer_code

'6/ reset variable
    Set PlageDeRecherche = Nothing
    Set Trouve = Nothing
End Sub

04/03/2015, 11h27
Invité

bonjour,
regardes ça: http://www.developpez.net/forums/d14...e/#post8128041
04/03/2015, 11h30
Daniel.C

Bonjour,

Si la méthode ne trouve pas,

Code:

AdresseTrouvee = Valeur_Cherchee & " n'est pas présent dans " & PlageDeRecherche.Address

ne retourne pas une adresse valide. Donc,

Code:

Dealer_code = Range(AdresseTrouvee).Offset(0, -1).Value

plante.
04/03/2015, 12h23
scoulibri
Desole, mais il me semble pas que ce osit la bonne direction. :pastaper:

rdurupt, je ne comprend pas le post ni la reponse apportee :oops:

En effet, la method Find toute seule fonctionne, et un gestion d'erreur est inclut.

Mon probleme est d'ecrire la bonne syntaxe pour avoir la cellule a cote de celle trouve.

j'ai plus l'impression que VBA n'apprecie pas car "AdresseTrouvee" est definit comme string et que la ligne ci-dessou est mal ecrite

Je passe d'un .address a un. value, c'est pas une erreur?
Code:

1 2 '5/select the Dealer name Dealer_code = Range(AdresseTrouvee).Offset(0, -1).Value
04/03/2015, 23h30
eriiic

Bonjour,

ce n'est pas une erreur.
Mais ne pas lire la réponse de daniel-c en est sûrement une.
Et ta colonne ne doit pas être A non plus, colonne(0) n'existe pas.

eric
05/03/2015, 07h05
Invité

Bonjour,
Il est vraisemblablement au je n'ai pas bien compris la question!
Ceci dit je suis pas sur que la cellule range( " 0n'est pas présent dans " & PlageDeRecherche.Address)existe!

Bonjour,

L'erreur vient tout simplement du fait qu'après ton bloc If Then Else End If, tu as cette ligne de code :
Code:

1 2 Dealer_code = Range(AdresseTrouvee).Offset(, -1).Value
et comme la valeur peut prendre --> Valeur_Cherchee & " n'est pas présent dans " & PlageDeRecherche.Address <-- ce qui n'est vraiment pas une adresse valide donc plantage.
Il te faut intégrer cette ligne de code dans ton bloc :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 '4/Processing the possible error : If nothing is found: If Trouve Is Nothing Then 'a/ value isnot found: AdresseTrouvee = Valeur_Cherchee & " n'est pas présent dans " & PlageDeRecherche.Address Else 'b/value is found '5/select the Dealer name Dealer_code = Range(Trouve.Address).Offset(, -1).Value End If MsgBox IIf(Dealer_code = "", "Valeur pas trouvée !", Dealer_code)
Hervé.

05/03/2015, 09h44
scoulibri

Je m'excuse eric mais la reponse de Daniel etait un peu trop laconique pour que je comprenne du premier coup... j'apprends vite mais faut m'expliquer longtemps ;)

Bref, j'ai compris et hier soir j'ai modifie mon code avant d'avoir acces a vos reponses ce matin.

Ton code est parfait Theze, je ne connaissais pas msgbox iif

Il me reste plus qu'a comprendre pourquoi je ne trouve pas les valeurs attendus

Trouve!

pour mon dernier probleme il suffisait de supprimer la ligne qui met a zero la plage de recherche

Code:

Set PlageDeRecherche = Nothing

Merci a tous pour vos reponses

Pour les courageux de passage voici le code complet

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub ComboBox1_Change() 'Define action whem you select a Dealer Code
 
'1/ Define elements:
    Dim Trouve As Range, PlageDeRecherche As Range
    Dim Valeur_Cherchee As String, AdresseTrouvee As String
    Dim Dealer_name As String
 
'2/ assigning values to variables:
 
    'a/ Reserch Dealer code...
        Valeur_Cherchee = ComboBox1.Value
 
    'b/ ...In second columns in sheet called "2014 &projection"
        Set PlageDeRecherche = Sheets("2014 &projection").Columns(2)
 
 
'3/Find method with exact value,(LookAt:=xlWhole)
    Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)
 
'4/Processing the possible error : If nothing is found:
    If Trouve Is Nothing Then
        'a/ value isnot found:
        AdresseTrouvee = Valeur_Cherchee & " n'est pas présent dans " & PlageDeRecherche.Address
    Else
        'b/value is found
        '5/select the Dealer name
        Dealer_name = Range(Trouve.Address).Offset(, -1).Value
 
    End If
 
    MsgBox IIf(Dealer_name = "", "Valeur pas trouvée !", Dealer_name)
 
'6/ reset variable
       Set Trouve = Nothing
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function SerchXls(Myrange As Range, MyCellule As Range, strRecherche, EntierCell As Boolean, EnBoucle As Boolean) As Long '
On Error Resume Next
SerchXls = 0
If EntierCell = False Then Entier = xlPart Else Entier = xlWhole
   SerchXls = Myrange.Cells.Find(What:=strRecherche, After:=MyCellule, LookIn:=xlFormulas, LookAt _
        :=Entier, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=EntierCell).Row
  If SerchXls <= MyCellule.Row And EnBoucle = False Then SerchXls = 0
End Function
Sub Macro1()
'...code avant
l = SerchXls(Sheets("2014 &projection").Columns("B:B"), Range("B1"), Valeur_Cherchee, True, False)
If l = 0 Then MsgBox " Pas trouvé": Exit Sub
Dealer_code = Cells(l, 2).Offset(0, -1).Value
 
End Sub