Discussion :

[scoulibri]

bonjour a tous, :

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:

Erreur de compilation, qualificateur incorrect

Pouvez-vous me donner une piste?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

bonjour,
regardes ça: http://www.developpez.net/forums/d14...e/#post8128041

[Daniel.C]

Bonjour,

Si la méthode ne trouve pas,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ne retourne pas une adresse valide. Donc,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

plante.

[scoulibri]

Desole, mais il me semble pas que ce osit la bonne direction.

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
'5/select the Dealer name
Dealer_code = Range(AdresseTrouvee).Offset(0, -1).Value

[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

[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!

[Theze]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.