Discussion :

[Norum1]

Bonjour,
Je débute (niveau 0) en VBA, et je voulais écrire une macro me permettant de splitter des chaînes de caractère contenu dans une colone d'un tableau excel.
Je m'explique:
En colonne A, je dispose de chaîne de caractère sous la forme
YYYYMMDD_HHhMM_libellé1_xxx123456_libellé2

Je voudrais que pour chaque chaîne contenu en Ai, la macro renseigne en Bi, Ci, Di, Ei, Fi les composants de cette chaîne (donc entre les "_").
J'ai réussi à le faire pour A2 (ma première entrée) avec:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub ExtraireParametreChaine()
 
Dim zone As Variant
Dim i As Integer
zone = Split(Range("A2"), "_")
For i = 0 To UBound(zone)
  Cells(2, i + 2) = zone(i)
Next
 
End Sub

Mon premier problème, c'est que je ne sais pas le reproduire pour l'ensemble de la colonne A, ensuite la taille variable de mes libellés 1 et 2.
Voilà, si quelqu'un a une idée pour m'aider, ce serait super sympa
Merci
C.

[Jean-Philippe André]

salut, pour la partie 1 je propose ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub ExtraireParametreChaine()
 
Dim zone As Variant
Dim i As Integer
Dim j  as integer
for j = 2 to 30 'de A2 à A30
zone = Split(Range("A" & i), "_")
For i = 0 To UBound(zone)
  Cells(j, i + 2) = zone(i)
Next i
next j
End Sub

[AlainTech]

Je viens de tester ceci:

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
Sub ExtraireParametreChaine()
 
  Dim zone() As String
  Dim i As Integer
  Dim rRange As Range
  Dim c As Range
  Set rRange = Range(Cells(1, 1), Cells(Cells.SpecialCells(xlLastCell).Row, 1))
 
  For Each c In rRange
    zone = Split(c.Text, "_")
    For i = 0 To UBound(zone)
      c.Offset(0, i) = zone(i)
    Next i
  Next c
End Sub

Je m'attends à la question concernant le formatage des dates et heures mais tu peux chercher un peu.