VBScript & Excel et fonction Find

[trax]

Bonjour bonsoir,

J'ai un problème sur la fonction find de vbscript/excel.

Au fait je dois chercher dans le sheet 2 colonne 2 si la valeur est presente dans le sheet 1 colonne 2.

et si c'est le cas, mettre la cellule en rouge.

Code: Tout sélectionner


col B Sheet 1              col B Sheet 2
a -> rouge                   a -> rouge
b -> rouge                   e -> rouge
c                            g -> rouge
d -> rouge                   k
e -> rouge                   b -> rouge
f                            r
g -> rouge                   d -> rouge


J'ai le bout de code ci dessous, mais j'ai un pb pour mettre en rouge la cellule..

je suis sûr que c'est encore un truc à la con mais bon... :

(les objets sont définis auparavant...)

Code: Tout sélectionner

lignesheet1=1
ligneSheet2=1

Do While objexcel.cells(lignesheet1, 1).value <> ""

Set result = objexcel.Sheets(2).columns("B:B").Find(objexcel.Sheets(1).cells(lignesheet1, 2).value)
If Not result Is Nothing Then


''''''''''''''''''''' Erreur à la ligne suivante
result.address.interior.colorindex = 3



Else
MsgBox objexcel.Sheets(2).cells(lignesheet2, 2).value
End If


   lignesheet1 = lignesheet1 +1
   lignesheet2 = 1
Loop


[TheHinou]

dans excel c'est du vba ... pas du vbscript ...

Quel est le message d'erreur ?

[trax]

non non, je joues avec excel via vbscript, carje fais des extract remise en forme avant...

Erreur : Objet requis: 'result.address'
Code : 800A01A8

[TheHinou]

Ah ok tu utilise un object Excel.application au temps pour moi
Fait un test pour verifier que ton result existe bien et n'est pas vide.

Par contre es-tu sur que l'objet result contiendra alors une propriété "address" ?

[trax]

Code: Tout sélectionner

[...]

Set result = objexcel.Sheets(2).columns("B:B").Find(objexcel.Sheets(1).cells(excelligne, 2).value)
MsgBox result.address
If Not result Is Nothing Then
'result.address.interior.colorindex = 3
Else

[...]



le msgbox me retourne bien une valeur : "$B$23" ...

[TheHinou]

Il se peux que ton find ne renvoie qu'une chaine de caractère au lieu d'un objet plage.

Essaye sans conviction avec un bloc "with"

Sinon recrée un objet range à partir de ta chaine de caractère.

[trax]

Il se peux que ton find ne renvoie qu'une chaine de caractère au lieu d'un objet plage.

Essaye sans conviction avec un bloc "with"

Sinon recrée un objet range à partir de ta chaine de caractère.

demain j'essaye ta 2ème option

peux tu expliquer la premiere?

[TheHinou]

Comme je suis un faignant je te copie l'aide des bloc with :

L'instruction With permet d'appliquer une série d'instructions à l'objet indiqué, sans qualifier à chaque fois le nom de l'objet. Par exemple, pour modifier plusieurs propriétés d'un seul objet, placez les instructions d'affectation de propriétés dans la structure de contrôle With ; vous ne faites ainsi référence qu'une seule fois à l'objet, au lieu de le faire à chaque affectation de propriété. L'exemple ci-dessous illustre l'utilisation de l'instruction With dans le cadre de l'affectation de valeurs à plusieurs propriétés d'un même objet.

Code: Tout sélectionner

With MonÉtiquette
    .Height = 2000
    .Width = 2000
    .Caption = "Voici MonÉtiquette"
End With