Discussion :

[best94]

Bonjour,

Je suis novice dans les macros excel

Mon besoin :
-Analyser une colonne (n éléménts)
pour chaque cellule analyser la valeur de la cellule
Si la cellule contient des séparateur (ex: -) alors faire autant de colonnes que de sous chaine

Soit la cellule de la colonne A qui contient 1-2-23
En sortie je voudrai
Colonne A avec 1
Colonne B avec 2
Colonne C avec 23

En cherchant j'ai déjà fait :

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 Essai()
 
    Dim iColPos As Integer
    Dim iTabPos As Integer
    Dim iNbSep As Integer
    Dim sValue As String
    Dim tValue() As String
 
 
    For iColPos = 1 To 100
        sValue = Range("A" & iColPos).Value
        If sValue <> "" Then
            tValue = Split(sValue, "-")
            MsgBox UBound(tValue)
            For tTabPos = 0 To UBound(tValue)
                MsgBox tValue(tTabPos)
            Next
        End If
    Next
 
End Sub

Je ne sais pas comment déterminer un colonne de façon dynamique

Merci

[AlainTech]

Tu n'étais pourtant pas loin de la solution...

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 Essai()
 
  Dim iRow As Integer
  Dim iCol As Integer
  Dim iNbSep As Integer
  Dim sValue As String
  Dim tValue() As String
 
  For iRow = 1 To 100
    sValue = Cells(iRow, 1).Value
    If sValue <> "" Then
      tValue = Split(sValue, "-")
      MsgBox UBound(tValue)
      For iCol = 0 To UBound(tValue)
        MsgBox tValue(iCol)
        Cells(iRow, iCol + 2) = tValue(iCol)
      Next
    End If
  Next
 
End Sub

Je me suis permis de renommer certaines variables pour plus de clarté.