Comme son nom l'indique, ce code est le tableau périodique des éléments, il est très simple et détecte lorsque l'on clique sur un élément. Il peut servir si vous faite un programme qui touche à la chimie ou pour autres choses d'ailleurs...
Source / Exemple :
Ah ben non, là il faut le zip...
Conclusion :
Si vous trouvez des bugs ou si vous vous en servez, merci de me prévenir à sphaxs@aol.com ou sur VBFrance.
En fait, le problème se situait dans la ligne de code suivante : MasseAtomique = LblMasseAtomique(index) où tu cherches à passer un texte [LblMasseAtomique(index)] à une variable déclarée en Single.
J'ai donc apporté la modification suivante : MasseAtomique = CSng(Replace(LblMasseAtomique(index).Caption, ".", ","))
où j'utilise le Replace pour remplacer le point par une virgule et ainsi permettre la convertion de ce texte en Single. Sans le Replace, je me retrouvais avec le message "Type incompatible".
Pour ce qui est de la taille, je suis en train de remanier ca et pour l'état natureldes éléments, je ne les connais pas tous donc je ne pense pas inclure cette option (sauf si quelqu'un me les communique). De meme, si qqn sait comment calculer le nombre d'électrons par couche, ca m'arrangerai qu'il me dise comment faire.
Sur ce bonne continuation...
Tu voudras que je t'envoie ce que j'aurais rajouté ?
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.