XL 2016 Userform multipage listview/listBox

jcf6464

XLDnaute Occasionnel

• 19 Décembre 2020

• #2

Bonjour Pleao et le forum,

classeur bloqué je suis en 64bits le tien fonctionne en 32bits

bonne continuation jcf6464

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 19 Décembre 2020

• #3

Bonjour,
Pour toi jcf6464, je l'ai passé en 64 bits
J'ai du mal à rentrer dans la programmation

 

Pièces jointes

• Matèriel (1).xlsm

  617.2 KB · Affichages: 25

Vote positif 0 Vote négatif

jcf6464

XLDnaute Occasionnel

• 19 Décembre 2020

• #4

Re

merci je vais voir
J'ai du mal à rentrer dans la programmation
moi aussi j'ai abandonné

cordialement jcf

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 19 Décembre 2020

• #5

Bonjour @jcf6464 ,@CHALET53 ,@Pleao ,

Moi aussi, j'ai eu du mal à rentrer dans la programmation.

J'ai du neutraliser la fonction Public Function ean13$(chaine$) du module1 et Public Function MaFonction(chaine As String) As String du module2. Il y avait aussi une bibliothèque manquante Microsoft Outlook view control.

Je pense que ton problème vient du code de Sub UserForm_Activate.
Tu utilises des API pour le 32bit qui ne fonctionne pas en 64bit. Tu trouveras des codes sur le forum pour résoudre ce problèmes d'api.

Bon week-end.

 

Vote positif 0 Vote négatif

P

Pleao

XLDnaute Nouveau

• 20 Décembre 2020

• #6

Bonsoir jcf6464,CHALET53,cp4
je vous remercie beaucoup pour votre réponse aussi rapide et pour votre détermination ,si je comprend bien j`ais intérêt à passer à Office 64 Bit c'est plus facile la utilisation VBA , si vous avez des solutions je suis ouvert a toutes propositions et je vais continue a chercher. Encore merci beaucoup.

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 20 Décembre 2020

• #7

Bonjour,
J'ai tenté des choses. toutefois, il est en 64 bits. Peut-être ne vas-tu pas réussir à l'ouvrir
Si tu ne peux l'ouvrir, je te préciserai les modif que j'ai faites

a+

 

Pièces jointes

• Matèriel (1).xlsm

  637.4 KB · Affichages: 33

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 20 Décembre 2020

• #8

Pleao à dit:

Bonsoir jcf6464,CHALET53,cp4
je vous remercie beaucoup pour votre réponse aussi rapide et pour votre détermination ,si je comprend bien j`ais intérêt à passer à Office 64 Bit c'est plus facile la utilisation VBA , si vous avez des solutions je suis ouvert a toutes propositions et je vais continue a chercher. Encore merci beaucoup.

Cliquez pour agrandir...

Bonjour,

@Pleao : Microsoft préconise d'installer Office 32bit même sur un système 64 bit.
Personnellement j'ai windows7 64bit et Excel2010 32bit. Il faut adapter le code comme ci-dessous.
voir ce lien

VB:

#If VBA7 Then
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
 (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#Else
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
 (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
#End If

Bon dimanche.

ps: mauvaise idée de fermer l'application Excel à partir du formulaire alors que le projet n'est pas finalisé.

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 20 Décembre 2020

• #9

Re,
Avec l'ajout du bouton "Fermer cette fenêtre", je ne fais que quitter l'USF
Je trouve cela pratique lorsque l'USF prend tout l'écran et que je veux sortir de l'appli (pour aller voir le code par exemple)
a+

 

Vote positif 0 Vote négatif

P

Pleao

XLDnaute Nouveau

• 20 Décembre 2020

• #10

CHALET53 à dit:

Bonjour,
J'ai tenté des choses. toutefois, il est en 64 bits. Peut-être ne vas-tu pas réussir à l'ouvrir
Si tu ne peux l'ouvrir, je te préciserai les modif que j'ai faites

a+

Cliquez pour agrandir...

Bonjour
Encore une fois merci pour votre aide, oui je ouvert le fichier ,je vois que tas fait quelques modifications vu que page 3 et 4 ça fonctionne , dans la page 2 matériel bouton scanner je arrive plus a ouvrir le userform 2 , encore quelques modifications case tète a faire et a réaliser.
je tien a vous remercie pour votre aide ,Merci
Bon week-end

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 20 Décembre 2020

• #11

Sur quelle feuille l'userform 2 travaille ?
a priori, c'est sur la feuille Commande puisque num=1 ((première instruction de rivate Sub UserForm_Initialize

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 21 Décembre 2020

• #12

Bonjour 0 tous
en pièce jointe ma contribution

 

Pièces jointes

• MatérielV2.xlsm

  640.8 KB · Affichages: 35

Vote positif 0 Vote négatif

jcf6464

XLDnaute Occasionnel

• 21 Décembre 2020

• #13

Bonjour à tous

Désolé Bebere ton classeur est en 32bits on ne peut l'ouvrir,

bonne continuation jcf6464

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 21 Décembre 2020

• #14

Un spécial jcf6464

Enlever les stop

 

Pièces jointes

• MatérielV2.xlsm

  607.2 KB · Affichages: 67

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 22 Décembre 2020

• #15

Bonjour
Question:et le fichier en binaire çà passerait
c'est la 1ère fois que j'entend cela ou cela vient il de la fin de office2010

 

Vote positif 0 Vote négatif

Solution