Condition dans une boucleRésolu

Question

Bonjour à tous !!!

J'ai trouver cette procédure de recherche dans l'aide d'EXCEL.

' Procedure de recherche
With Worksheets("Feuil2").Range("B1:B614")
    Set c = .Find(TextBox1.Value, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstaddress = c.Address
        Do
            c.Interior.ColorIndex = 36
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstaddress
    End If
End With

J'aimerais si possible afficher un message si la recherche est nulle c'est à dire si ce que l'on cherche n'est pas dans la base
de données.

Merci d'avance à tous

jrivet · Accepted Answer

Salut,
C'est simple (si j'ai bien compris).
Il tre suffit de code le else de ton if
' Procedure de recherche
With Worksheets("Feuil2").Range("B1:B614")
   Set c = .Find(TextBox1.Value, LookIn:=xlValues)
   'Si c n'est pas nulle = recherche non nulle
   If Not c Is Nothing Then
       firstaddress = c.Address
       Do
           c.Interior.ColorIndex = 36
           Set c = .FindNext(c)
       Loop While Not c Is Nothing And c.Address <> firstaddress
   Else
       Call MsgBox("Rien trouve")
   End If
End With , ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

VB_PtitCat · Answer

On peu mètre just      MsgBox("Rien trouve")   si je ne m'abuse

MerZi ... Zi ... Zi ... PtitCat  
P.S:DSL pour l'orthographe

cs_DARKSIDIOUS · Answer

Salut,

Si tu fais du VBA, pourquoi tu poste dans le forum VB6 ???

Je déplace vers le forum approprié !

______________________________________
DarK Sidious

Goose17 · Answer

Merci à tout les deux pour ces réponses et excusez moi de vous répondre si tard mais 
le programme m'était un peu sortie de la tete. lol !!!

Merci encore.

Condition dans une boucle

4 réponses

Votre réponse

Discussions similaires