Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Bloc With + variable objet, = erreur ?!

  • Initiateur de la discussion Initiateur de la discussion arnaoke
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

arnaoke

XLDnaute Occasionnel
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 ?
 
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 ...
 
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
 
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+
 
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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
756
Réponses
9
Affichages
884
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…