Error91 avec FindNext et deux boucles imbriquées

job75

XLDnaute Barbatruc

• 16 Août 2018

• #2

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+

 

Vote positif 0 Vote négatif

P

Pierre Bastres

Guest

• 16 Août 2018

• #3

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Août 2018

• #4

Pierre Bastres à dit:

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

Cliquez pour agrandir...

Bof oui je sais, sur cette ligne :

Code:

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

 

Vote positif 0 Vote négatif

P

Pierre Bastres

Guest

• 16 Août 2018

• #5

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.

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 16 Août 2018

• #6

Bonjour Pierre, Gerard 🙂


@Pierre Bastres

Si vous le permettez, un exemple.

VB:

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

 

Dernière édition: 16 Août 2018

Vote positif 0 Vote négatif

P

Pierre Bastres

Guest

• 16 Août 2018

• #7

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.

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 16 Août 2018

• #8

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.

VB:

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

 

Dernière édition: 16 Août 2018

Vote positif 0 Vote négatif

P

Pierre Bastres

Guest

• 16 Août 2018

• #9

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.

 

Pièces jointes

• ESSAI BOUCLES IMBRIQUEES FindNext.xlsm

  111.6 KB · Affichages: 19

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Août 2018

• #10

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 :

Code:

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+

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 16 Août 2018

• #11

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?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Août 2018

• #12

Lone-wolf à dit:

Dans se cas, pourquoi ne pas utiliser un tableau?

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 16 Août 2018

• #13

Re

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Août 2018

• #14

Lone-wolf à dit:

Re

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Août 2018

• #15

Re,

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

Code:

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+

 

Vote positif 0 Vote négatif