aide pour une programmation sur vba Fermé

Question

bonjour a tousje souhaite resoudre mon probleme  par le biais de ce forum et je remercie d'avance tous qui de près ou de loin pourons m'aider.il s'agit de comparer  les champs de deux fichiers qui sont sur un meme classeur mais sur des feuilles differentes. je precise que c'est sur visual basic for applicationurgent SVP, c'est dans le cadre d'un rapport que je dois rendre le 30/09/03. merci encore!sub comparaison()dim myrange as rangedim straddresse, stradresse as stringdim c1, c2 as objectdim var, i as integeri=1set nvellefeuille=worksheets.addnvellefeuille.Name=("feuil4")var=msgbox("recherhce en cours")for each c1 in worksheets ("feuil1").range("d2:d587")srtaddresse=UCase(trim(c1.value))for each c2 in worksheets ("feuil2").range("d2:d968")srtadresse=UCase(trim(c1.value))if stradresse=straddresse thenworksheets("feuil4").cells(i,1).value=straddressei=i+1end ifnext c2next c1var=msgbox("fin de la comparaison", vbokonly, " ")end sub

Cqqn · Answer

Je réponds vite fait là.Dans les déclarations, on m'a montré que dansdim straddresse, stradresse as stringdim c1, c2 as objectdim var, i as integereh bien straddresse, c1 et var seront interprétés comme des variants, donc essayes déjà ceci:dim straddresse as string, stradresse as stringdim c1 as object, c2 as objectdim var as integer, i as integerLe respect, y'a que ça de vrai!Entre autres.

Cqqn · Answer

Je ne suis pas certain, mais c'est ptêt ça:"i" est incrémenté 967 fois dans le "For each c2", et cela multiplié par 586 du "For each c1".En fait "i" est trop souvent incrémenté par rapport à ta condition "if stradresse=straddresse".les entiers c'est 32 000qqchose < (967*586).Donc "i" ne doit pas être un integer mais plutôt un double.Le respect, y'a que ça de vrai!Entre autres.

Aide pour une programmation sur vba

2 réponses

Discussions similaires

Newsletters