Discussion :

[WhiteWidow]

Bonjour,


Je n'ai aucune connaissance en macro et très peu en programmation.
J'ai touché au php et l'html il y a 10 ans sans vraiment être
un petit génie.

Aujourd'hui j'aimerai pour Adwords de Google générer des listes automatiques
de mots clés sans me prendre la tête à les saisir à la main.

Il existe déjà des script/générateur/logiciel pour ce type de boulot,
mais j'ai besoin de quelque chose de plus adapté a mes besoins,
et à mes envies.



Ce dont j'ai besoin:

Dans ma colonne A, mon texte avec des variables ex: *Modele* et *Marque*
dans un texte comme "+velo +vtt +*Modele* +*Pas cher*

Je souhaite une macro qui lorsque je lance change tout les *Modele* par

- Soit une cellule désigné, exemple cellule H5
- Soit une fenêtre qui demande par quoi remplacer la variable (Inputbox)


Je devrais faire ça pour chaque variable (au nombre 7 à 10),
et donc si la solution est par Inputbox je désire pouvoir
associer toutes les variables en même temps



Alors je sais que ce n'est pas très compliqué de faire ce genre de macro
mais j'ai cherché, essayé différente combinaison, j'ai trouvé comment
faire pour remplacer un texte par un autre les 2 en Inputbox:

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 Remplacement_PrefixeMin()
 
Dim feuil As Worksheet
Dim Mot As Variant
Dim Replace As Variant
 
Mot = InputBox("Quel mot recherchez-vous ?", Title:="Recherche un mot")
    Replace = InputBox("Par quel mot voulez vous remplacer ?", Title:="Remplacer le mot trouver")
    If Mot = "" Then Exit Sub
 
    For Each feuil In ThisWorkbook.Worksheets
        feuil.Cells.Replace What:=Mot, Replacement:=Replace
    Next
End Sub

le seul problème c'est que ca revient à faire CTRL + H et donc la macro
me sert à pas grand chose pour ne pas dire rien car le but étant d'automatiser
un maximum cette action car je risque de la renouveler sur des centaines voir
des milliers de modèle


Je vous suis d'avance reconnaissant pour ce bout de code qui va me changer/sauver la vie


Cordialement,
Grég

[Invité]

dans ton classeur ajoute une feuille (ModeleMarque) à la fin de ton classeur qui contiendra en colonne [A] le mot à remplacer et en [B] le mot de substitution.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Myreplace()
Dim RangeReplace As Range
Dim L As Long
Dim S As Long
Set RangeReplace = Worksheets("ModeleMarque").UsedRange
For L = 2 To RangeReplace.Rows.Count
    For S = 1 To Worksheets.Count - 1
       Worksheets(S).Cells.replace What:= RangeReplace(L, 1) , Replacement:= RangeReplace(L, 2) 
    Next
Next
End Sub

[WhiteWidow]

Bonjour,


Merci de votre réponse, c'est très aimable

Concernant les indications, je pense les avoir suivi à la lettre

En voici la capture d'écran que j'ai fais:



A savoir que sur les 2 autres feuilles de mon classeur
j'ai du texte dans la 1ere colonne avec les mots *Modele* et *Marque*

J’exécute la Macro si gentillement donné, mais aucune modification
n'a lieu sur les autre pages.

Pas de message d'erreur hormis celui sur la sécurité des macros que j'ai bien entendu désactivé.


Merci de votre patience,
en vous souhaitant un Joyeux Noël!