problem fonction .find

Version imprimable

bonjour a tous ,

j'essaye de crée un classeur Excel qui analyserai les relever de compte format Excel d'une banque

je bute sur le module de vérification du numéros de compte ,module que j'ai déjà utilisé pour d'autre recheche , mais jamais avec des nombres , je n'arrive pas a trouver des infos que je comprenne sur ces fonction du coup ,bien je vous écris :oops:

le but de se code et de repairer dans ma colonne 1 si le numeros de compte ( numeros de compte qui n'est pas seul dans la case ) et le même que celui de la base de données existante,si les numeros de compte son different alors le programme ne recupaire pas les données,

voila a peu pres le but de cette partie de mon code

mon problem, soit je declare mes variable et je crée des erreur du coup je l'ai declarent en variant , il n'y a plus d'erreur , mes ca ne fonctionne pas
j'ai d'abord pensée que cela venai de mon code a executer selon les condition, mais même en les ayant remplacer par de simple msgbox

ca ne marche pas :cry:

je me permet de vous mettre les code en question, au cas ou mon explication ne soit pas clair
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Sub controle_numero_de_compte() Dim num_de_compte As Range Dim num_de_compte_de_reference As Variant num_de_compte_de_reference = ThisWorkbook.Worksheets("Feuil1").Cells(1, 1).Value Do Set num_de_compte = Columns("A").Find(what:="num_de_compte_de_reference", LookIn:=xlValues, lookat:=xlPart) If Not num_de_compte Is Nothing Then 'action si num_de_compte et trouver Else 'sinon If MsgBox("le n° decompte ne correspond pas", vbRetryCancel + vbExclamation + vbDefaultButton1, "Erreur du numeros de compte") = vbRetry Then MsgBox "clic retry!" Else MsgBox "clic cancel!" End If Exit Do End If Loop End Sub
voila,
je ne vous demande pas forcement la solution, mais j'aimerais vraiment comprendre pourquoi ca ne fonctionne pas

===>ps: si vous me donnez la soluce SVP expliquer moi

a bientot ;) enfin j'espaire

Bonjour,

Si ta variable num_de_compte_de_reference est de type texte, tu n’as pas besoin de placer des quotes à ton paramètre Find.
Code:

1 2 3 4 5 Dim num_de_compte As Range Dim num_de_compte_de_reference As String num_de_compte_de_reference = ThisWorkbook.Worksheets("Feuil1").Cells(1, 1).Value Do Set num_de_compte = Columns("A").Find(what:=num_de_compte_de_reference, LookIn:=xlValues, lookat:=xlPart)
Cordialement.

En plus, je ne vois pas l'utilité du do
Ton code avec un choix succinct des noms des variables

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Controle_Numero_De_Compte()
Dim RefComp As String
Dim c As Range
 
RefComp = ThisWorkbook.Worksheets("Feuil1").Cells(1, 1).Value
If RefComp <> "" Then
    Set c = ThisWorkbook.Worksheets("Feuil2").Range("A:A").Find(what:=RefComp, LookIn:=xlValues, lookat:=xlPart)
    If Not c Is Nothing Then
        'Action si numéro de compte trouvé
        Set c = Nothing
    Else
        MsgBox "Compte non trouvé"
    End If
Else
    MsgBox "Veuillez entrer un n° de compte en A1 de Feuil1"
End If
End Sub

01/11/2012, 09h46
Theze
Bonjour,

Déjà, un n° de compte est sensé être unique donc, il serait préférable d'utiliser "xlWhole" (recherche exacte) au lieu de "xlPart" (recherche partielle) car les résultats risques d'être différents de ceux désirés.
Ici la valeur à chercher est bien définie, cellule "A1" de la feuille "Feuil1" donc, pas de doute
Code:

1 2 num_de_compte_de_reference = ThisWorkbook.Worksheets("Feuil1").Cells(1, 1).Value
Mais ici, c'est sur quelle feuille que doit être faite la recherche ? La feuille active qui est ??? Sur la feuille "Feuil1" dans ce cas, "Columns("A")" ne va pas puisque la valeur à chercher se trouve en "A1"
Code:

1 2 Set num_de_compte = Columns("A").Find(what:="num_de_compte_de_reference", LookIn:=xlValues, lookat:=xlPart)
Hervé.
01/11/2012, 20h49
syl-thom

Bonjour a tous,
Tous d’abord, désolé pour la mise en forme (je trouver ca sympa), je ne recommencerai pas.

Theze:- il est vrai qu'un numéro de compte est unique, le problème ce trouve être, qu'il n'est pas seul dans la(les) cellule(s) ou je fais ma comparaison c'est pour cela que je n'est pas utiliser "xlWhole" je pensé que avec "xlwhole" il fallait trouver exactement la même chose (mais peut être que je me trompe)
Voici un exemple de la case contrôlé "CCHQ n° xxxxxxxxxxx"(x étant un chiffre)

-pour la feuil, pas de souci, se sont 2 feuils différentes, une ou ce trouve le numéro de compte de référence, et l'autre que j'active juste avant de lancer la comparaison

mercatog :

Il est vrai que dans ce cas la DO ne sert a rien, a la base je voulais que a chaque fois que le numéro de comte soit trouver je supprime certain ligne, mais j'ai abandonné cette idée, le do en était le vestige :mouarf:

gFZT82 :
Merci pour l’info je savais pas

Par contre j'ai un deuxième problème, dois-je ouvrir un deuxième sujet ?
(Une histoire de copier /collage speciale )

merci a tous