[E-00] Utilisation de Find

Bonjour à tous,

Voila il y a un bug avec la fonction Find. Lorsque mon objet trouve est egal à Nothing j'ai un bug au niveau de la ligne avec le smiley
J'ai le message d'erreur : Argument ou appel de procédure incorrect et je ne sais pourquoi

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

For i = 3 To Ligne2 Set Trouve = Tabextraction.Find(Cells(i, 1)) Range(Cells(i, 2), Cells(i, 9)).Copy If Trouve Is Nothing Then Set Trouve = Tabextraction.FindNext(Trouve) ' <== :? Else Agglo.Activate Cells(Trouve.Row, 14).Select Agglo.Paste Critere.Activate     End If

---

Merci pour votre aide

Bonjour,

On ne sait pas ce que vaut ligne2 et il manque la fin du bloc for - next.

Bonjour,

cela parait logique que cela plante, il ne peut trouver le suivant (findnext) si il n'a pas trouvé le premier (si find = nothing).

Citation:

---

Envoyé par zandru

Bonjour,

cela parait logique que cela plante, il ne peut trouver le suivant (findnext) si il n'a pas trouvé le premier (si find = nothing).

---

Et donc il faudrait écrire

Code:

---

1 2	If Not Trouve Is Nothing Then

---

Bonjour,


- en fait la ligne2 est bien un entier : il n'y a aucun probleme
- Le next est bien à la fin : il y a aucun pb (j'ai mal copier coller)
- lorsque j'utilise If Not Trouve Is Nothing Then
le bug se trouve à la ligne :Cells(Trouve.Row, 14).Select avec la remarque variable objet ou variable de bloc non définie.

Voila pour plus de précision

Et si tu écrit :

Code:

---

Agglo.Cells(Trouve.Row, 14).Paste

---

en remplacement de

Code:

---

1 2 3

Agglo.Activate Cells(Trouve.Row, 14).Select Agglo.Paste

---

Si j'ai bien compris ce que tu veux faire ;)

Merci mais cela ne fonctionne pas il bugge au niveau de cette ligne:marteau:

Citation:

---

Envoyé par dumor

Merci mais cela ne fonctionne pas il bugge au niveau de cette ligne:marteau:

---

Quelle ligne ????

SVP, montre ton code complet et indique clairement ou est ton problème car sinon ce n'est pas possible de t'aider. ;)

Excuse moi c'était la ligne que tu m'avais indiqué
Voici mon code complet à l'instant t :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46

Sub Copier_extraction() Windows("indicateur_fuites.xls").Activate   Dim Ligne1, Ligne2 As Integer Dim Trouve As Range Dim Tabcriteres, Tabextration As Range Dim Critere, Extraction, Agglo As Worksheet   'On sélectionne la colonne DI du document extraction Ligne2 = ThisWorkbook.Worksheets("Critere").UsedRange.Rows.Count Ligne1 = Worksheets("Agglomeration").UsedRange.Rows.Count   ThisWorkbook.Worksheets("Critere").Activate Set Tabcriteres = Range(Cells(1, 1), Cells(Ligne2, 10)) Set Critere = Worksheets("Critere")   ThisWorkbook.Worksheets("Agglomeration").Activate Set Agglo = Worksheets("Agglomeration")   ThisWorkbook.Worksheets("Extraction").Activate Set Tabextraction = Range(Cells(1, 1), Cells(Ligne1, 14)) Set Extraction = Worksheets("Extraction")   Worksheets("Extraction").Columns("A:M").Copy Worksheets("Agglomeration").Activate Cells(1, 1).Select Worksheets("Agglomeration").Paste   ThisWorkbook.Worksheets("Critere").Activate   For i = 3 To Ligne2 Set Trouve = Tabextraction.Find(Cells(i, 1)) Range(Cells(i, 2), Cells(i, 9)).Copy If Trouve Is Nothing Then Set Trouve = Tabextraction.FindNext(Trouve)   Else Agglo.Activate Cells(Trouve.Row, 15).Select Agglo.Paste Critere.Activate   End If     Next i

---

Pourtant,

voici l'exemple de l'aide sur .Find

Citation:

---

Example
This example finds all cells in the range A1:A500 on worksheet one that contain the value 2 and changes it to 5.

Code:

---

1 2 3 4 5 6 7 8 9 10

With Worksheets(1).Range("a1:a500") Set c = .Find(2, lookin:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do c.Value = 5 Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If End With

---

---