Discussion :

[jphostier]

Bonjour à tous et toutes,
J'aurais besoin d'un "furieux" ou d'une "furieuse" pour m'écrire une petite macro-fonction en XL 2010.
La fonction serait par exemple "tagg( )". Son but : reprendre tous les mots d'une cellule en les séparant d'une virgule.
Exemple :
supposons que j'aie dans la cellule "A1" :
Magnifique sac en cuir de marque Delvaux.
je voudrais qu'en utilisant la fonction "tagg(A1)" en "A2" par exemple, XL me sorte :
magnifique, sac, en, cuir, de, marque, delvaux
Attention, le dernier caractère de la cellule doit impérativement être la dernière lettre du dernier mot (ici, le X de delvaux). Je ne dois ni avoir un espace, ni une virgule.
Avec cela, je serais déjà très content, MAIS si en plus, la fonction pouvait m'éliminer des mots que je juge inutiles (et que j'aurais stocké quelque part - pourquoi pas dans la macro elle-même) du genre "en - de - la - le - etc, alors ce serait un véritable bonheur pour moi.

A l'avance, je vous remercie pour vos idées.

[Invité]

Bonsoir jphostier

Nul besoin d'être un furieux il suffit de connaitre le langage

Voici ta fonction

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
Function Tagg(Rng As Range)
  Dim Ind As Integer, TabMot() As String
  Dim Result As String, NoStr As String
  ' Initialiser les variables
  TabMot = Split(Rng.Value, " ")
  Result = ""
  NoStr = "en,de,la,le"
  ' Pour chaque mot du tableau
  For Ind = 0 To UBound(TabMot)
    ' Si le mot ne fait pas partie de ceux à supprimer
    If InStr(1, NoStr, TabMot(Ind)) = 0 Then
      ' L'ajouter au résultat
      Result = Result & TabMot(Ind) & ", "
    End If
  Next Ind
  ' Supprimer la dernière virgule et espace
  Result = Left(Result, Len(Result) - 2)
  ' REtourner le résultat
  Tagg = Result
End Function

A+

[Philippe Tulliez]

Bonjour,
Ce que tu décris peut être résolu pas la fonction Split.
Voir ce tutoriel Manipuler les chaînes de caractères en VB6 et VBA Excel et tout particulièrement le chapitre Scinder une chaîne

[Philippe Tulliez]

Bonjour BrunoM45,
Je ne vois aucune raison d'utiliser Application.Volatile dans cette procédure.
Une fonction volatile recalcule chaque fois que l'on modifie la valeur d'une cellule quelconque d'un classeur ouvert, ce qui a pour effet de ralentir l'exécution or ici la fonction ne doit refaire le calcul que si l'on modifie la valeur de la cellule référencée dans l'argument.

[Invité]

Bonjour Philippe

Bonjour BrunoM45,
Je ne vois aucune raison d'utiliser Application.Volatile dans cette procédure.
Une fonction volatile recalcule chaque fois que l'on modifie la valeur d'une cellule quelconque d'un classeur ouvert, ce qui a pour effet de ralentir l'exécution or ici la fonction ne doit refaire le calcul que si l'on modifie la valeur de la cellule référencée dans l'argument.

Très bonne remarque c'est une mauvaise habitude que j'ai

Dans ce cas, il est effectivement inutile de laisser "Application.Volatile"

Je modifie mon précédent post

[casefayere]

Peut-être que je n'ai pas bien saisi la demande mais la fonction "Substitue" ne suffirait t'elle pas

Code :

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

=SUBSTITUE(A1;" ";", ")

[Philippe Tulliez]

Bonjour Dominique,

Peut-être que je n'ai pas bien saisi la demande mais la fonction "Substitue" ne suffirait t'elle pas

Code :

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

=SUBSTITUE(A1;" ";", ")

Mis à part les mots que l'on ne souhaites pas avoir comme en,de,la,le mais que l'on pourrait aussi éliminer par un Subsitute ou par Replace en VBA, tu as tout à fait raison (pourquoi faire simple quand on peut faire compliqué).
J'avais pensé au départ que l'on souhaitait avoir un tableau de ce texte.