XL 2013 Décomposition formule chimique

Dranreb

XLDnaute Barbatruc

• 13 Novembre 2018

• #2

Bonjour.
Mais comment on les reconnait ?
Sont-ils dans une liste ?

 

Vote positif 0 Vote négatif

N

nicroq

XLDnaute Occasionnel

• 14 Novembre 2018

• #3

Bonjour,

Oui l'ensemble des ions sont dans une liste sur une autre feuille (voir piece jointe)
merci pour votre aide. j'ai un peu avancé sur le sujet mais lorsque je mets la liste sur une autre feuille ca ne marche pas.. alors que si je mets la liste sur la meme feuille cela fonctionne???

 

Pièces jointes

• Liste.xlsx

  8.2 KB · Affichages: 19

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 14 Novembre 2018

• #4

Bonjour
j'ai l'impression de n'en avoir qu'une partie la ?
Seulement la liste en fait. Çes ions peuvent être des molécules aussi longues ?

 

Vote positif 0 Vote négatif

N

nicroq

XLDnaute Occasionnel

• 14 Novembre 2018

• #5

En fait le fichier" liste" constitue un deuxième onglet du premier fichier. Je n'ai envoyé que la liste désolé..
Il y a les ions et aussi certaine molécule qui ne sont pas des ions mais qu'il faut que je puisse repérer aussi.
merci.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 15 Novembre 2018

• #6

Bonjour.
Pouvez vous joindre le classeur où vous avez avancé sur le sujet ?
En attendant un petit bout de code pouvant servir dans une boucle s'il n'y a pas d'imbrications :

VB:

Function Ion(ByVal Texte As String, IonRef As String) As Long
Dim Ts() As String, Qt As Long
Ts = Split(Texte, IonRef)
For P = 1 To UBound(Ts)
   If Ts(P - 1) Like "*(" And Ts(P) Like ")#*" Then Qt = Val(Mid$(Ts(P), 2)) Else Qt = 1
   Ion = Ion + Qt: Next P
End Function
Sub TestIon()
MsgBox Ion("(NH4)2HPO4", "NH4")
End Sub

 

Dernière édition: 15 Novembre 2018

Vote positif 0 Vote négatif