Environnement de développement VBA7 sur les plateformes 32 et 64 bits

Bonsoir,

Le fichier ci-joint n'est pas compatible pour plateformes 64 bits. Quelqu'un peut m'aider et rendre cela possible s'il vous plait ? Ci-joint le fichier, merci beaucoup !

Bonjour toutes et tous

@ tester en rajoutant PtrSafe devant Function dans le le module Menus voir ci-dessous:

Public Declare PtrSafe Function GetKeyState Lib "User32" (ByVal iVirtualKey As Integer) As Long

après les erreurs viennent par rapport au nom de ton classeur ou de tes feuilles exemple (voir les sub Sub bapres(), bapres, filtre, supprimer_ligne --- etc. etc.:

ThisWorkbook.Sheets("Diagramme")

alors que ce classeur ce nomme diagramme-exemple et que la feuil1 Exemple_Diagramme

ThisWorkbook.Sheets("Exemple_Diagramme")

crdlt,

André