XL 2016 CREATION CODE USEFORM

[abrabr]

Bonjour,

J'essaye de produire un petit USEFORM de calcul de surfaces copié d'un petit module EXE suivant :



J'ai réussi à déssiner le USEFORM.

Malheureusement je bloque déjà sur comment faire pour que les images des formes avec text box aparaissent lorsque je clique
sur les boutons.

Je ne sais pas faire le code des boutons
je ne sais pas faire le code pour les calculs
je ne sais pas
je ne sais pas

Si quelqu’un pouvait m'orienter.
Le petit fichier joint au cas ou.

Merci pour votre aide

 

[sousou]

Bonjour
Juste pour te mettre sur une piste.
Pas prie le temps d’aller plus loin, à suivre si c'est ce genre de truc

 

[abrabr]

Euj je vais vers quel piste je ne comprend pas trop

 

[sousou]

Il manque le fichier ca va venir 😱

 

[sousou]

Le voici le voilà, loin d'être finalisé 😉

 

[sousou]

Un peu plus abouti

 

[abrabr]

wwwwouahou je ne sais pas comment tu fais c'est magnificque

 

[sousou]

Peut-être mais il y a une erreur sur les secteurs, et j'ai ajouté un arrondi à 3 décimales

 

[abrabr]

Merci beaucoup, j'ai réussi à l'intégrer à mon fichier.
Merci merci

 

[abrabr]

J'ai un dernier petit truc sur le dernier fichier. Lorsque l'on clique sur retirer et qu'il n'y a rien dan sla liste, le useform bug. Peut on faire un code pour éviter cette erreur ?

 

[sousou]

Modifie comme ceci
Private Sub CommandButton6_Click()
If Liste.ListCount = 0 Then Exit Sub
Liste.RemoveItem (Liste.ListCount - 1)
Call masomme(Me.Liste)
End Sub

 

[abrabr]

Merci encore c'est génial