Si trouve pas, alors passe directement a la fin

[ninanani]

Bonjour,

Je souhaiterais que avec la macro suivante, si a la ligne en rouge, il ne trouve rien, alors, il arrete la macro.

Sub cherche()
For n = 2 To Sheets("Simple Invoice").Range("B65536").End(xlUp).Row
Set c = Sheets("paiement").Columns(1).Find(Sheets("Simple Invoice").Range("B" & n).Value, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
Sheets("Simple Invoice").Range("G" & 5) = c.Offset(0, 1)
Sheets("Simple Invoice").Range("G" & 6) = c.Offset(0, 2)

Sheets("Simple Invoice").Range("A" & 19) = c.Offset(0, 3)
Sheets("Simple Invoice").Range("A" & 20) = c.Offset(0, 4)
Sheets("Simple Invoice").Range("A" & 21) = c.Offset(0, 5)
Sheets("Simple Invoice").Range("A" & 22) = c.Offset(0, 6)
Sheets("Simple Invoice").Range("A" & 23) = c.Offset(0, 7)
Sheets("Simple Invoice").Range("A" & 24) = c.Offset(0, 8)
.
.
.
.
.
End if
End sub

Ma macro etant enormement longue.

Resume : Si il ne trouve pas le meme nom sur la "simple invoice" en B&n, et sur la paiement en columns 1. Alors il n applique pas tous les copier qui arrivent apres. Il pass direct a la END sub..

Voili voilo, merci de votre aide

 

[ninanani]

Re : Si trouve pas, alors passe directement a la fin

Yop oublie un next n, entre end if et end sub

 

[mutzik]

Re : Si trouve pas, alors passe directement a la fin

Bonjour,

tout simplement avant la ligne en rouge, tu mets
if c=nothing then exit sub
càd s'il ne trouve rien, il arrete la macro et sort

 

[ninanani]

Re : Si trouve pas, alors passe directement a la fin

Re,
Merci pour ta reponse.

Avant ou apres la ligne en rouge?

J ai teste les deux et dans les deux cas, il me dit, lorsque je l applique, "invalid use of subject" en me surlignant le mot nothing. ??

 

[Pierrot93]

Re : Si trouve pas, alors passe directement a la fin

Bonjour Nina, Bertrand

une autre solution, peut être comme ceci :

If Not c Is Nothing Then
    Sheets("Simple Invoice").Range("G" & 5) = c.Offset(0, 1)
    Sheets("Simple Invoice").Range("G" & 6) = c.Offset(0, 2)
    
    Sheets("Simple Invoice").Range("A" & 19) = c.Offset(0, 3)
    Sheets("Simple Invoice").Range("A" & 20) = c.Offset(0, 4)
    Sheets("Simple Invoice").Range("A" & 21) = c.Offset(0, 5)
    Sheets("Simple Invoice").Range("A" & 22) = c.Offset(0, 6)
    Sheets("Simple Invoice").Range("A" & 23) = c.Offset(0, 7)
    Sheets("Simple Invoice").Range("A" & 24) = c.Offset(0, 8)
[COLOR="Red"][B]Else
    Exit Sub[/B][/COLOR]
End If

bonne journée
@+

 

[mutzik]

Re : Si trouve pas, alors passe directement a la fin

re,
1. après la ligne en rouge
2. faute de frappe : il faut mettre : is c is nothing et non point = nothing

en fait, la ligne en rouge fait la recherche, et dans ta variable c est renvoyé quelque chose sit trouvé ou rien (nothing) si pas trouvé

edit : Salut Pierrot, oui, je sais, mais c'est encore mon esprit pédago qui a pris le dessus en voulant obliger naninani à réfléchir sur son code et à trouver la solution du else par elle-même

 

[ninanani]

Re : Si trouve pas, alors passe directement a la fin

Re Mutzik et Pierrot..

Cela fonctionne, merci de votre aide!

 

[PascalXLD]

Re : Si trouve pas, alors passe directement a la fin

Bonjour

ce que je ne comprends pas trop c'est que cela devait le faire puisque tu faisais ton test

If Not c Is Nothing Then

 

[ninanani]

Re : Si trouve pas, alors passe directement a la fin

Re PASCALXLD

Moi aussi je pensais que cela devait se faire tout seul aussi, mais non.
Alors que avec cette solution cela fonctionne...
Je ne pourrais pas te l expliquer

 

[PascalXLD]

Re : Si trouve pas, alors passe directement a la fin

re

pas normal

perso je l'utilises souvent et jamais de problème
ou alors tu a fermé ton if trop tôt

 

[mutzik]

Re : Si trouve pas, alors passe directement a la fin

re, bonjour Pascal,

exact, c'est curieux, je me suis même pas posé cette question, comme quoi ...
si tu mets un msgbox c après la ligne en rouge, il te donne quoi dans les deux cas (trouvé et pas trouvé)

question subsidiaire, le fait de mettre exit sub va arreter la macro alors que la boucle n'est pas terminée, cela ne pose pas de prob dans ce cas ....