Problème Compatibilité entre 32bits et 64bits

[Amigo]

Bonjour Le Forum
Aujourd'hui, Je reviens vers vous pour essayer de résoudre un problème de compatibilité entre 32 Bits et 64 Bits.
J'ai trouvé un fichier sur ce forum qui tourne sous 32 Bits et souhaite l'utiliser sur du 64 Bits mais je n'ai pas réussi de mettre les "Private Declare PtrSafe Function".(Voir fichier joint)
lien du fil :https://www.excel-downloads.com/threads/resolu-textbox-recherche-listbox-multicolonnes.20012473/
Merci d'avance pour votre aide.
Cordialement

 

[Dranreb]

Bonjour.
Quel problème ça pose ?
En compilant le projet de votre classeur j'ai seulement des problèmes parce que vous avez enlevé 'Private' devant.
Et plus loin parce que FindWindowA n'est pas déclaré.
Vous auriez intérêt à l'écrire pareil des deux cotés, juste à l'attribut PtrSafe près, soit avec soit sans Alias, si vous voulez que ça puisse tourner sur les deux sortes de systèmes.

 

[Amigo]

Bonjour Dranreb, Le Forum
Merci pour votre réponse, quand je clique sur "Ouvrir le Formulaire" j'ai une une erreur de compilation et la ligne après If VBA7 est surlignée.
Cordialement

 

[Dranreb]

Comme j'ai tenté de vous l'expliquer, puisque vous ne précisez plus Private devant, je me demande bien pourquoi, il assume Public, ce qui est interdit pour une instruction Declare dans un module objet.

 

[eriiic]

Bonjour,

la 1ère question à se poser est pourquoi tu as mis la 64 bits ?
On ne la met que si on est obligé, pas parce que son windows est 64 bits.
Si tu n'est pas obligé, je te conseille de désinstaller cette version pour mettre la 32 bits.
eric

 

[Amigo]

Re Dranreb
Ah Zut... je n'ai pas bien compris votre 1er message (maintenant c'est rectifié).
j'ai mis private avant chaque déclaration et j'ai supprimé les "A" des variables "SetWindow, Findwindow..." mais j'ai une nouvelle erreur sur la ligne
: With Me.ListView1

Cordialement
Bonjour Eriiic : l'installation du 64 Bits ne dépend pas de moi. Sinon saurait été avec grand plaisir

 

[Dranreb]

Ça c'est sans doute un problème complètement différent. Vous allez peut être devoir vous passer de ListView et utiliser une ListBox à la place si vous ne voulez pas vous plonger dans l'enfer de l'installation du MSCOMCTL.ocx

 

[eriiic]

Aucun contrôle ActiveX 32 bits ne fonctionne sur excel 64 bits.
Ca sera pareil avec une Listbox non ?
eric

 

[Amigo]

Re Dranreb, Eriiic, le Forum
je n'arrive pas à comprendre pourquoi l'être humain est toujours tenté par l'Enfer que le Paradis

 

[Dranreb]

Mais bon, dernièrement un demandeur l'avait, en fait, ce fichier MSComCtl.ocx et à pu le mettre en référence à l'aide du bouton Parcourir de la boîte "Références — VBAProject" ouverte par menu Outils, Références…
Mais même si c'est aussi votre cas, il faudra sans doute redessiner la ListView dans la fenêtre de conception de l'UserForm

 

[Amigo]

Re Dranreb, Eriiic, le Forum
Je viens d'installé MSCOMCTL.ocx et le mscomct2.ocx et je les ai cochés : Microsoft Windows common controls 6.0 (sp6) et Microsoft Windows common controls-2 6.0 (sp6) dans l'éditeur de code Visual Basic.
Pourriez-vous me dire qu'est ce qu'il faut faire après parce que le feu de l'enfer commence à me bruler.
Cordialement

 

[Dranreb]

Redessinez la ListView1

 

[Amigo]

Re
Est-ce que je dois supprimer tout le Userform et le créer à nouveau ou seulement je supprime les "Frames" ?
Cordialement

 

[Dranreb]

Après avoir corrigé les points évoqués au début je n'ai eu qu'à redessiner la ListView1 pour que l'UserForm puisse s'afficher, notamment par le bouton 5 "Ouvrir formulaire"

 

[Amigo]

Re Dranreb, Eriiic, le Forum
Je ferai ca et vous tiendrez au courant
Merci Beaucoup
Cordialement