For Each

[Bruce68]

Bonsoir à tous

Dans le fichier joint j'aimerais vérifier dans la colonne A si le N° existe avec la fonction ForEach dans le textbox1 et si il n'existe pas un MSGBox me le signal.
Je vous remercie de votre aide.

 

[kjin]

Re : For Each

Bonsoir,

With Sheets("Feuil1")
    If Application.CountIf(.Columns(1), TextBox1) = 0 Then MsgBox "Nada"
End With

A+
kjin

 

[Gorfael]

Re : For Each

Salut Bruce68 et le forum

dim Cel as range, Flg as boolean
for each cel in range([A1],cells(rows.count).end(xlup))
    if cel=me.textbox1 then
        Flg=true
        exit for
    end if
next Cel
If flg then
    'ce qu'on fait dans le cas où cel contient la valeur de TextBox1
else
    msgbox "pas de valeur trouvée"
endif

C'est fait sur le poste, et donc pas testé, les explications étant pour le moins imprécise, comme le fichier.
A+

 

[laetitia90]

Re : For Each

bonjour Bruce68,kjin,l'ami Gorfael 🙂

une autre méthode en utilisant FIND

Dim A As Range
Label1 = ""
Set A = Range("a2", Cells(Rows.Count, "a").End(xlUp)).Find(What:=TextBox1, LookIn:=xlValues)
If Not A Is Nothing Then Label1 = A.Offset(0, 1) Else MsgBox "pas trouve!!"

 

[Bruce68]

Re : For Each

Bonjour à tous

Merci Kjin, gorfael et Laetitia90 pour vos solutions.
J'aime bien la solution de Laetitia90 car elle me raccourci ma macro mais malheusement elle a un probleme si je recherche 4 elle me donne la valeur du chiffe 54 et III,
si je met le 6 idem valeur 56 et JJJ et si je met 7 =78 et GGG.
Je vous remervie de votre aide
Fichier joint

 

[laetitia90]

Re : For Each

re, il faut modifier cette ligne

Set A = Range("a2", Cells(Rows.Count, "a").End(xlUp)).Find(What:=TextBox1, LookIn:=xlValues, LookAt:=xlWhole)

 

[Bruce68]

Re : For Each

re

Merci Laetitia90 maintenant c'est correct.
Bonne journée à tous