jcommmence a cerné quelques truc en vba mais je suis encore faible
  mé jvoudrais crée une macro sous word qui prend en parametre un mot et met en gras toutes les occurences de ce mot dans un texte
jespere que g été clair !!    
thxx !!

[jfdsdjhfuetppo]--Message édité par Le_prodige--[/jfdsdjhfuetppo]

VBA Word ?
VBA Excel ?
VBA Access ?

 
vba word

Dans ce genre de cas, commence par réfléchir à la méthode que tu utiliserais simplement via l'interface Word.
 
Ensuite tu démarres une nouvelle macro et tu effectues toutes les opérations nécessaires pour arriver au résultat.
 
Il ne te reste qu'à arrêter l'enregistrement et aller modifier la macro pour voir toutes les instructions qui te seront utiles pour programmer toi-même ta macro VBA.
 
En l'occurence je pense qu'il te faudra passer par l'outil de recherche.
 
 
a+
 
nb: désolé, j'ai pas trop le temps d'être + précis pour le moment

Je pense pas que je puisse le faire par enregistrement ! il faudrait que jecrive le code directement !
mais voula le problem !:cry:  
comment mettre un popup qui nous demande une valeur(ou un mot)et qui puisse mettre en gras toutes ces valeurs (ou mots) dans un doc word !??

Essaye ça.
Fait avec enregistrer macro  
Sub Macro()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Bold = True
    With Selection.Find
        .Text = "lemotsélectionné"
        .Replacement.Text = "lemotsélectionné"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

brubru99 a écrit a écrit : Essaye ça. Fait avec enregistrer macro   Sub Macro()     Selection.Find.ClearFormatting     Selection.Find.Replacement.ClearFormatting     Selection.Find.Replacement.Font.Bold = True     With Selection.Find         .Text = "lemotsélectionné"         .Replacement.Text = "lemotsélectionné"         .Forward = True         .Wrap = wdFindContinue         .Format = True         .MatchCase = False         .MatchWholeWord = True         .MatchWildcards = False         .MatchSoundsLike = False         .MatchAllWordForms = False     End With     Selection.Find.Execute Replace:=wdReplaceAll End Sub

 
ce prog marche et c un grand pas ! merci    
Mais cque jvoudrais c'est que le mot nous soit demandé par une fenetre.

Sub Macro()
   Dim s as String
 
   s = InputBox("Votre mot :" )
 
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   Selection.Find.Replacement.Font.Bold = True
   With Selection.Find
       .Text = s
       .Replacement.Text = s
       .Forward = True
       .Wrap = wdFindContinue
       .Format = True
       .MatchCase = False
       .MatchWholeWord = True
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Trop fort !  
THX