Discussion :

[netgui]

Salut à tous !

J'ai une cellule contenant X mots (séparés par des espaces ou de la ponctuation). Ce que je veux c'est récupérer chaque mot dans une variable (via un script VB) pour lui appliquer un traitement ultérieur dans une boucle. Existe t'il une fonction pour récupérer les mot d'une cellule ?

Puis je procéder de cette façon:

Code :

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

1
2
3
4
5
Dim mot as Object
 
For Each mot in Range ("A1")
 
Next mot

merci pour votre aide :-)

[ouskel'n'or]

Non, dans ton code Mot est un range. mais tu peux faire ça

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
Sub test()
Dim Mot as variant, tablo as variant
Dim i as integer, NoLig as long
 
'Tableau des ponctuations possibles
Pontuation = array(",", ".", ";", "?", "!", ":")
 
'Parcours de la colonne contenant les cellules (ici la colonne A)
For NoLig = 1 to Range("A65536").end(xlup).row
    'test pour savoir si la cellule est vide
    if cells(NoLigne, 1) <> "" then 
         mot = cells(NoLigne, 1)
         'on retire toutes les ponctuations de la liste
         For i = 1 to Ubound(Ponctuation)
              Mot = Replace(Mot,Ponctuation(i), " ")
         Next
 
         'on crée un tableau des mots contenus dans la cellule
         Tablo = Split(Mot, " ")
 
         'on écrit le tableau dans la ligne, un mot par colonne
         For i = 0 to Ubound(Tablo)
              Cells(NoLig, i + 1) = Tablo(i)
         Next
    endif
Next
End sub

La liste (",", ".", ";", "?", "!", ":") est celle des ponctuations possibles, tu peux en retirer ou en ajouter entre guillemets, séparés par une virgule.
Range("A65536").end(xlup).row donne le nombre de lignes renseignées de la colonne des cellules à diviser.

Pas testé. Tu peux le faire pour moi ?
A+

[ucfoutu]

Bonsoir,

ou encore, si l'on veut éviter tous ces replace qui risquent de ralentir une phrase longue :

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
Private Sub Command1_Click()
 Dim toto As String, i As Integer, messeps As String, lesmots As String, titi
 toto = "il est parti, avec sa mère, faire des courses au marché ! il reviendra; j'en suis certain."
 titi = Split(toto & " ", " ")
 messeps = ",;:!."
 lesmots = ""
 For i = 0 To UBound(titi)
  If Len(titi(i)) > 1 Then
    While InStr(messeps, Right(titi(i), 1)) > 0
      titi(i) = Left(titi(i), Len(titi(i)) - 1)
    Wend
    lesmots = Trim(lesmots) & titi(i) & vbCrLf
  End If
 Next
   MsgBox lesmots
End Sub

on part tout simplement du principe selon lequel une ponctuation est forcément suivie d'un espace...

[Abed_H]

Bonsoir à vous tous
voici une variante à testée.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim i As Integer, Chaine As String
Chaine = Range("A2").Value
  For i = 1 To Len(Chaine)
    If Mid(Chaine, i, 1) = "," Or Mid(Chaine, i, 1) = "." _
       Or Mid(Chaine, i, 1) = ";" Or Mid(Chaine, i, 1) = "?" _
       Or Mid(Chaine, i, 1) = "!" Or Mid(Chaine, i, 1) = ":" Then
       Mid(Chaine, i, 1) = " ": End If
  Next i
   ChaineTraitée = Split(Chaine, " ")
        For j = 0 To UBound(ChaineTraitée)
          MsgBox ChaineTraitée(j)
        Next j
End Sub

Bonne soirée

Abed_H

[netgui]

AHH tu as fait une seconde réponse. je vais l'étudier dès demain. Merci pour tes réponse rapide en tout cas !

Une question sur le premier source : le script bloque sur la fonction REPLACE qui en effet ne me semble pas académique (telle que je l'utilise directement dans les cellules sans faire de VBS)... la syntaxe diffère...

[ouskel'n'or]

Pour une version d'office antérieure à 2000, Replace ne fonctionne pas.

[netgui]

Pour une version d'office antérieure à 2000, Replace ne fonctionne pas.

Merci à tous les deux,

je suis coincé dans les 2 cas car la fonction SPLIT n'est pas reconnue. j'ai pourtant une version de Excel et VBA (11.0)récente, mais sur Mac :-(

Bon je vais essayer de réécrire la fonction SPLIT avec les moyens du bord (j'vous jure :-)

[netgui]

Plus simple encore, je suis passé sur un PC et tout marche impec __

Merci pour votre aide précieuse et en plus quel bonheur de découvrir de si beaux codes :=)

[ouskel'n'or]

Tiens, je m'étais fait ça, à l'époque où je n'avais pas de poil au menton

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
Function Spliit(Adresse, separateur)
Dim Tableau(), Phrase, i As Byte, j As Byte
    Phrase = Adresse
    i = 1
    j = 0
    Do While i < Len(Phrase)
        If Mid(Phrase, i, 1) = separateur Then
            ReDim Preserve Tableau(j)
            Tableau(j) = Left(Phrase, InStr(Phrase, separateur) - 1)
            Phrase = Right(Phrase, Len(Phrase) - InStr(Phrase, separateur))
            j = j + 1
            i = 0
        End If
        i = i + 1
    Loop
    ReDim Preserve Tableau(j)
    Tableau(j) = Phrase
    Spliit = Tableau
End Function

Tu lui envoies la phrase et le séparateur et ça te renvoie un tableau

Code :

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

1
2
3
4
5
6
7
Sub appel()
Dim tablo As Variant, i As Integer
tablo = Spliit("J'ai deux grands boeufs dans mon étable", " ")
For i = 0 To UBound(tablo)
     MsgBox tablo(i)
Next
End Sub

A+

[ucfoutu]

Tiens !

J'avais également fait quelque chose du même genre, mais en permettant le traitement avec un éclatement sur "plus long qu'un seul caractère) :

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
Public Function Split(ByVal MyString As String, ByVal Separator As String) As Variant
  Dim iPosit As Long
  Dim Table() As String
  ReDim Table(0) 'ATTENTION : Il semble qu'il faille commencer à  et pas à 0 pour coller à VB6
  iPosit = InStr(MyString, Separator)
  If iPosit = 1 Then
    MyString = Mid$(MyString, Len(Separator) + 1)
    iPosit = InStr(MyString, Separator)
  End If
  While iPosit > 0
    Table(UBound(Table)) = Left(MyString, iPosit - 1)
    MyString = Mid$(MyString, iPosit + Len(Separator))
    ReDim Preserve Table(UBound(Table) + 1)
    iPosit = InStr(MyString, Separator)
  Wend
  Table(UBound(Table)) = MyString
  Split = Table
End Function

[ouskel'n'or]

Attention, dans VBA 97, Split est une propriété, à ne pas donner au nom de la fonction

Split, propriété
Cette propriété a la valeur True si la fenêtre est fractionnée. Type de données Boolean en lecture-écriture.

Remarques

La propriété FreezePanes peut avoir la valeur True et la propriété Split, la valeur False, et inversement.
Cette propriété s'applique uniquement aux feuilles de calcul et aux feuilles macro.

A toutes fins utiles