Bloc With + variable objet, = erreur ?!

[arnaoke]

Bonjour à tous,

J'ai un petit soucis d'erreur que je n'arrive pas à lever, apparemment, il s'agirait d'une mauvaise initialisation de ma variable "resultatLigne", quant à savoir quelle serait la bonne ...

Dim resultatLigne as Variant
'...
 With Sheets("Suivi avenants MQ")
    For ligne2 = 8 To .Range("C8").End(xlDown).Row
        .Range("F4").Value = "test"
        numContrat = .Range("C" & ligne).Value 'valeur de la case ("C" & ligne) stocké dans numContrat
        Set resultatLigne = Sheets("traitementGestion").Range("C2:C" & .Range("C2").End(xlDown).Row).Find(numContrat, LookAt:=xlWhole) 'recherche numContrat de suivi des MQ, dans traitementGestion
        ligneTraitementGestion = resultatLigne.Row '<<<<< ERREUR ICI !
        If Not resultatLigne Is Nothing Then '
                  'conditions diverses et variées ...
        End if
    next ligne2
end with

des idées ?

 

[Hippolite]

Re : Bloc With + variable objet, = erreur ?!

Bonjour ,
Dim resultatLigne As Worksheet
A+

ajout : J'ai lu un peu vite, c'est Range

 

[arnaoke]

Re : Bloc With + variable objet, = erreur ?!

euh ... comment je récupère la ligne du find dans ce cas Oo ?

 

[Efgé]

Re : Bloc With + variable objet, = erreur ?!

Bonjour arnaoke, Hippolite ,
Je verrais plutot ça:

Dim resultatLigne As Range

Cordialement

 

[arnaoke]

Re : Bloc With + variable objet, = erreur ?!

non plus ... de toute manière, resultatLigne est déclaré en tant que variant, donc prendra automatiquement le bon type pour la première utilisation ...

 

[arnaoke]

Re : Bloc With + variable objet, = erreur ?!

après quelques recherches, cela a apparement quelque chose à voir avec les déclarations de variables anticipées Oo

Ce lien n'existe plus

 

[Hippolite]

Re : Bloc With + variable objet, = erreur ?!

Re,
As-tu vérifié que resultatLigne est différent de Nothing ? (si la valeur n'a pas été trouvée)
Je remonterais d'un cran la ligne If Not resultatLigne Is Nothing Then
A+

 

[arnaoke]

Re : Bloc With + variable objet, = erreur ?!

En théorie, les éléments présents dans la feuille de contrat "Suivi avenants MQ" sont extraits de "traitementGestion", donc on doit forcément trouver resultatLigne.

Pour ce qui est de ton hypothèse, une fois le "if not ... then" remonté, le PC ne rentre apparemment plus dans la condition.

Je persiste à croire que l'erreur est au niveau de ma déclaration, j'avais déjà rencontré un cas similaire, mais alors comment je l'ai résolu ... j'en sais plus rien du tout :/

EDIT :

bon en fait, pour le cas précédent c'était pas exactement ça, mais la déclaration, était faite de manière peu orthodoxe :

Dim wrdApp As Word.Application
    Dim wrdDoc As Word.Document
    Set wrdApp = New Word.Application
    Set wrdDoc = New Word.Document

 

[arnaoke]

Re : Bloc With + variable objet, = erreur ?!

edit : double post