Si trouve pas, alors passe directement a la fin

N

ninanani

XLDnaute Occasionnel

• 13 Février 2009

• #2

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

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

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 13 Février 2009

• #3

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

 

Vote positif 0 Vote négatif

N

ninanani

XLDnaute Occasionnel

• 13 Février 2009

• #4

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 13 Février 2009

• #5

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

Bonjour Nina, Bertrand

une autre solution, peut être comme ceci :

Code:

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
@+

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 13 Février 2009

• #6

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

 

Dernière édition: 13 Février 2009

Vote positif 0 Vote négatif

N

ninanani

XLDnaute Occasionnel

• 13 Février 2009

• #7

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

Re Mutzik et Pierrot..

Cela fonctionne, merci de votre aide!

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 13 Février 2009

• #8

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

 

Vote positif 0 Vote négatif

N

ninanani

XLDnaute Occasionnel

• 13 Février 2009

• #9

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 13 Février 2009

• #10

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

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 13 Février 2009

• #11

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

 

Dernière édition: 13 Février 2009

Vote positif 0 Vote négatif