Bloc With + variable objet, = erreur ?!

arnaoke · 31 Mai 2011

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

Code:

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 · 31 Mai 2011

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

Bonjour ,
Dim resultatLigne As Worksheet
A+

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

arnaoke · 31 Mai 2011

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

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

Efgé · 31 Mai 2011

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

Bonjour arnaoke, Hippolite ,
Je verrais plutot ça:

VB:

Dim resultatLigne As Range

Cordialement

arnaoke · 31 Mai 2011

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 · 31 Mai 2011

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 · 31 Mai 2011

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 · 1 Juin 2011

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 :

Code:

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

arnaoke · 1 Juin 2011

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

edit : double post

Bloc With + variable objet, = erreur ?!

arnaoke

XLDnaute Occasionnel

Hippolite

XLDnaute Accro

arnaoke

XLDnaute Occasionnel

Efgé

XLDnaute Barbatruc

arnaoke

XLDnaute Occasionnel

arnaoke

XLDnaute Occasionnel

Hippolite

XLDnaute Accro

arnaoke

XLDnaute Occasionnel

arnaoke

XLDnaute Occasionnel

Discussions similaires