Discussion :

[mouncefdi]

Bonjour tout le monde,
Je suis bloqué sur un sujet bête si vous pouvez m’aider ça pourrait m’avancer
Alors voilà j’ai dans les cellules de ma colonne A des mots séparés par des *, je souhaite en effet créer une macro qui parcourt le contenu de chaque cellule de la colonne A, une fois qu'elle rencontre une étoile dans le contenu elle devra copier le mot après * et l’insérer dans la cellule ci-dessous.


J’ai pensé aux fonctions right et left mais je n’y arrive pas.

Merci beaucoup pour votre aide !

Cordialement,

[zyhack]

Bonjour

tu peux utiliser

à adapter

Code :

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

1
2
3
4
5
6
7
8
9
Dim posit As Long
On Error Resume Next
 
posit = InStr(1, Cells(boucle, 1), "*")
If posit > 0 Then
  Cells(boucle + 1, 1) = Mid(Cells(boucle, 1), posit + 1, Len(Cells(boucle, 1)) - posit)
End If
 
On Error GoTo 0

la gestion d'errreur est la au cas ou la cellule serait vide

la variable boucle correspond comme son nom l'indique à la variable que utilisera dans ta boucle

[mouncefdi]

Bonjour Zyhack,

J ai essaye de l adapter mais la macro ne marche pas dans le cas ou il y a par exemple dans A1 aaa*bbb*ccc*d, dans A2 cvb*df*sdfg*sdf
Le resultat que je cherche est le suivant :
A1 contient aaa
A2 contient bbb
A3 contient ccc
A4 contient d
A5 contient cvb
A6 contient df
A7 contient sdfg
A8 contient sdf

Etc…

Merci bcp pour ton aide Zyhack

[zyhack]

Bonjour

J ai essaye de l adapter mais la macro ne marche pas dans le cas ou il y a par exemple dans A1 aaa*bbb*ccc*d, dans A2 cvb*df*sdfg*sdf
Le resultat que je cherche est le suivant :
A1 contient aaa
A2 contient bbb
...

comme souvent il suffit d'être le plus précis possible dès le début sur ce que l'on souhaite obtenir

En passant par des tableaux pour aller plus vite

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
22
23
24
25
26
27
28
29
30
31
Sub test()
Dim celC() As String
Dim mots() As String
Dim BCell As Long, index As Long
Dim BTab As Integer
 
index = 0
'Boucle dans les cellules de la colonne1
For BCell = 1 To Cells(Rows.Count, 1).End(xlUp).Row
  'si elle n'est pas vide
  If Cells(BCell, 1) <> "" Then
    'si elle contient *
    If InStr(1, Cells(BCell, 1), "*") > 0 Then
      'sépare les valeurs et les met en tableau
      celC = Split(Cells(BCell, 1), "*")
      'Récupère dans un autre tableau toutes les valeurs
      For BTab = 0 To UBound(celC)
        ReDim Preserve mots(index)
        mots(index) = celC(BTab)
        index = index + 1
      Next
    End If
  End If
Next
 
'décommenter la ligne suivant au cas ou il faut vider la colonne pour faire propre
'Columns(1).ClearContents 
 
'colle le tableau à partir de A1
Range("A1:A" & UBound(mots) + 1) = Application.WorksheetFunction.Transpose(mots)
End Sub