Discussion :

[dumor]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[oOVaveOo]

Bonjour,

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

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

[Godzestla]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If Not Trouve Is Nothing Then

[dumor]

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

[zandru]

Et si tu écrit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

en remplacement de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Si j'ai bien compris ce que tu veux faire