Sub conv()
For Each c In Selection
c.Value = sansAccent(c)
Next c
End Sub
Function sansAccent(chaine)
codeA = "ÉÈÊËÔéèêëâàçùôûïî"
codeB = "EEEEOeeeeaacuouii"
temp = chaine
For i = 1 To Len(temp)
p = InStr(codeA, Mid(temp, i, 1))
If p > 0 Then Mid(temp, i, 1) = Mid(codeB, p, 1)
Next
sansAccent = temp
End Function
Je ne conaissais pas, mais j'ai l'impression que c'est les mêmes suggestions que celles qui sont faites en bas de page "Recherches associées à :"Pour compléter la section "outils de recherche de keywords", on peut mentionner "Roue magique" de Google, qui est assez rapide et vraiment pas mal.
Je l'utilise principalement pour le développement des thématiques pour mes rédacteurs, mais il est aussi assez bon pour la recherche de keywords purs en vue de trouver des NDD.
Pour eux qui ne savet pas encore comment on utilise "Roue magique" :
- Sur lapage de recherche normale de Google en bas de la colonne de gauche : "Plus d'outils"
- Puis Roue Magique.
A cause de GG Instant parfois ça bug un peu au niveau du rafraichissement, il faut donc appuyer sur le bouto "recherche"
Nous utilisons des cookies : essentiels pour faire fonctionner ce site et facultatifs pour améliorer votre expérience.