Discussion :

[nonodudu77]

Bonjour,

Je suis perdue!! Voila mon problème: J'ai une cellule avec un texte d'environs 1000 mots et j'aimerais insérer un mot clé tous les 100 mots.

A l'heure actuelle, cette manipulation me prend pas mal de temps et je me demandais si il existait un moyen d'automatiser cela.

Merci pour votre aide

[Nako_lito]

tu peux utiliser la méthode Split pour créer un tableau de données.

Ensuite, tu prends ce même tableau et tu fais une boucle dessus (boucle For par exemple)

Et toute les 100 itération, tu insère ton mot.

grosso modo, ca peut ressembler à ç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
Public Sub toto()
 
    Dim myArray()       As String
    Dim myString        As String
    Dim i               As Integer
    Dim myFinalString   As String
    Dim specialWord     As String
 
    myString = "je suis un petit développeur qui veux aider les gens sur les forums et je compte bien réussir ma mission alors soyez indulgent"
    mySpecialWord = ","
    myArray = Split(myString, " ")
 
    myFinalString = vbNullString
 
    For i = 0 To UBound(myArray)
        If i Mod 10 = 0 And i > 1 Then
            myFinalString = myFinalString & " " & mySpecialWord
        End If
        myFinalString = myFinalString & " " & myArray(i)
    Next
 
    MsgBox myFinalString, vbOKOnly
 
End Sub

Il y a aussi la possibilité du step 10 pour la boucle FOR mais je ne suis pas super a l'aise avec donc pour pas dire de bétises, je m'abstiens. Peu être d'autre forumeur sauront te conseiller son usage.

[nonodudu77]

Merci pour ton aide.

Cela fonctionne en utilisant ce code :

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
Sub toto()
 
    Dim myArray()       As String
    Dim myString        As String
    Dim i               As Integer
    Dim myFinalString   As String
    Dim specialWord     As String
    ActiveCell.Value = myString
 
    myString = Range("A1").Value
    mySpecialWord = "test"
    myArray = Split(myString, " ")
 
    myFinalString = Range("A2").Value
 
    For i = 0 To UBound(myArray)
        If i Mod 2 = 0 And i > 1 Then
            myFinalString = myFinalString & " " & mySpecialWord
        End If
        myFinalString = myFinalString & " " & myArray(i)
 
    Next
 
    MsgBox myFinalString, vbOKOnly
 
End Sub

Mon probleme maintenant est que le resultat apparait seulement dans la boite de dialogue (MsgBox) et j'aimerai que cela s'affiche par exemple dans la celulle A2

Cela est-il possible ?

Un grand merci

[Nako_lito]

A la place du

Code :

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

msgbox myFinalString, vbokonly

, tu mets

Code :

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

Range("A2").Value = myFinalString

Par contre, attention, car tu pioche ton initialisation de variable sur la cellule A2, donc je te déconseille de mettre ton résultat en A2, mets le dans une cellule qui n'est pas utilisée.
Car si tu relance ta macro une seconde fois, il va initialiser la variable myFinalString avec tes 1100 mots et va recommencer le procédé, donc tu vas te retrouver avec 2200 mots et ainsi de suite.

[nonodudu77]

Cela fonctionne!

Un grand merci pour cette réponse efficace et rapide

[Nako_lito]

Par contre, par soucis de périnité du code, tu devrais utiliser sheets(nomDeLaFeuilleOuSontLesDonnees).Range("A1") et pas juste Range("A1"), la différence se fera le jour ou tu auras plusieur feuille dans le classeur, il se peut qu'il se gourre de feuille et prenne pas les bonnes données. Ca t'évitera de chercher d'ou proviens l'erreur

[nonodudu77]

Merci du conseil, je vais modifier cela