Split en fonction de majuscule ou minuscule

[nicroq]

bonsoir,
voici ma problematique, je souhaiterai par VBA séparer les caracteres d une cellule en fonction de si il s agit de majuscule ou minuscule ou d un chiffre et de reconcatener tout ca apres modification...

Mon fichier joint sera bien plus clair et evitera des explications pas claires afin d obtenir la case reformulation.

Merci bcp pour votre aide!!!!

cdlt

 

[Dranreb]

C'est tout de même pas compliqué, je vous les avais pratiquement données les trois dernières instructions, en supposannt que les noms d'atomes imposée sont en E2:E10 et que les nombres totaux doivent aller en F2:F10 :

Sub Adaptation()
Dim TDon(), L As Long, DicTot As New Dictionary, DicFml As Dictionary, _
   TK(), N As Long, Atom As String, TAtom()
TDon = Feuil2.[B3].Resize(Feuil2.[B1000000].End(xlUp).Row - 2).Value
For L = 1 To UBound(TDon, 1)
   Set DicFml = DicAtomes(TDon(L, 1))
   TK = DicFml.Keys
   For N = 0 To UBound(TK)
      Atom = TK(N)
      DicTot(Atom) = DicTot(Atom) + DicFml(Atom)
      Next N, L
TAtom = Feuil2.[E2:E10].Value
For L = 1 To UBound(TAtom, 1): TAtom(L, 1) = DicTot(TAtom(L, 1)): Next L
Feuil2.[F2:F10].Value = TAtom
End Sub

Edit: j'ai quand même ouvert votre dernier classeur. Pourquoi avez vous mis des lignes vides dans votre tableau vert ? C'est à éviter, d'une façon générale, s'il n'y a pas de raison précise à cela.

 

[nicroq]

Nikel tout est parfait maintenant !!
je vous remercie et votre code et votre reactivité m ont aidé a progresser n peu plus!
bonne soirée

 

[nicroq]

une derniere question :
pourquoi qd je remplace :
TDon = Feuil2.[B3].Resize(Feuil2.[B10000].End(xlUp).Row - 2).Value
par
TDon = Feuil2.[B3].Resize(Feuil2.[B12].End(xlUp).Row - 2).Value
cela mets une erreur

 

[nicroq]

En fait j'ai trouvé il faut mettre B13 soit une cellule de plus que le tableau;

 

[nicroq]

desolé de vous demander encore une derniere chose,
mais serait il possible que la colonne B n'apparaissent pas et que chaque cellule subisse la fonction reform uniquement dans VBA de sorte à n avoir que les composés en colonne A et le tableau final avec adaptation?

 

[Dranreb]

Si votre plage est de taille fixe pas la peine de compliquer,
prenez simplement Feuil2.[B3:B12].Value
S'il est de taille variable recherchez la fin en remontant du plus loin.
Mais mettre 1 de plus que la taille de la plage ça ne sert à rien !

Ça devrait être possible de ne pas afficher la 1ère transformation.
Mais moi je m'arrête là. J'en ai assez que vous reveniez chaque fois avec autre chose, alors maintenant débrouillez vous.

 

[nicroq]

En effet il s agira d une plage fixe!!

 

[nicroq]

Le fait de ne pas afficher la 1ere transformation aurait vrm etait top d un pr bien finaliser ce que je souhaite faire et deux pr voir comment faire et quelle strategie utiliser et progresser. Mais je comprend votre reponse. Je vous remercie en tt cas pr votre aide precieuse. Bonne soiree