Error91 avec FindNext et deux boucles imbriquées

[Pierre Bastres]

Bonjour,
j'ai écrit la macro ci-jointe:
le principe est de faire une première boucle pour sélectionner chacune des lignes qui m'intéressent grâce à un critère sur la colonne Z en utilisant la méthode Find:
une deuxième boucle imbriquée teste la valeur de la cellule de la même ligneet de la colonne V et attribue un nombre en fonction du test dans la colonne W.
Une erreur 91 apparaît 'erreur d'execution variable ou objet etc.." La variable rngElligible perd sa valeur lors du FindNext.
Si je mets la partie du code entre les étoiles en commentaire cela fonctionne.
Merci de votre aide.
P.

 

[job75]

Bonjour Pierre Bastres,

Votre macro ne tient pas du tout la route.

Au lieu de boucles Do/Loop imbriquées (quelle idée !) utilisez une seule boucle For/Next sur la colonne Z.

Et je ne parle pas du reste...

A+

 

[Pierre Bastres]

Bonjour,

Effectivement la macro ne fonctionne pas.
J'essaierai la boucle For.
Sur la macro existante, même si elle est horrible, savez-vous pq j'ai l'erreur 91?
Si vous avez d'autres suggestions qui peuvent aider, ne vous privez pas.
Merci d'avance.
P.

 

[job75]

Sur la macro existante, même si elle est horrible, savez-vous pq j'ai l'erreur 91?

Bof oui je sais, sur cette ligne :

Loop While Not rngElligible Is Nothing And rngElligible.Address <> strPremierEligibleTrouve

quand rngElligible Is Nothing est VRAI rngElligible.Address n'existe pas donc crée une erreur...

 

[Pierre Bastres]

Ok, je vois.
J'ai mis un espion sur la variable rngEligible: elle prend la valeur "nothing" lors de Set rngEligible= .FindNext(rngEligible)
je ne comprends pas pq, pouvez-vous m'éclairer?
Merci.
P.

 

[Lone-wolf]

Bonjour Pierre, Gerard


@Pierre Bastres

Si vous le permettez, un exemple.

Set plage = Feuil1.Range("z2:z" & dernièreligne)

Set cel = plage.Find(Valeur à chercher, , xlValues)

If Not cel is Nothing Then
adr = cel.address

Do

'Ici ce quelle doit faire

Set cel = plage.FindNext(cel)
Loop While Not cel Is Nothing And cel.Address <> adr
End If

 

[Pierre Bastres]

Bonjour Lone-Wolf,
merci de ton aide.
J'ai vérifié, et il me semble que mon code suit exactement votre structure, qq chose m'échappe peut être.
QQ chose qui m'interpele: si je neutralise la partie de code entre les étoiles, l'espion rngEligible.address prend bien les valeurs voulues, et ne prend pas la valeur "nothing".

P.

 

[Lone-wolf]

Re Pierre

@Pierre Bastres : Set rngEligible= .FindNext(rngEligible), ici il manque la plage avant le point, à moins d'avoir mis With la plage End With.

Sub test()
    Set plage = Feuil1.Range("z2:z" & dernièreligne)

    With plage
        Set cel = .Find(Valeur à chercher, , xlValues)

        If Not cel Is Nothing Then
            adr = cel.Address
            Do
                'Ici ce quelle doit faire
                Set cel = .FindNext(cel)
            Loop While Not cel Is Nothing And cel.Address <> adr
        End If
    End With
End Sub

 

[Pierre Bastres]

j'ai trouvé une solution, j'ai supprimé le FindNext et j'ai inséré un find supplémentaire dans la première condition.
Merci job75 et Lone-Wolf de votre aide.

P.

 

[job75]

Re, salut Lone-wolf,

Lone-wolf ton code est aussi mauvais que celui de Pierre Bastres

J'ai parlé d'une boucle For/Next alors voyez celui-ci :

Sub Test()
Dim c As Range
For Each c In [Tableau2[Eligibilite FacturationDirecteProducteurClient]]
    If c = "eligible facture mensuelle directe prod-client" Then c(1, -2) = c(1, 0) + 1
Next
End Sub

Si ce n'est pas tout à fait ce que vous voulez adaptez-le.

A+

 

[Lone-wolf]

Re

@job75: pourquoi serat-il mauvais? Do While et For each sont des boucles non? Et j'ai remarqué que sur de grandes plages, for each faisait planter Excel.

Dans se cas, pourquoi ne pas utiliser un tableau?

 

[job75]

Dans se cas, pourquoi ne pas utiliser un tableau?

Parce qu'il faut entrer les valeurs une par une pour que les formules en colonne Y se recalculent entre deux.

 

[Lone-wolf]

Re

@job75: d'accord. Et une boucle For i = 2 to Fin, ne serait pas mieux que for each?

 

[job75]

Re

@job75: d'accord. Et une boucle For i = 2 to Fin, ne serait pas mieux que for each?

La différence est comme entre un alligator et un crocodile : c'est caïman pareil.

 

[job75]

Re,

Juste pour Lone-wolf, For Each est un peu plus rapide :

Sub a()
Dim t, c As Range, x$
t = Timer
For Each c In [A1:A1000000]
x = c
Next
MsgBox Timer - t '1,95 seconde chez moi
End Sub

Sub b()
Dim t, i&, x$
t = Timer
For i = 1 To [A1:A1000000].Count
x = Cells(i, 1)
Next
MsgBox Timer - t '3,3 secondes chez moi
End Sub

A+