Discussion :

[ledisciple]

Bonjour

J'ai un tableau avec toute une colonne où je dois mettre les formules moléculaires de produits chimiques ( genre C2H4O, mais avec 2 et 4 en indice). Je sais comment le faire "à la main", mais pas de façon automatique, et je n'y connais rien aux macros ...

Si vous aviez une idée ...

Merci d'avance

[CodeFacile]

Bonjour,

c'est pas trop compréhensible genre C2H4O, mais avec 2 et 4 en indice ?
Si tu sais le faire en manuel , tu peux mettre l'enregistreur de macro ( macro -> nouvelle macro ...) , exécuter les opérations manuelles.
En fin d'enregistrement -> macro -> arrêter l'enregistrement.

ensuite macro , éditer et tu peux t'inspirer du code généré.

[ledisciple]

oui, mais bon, c'est pas facile de modifier un code, quand on ne connait pas les bases .. En gros, c'est pour une colonne donnée, mettre tous les chiffres en indices ...

[jfontaine]

Bonjour,

Ci dessous une procèdure qui fait cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub ConvertIndice(Col As Integer)
 
Dim i As Long
Dim ICar As Integer
Dim Rg As Range
 
For i = 1 To ActiveSheet.Columns(Col).End(xlDown).Row
 
    Set Rg = ActiveSheet.Cells(i, Col)
 
    For ICar = 1 To Len(Rg.Value)
 
        If IsNumeric(Mid(Rg.Value, ICar, 1)) Then
            Rg.Characters(ICar, 1).Font.Subscript = True
        End If
 
    Next ICar
 
Next i
 
End Sub

A executer comme suit pour la colonne C (3)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Lancement()
 
ConvertIndice 3
 
End Sub

[Philippe Tulliez]

Bonjour,
Voici un code qui travaille sur un Selection de cellules (A adapter selon test besoins)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub cInd()
 Dim Rng As Range, c As Byte
 For Each Rng In Selection
  With Rng
   With .Font
   .Strikethrough = False
   .Superscript = False
   .Subscript = False
   End With
   For c = 1 To Len(.Value)
    Select Case Asc(Mid(.Value, c, 1))
     Case 48 To 57
      .Characters(Start:=c, Length:=1).Font.Subscript = True
    End Select
   Next c
  End With
 Next Rng
End Sub

[ledisciple]

Merci beaucoup à tous pour votre aide, mais j'ai aussi des compsition comme celle ci FeSO4, 7H2O (avec un grand 7) et j'ai fini de tout faire à la main.
J'espère que cela pour aider d'autres personnes...