Discussion :

[isamur]

ça marche !

Enfin, presque... Seule la première lettre est mise en majuscule, et non la première lettre de chaque mot. Par exemple, on obtient Costa rica au lieu de Costa Rica. (alors qu'avec les touches maj F3, c'est correct).
Quand il y a trois mots, c'est encore pire: il ne se passe rien. Par exemple, COREE DU SUD reste en majuscules.
Il y a aussi le problème des accents (par exemple Senegal au lieu de Sénégal), mais j'avais déjà le même problème manuellement.

[Invité]

C'est normal parce que le code n'est pas prévu pour. Pour faire cela, il faudrait réaliser une boucle sur le chaîne résultante et mettre en majuscule chaque caractère après un caractère blanc.
En ce qui concerne les majuscules accentuées, aller dans les options de Word-Vérifications et cocher les majuscules accentuées.

Pour les majuscules en tête de chaque mot, il faut simplement ajouter l'instruction : .Range.Case = wdTitleWord

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    MotFormate = UCase(Mid(TableauValeurs2, 1, 1)) & LCase(Mid(TableauValeurs2, 2))
    With Selection2
         With .Find
             .ClearFormatting
             .Text = TableauValeurs2
             .MatchCase = True
             .Replacement.Text = MotFormate
             .ClearFormatting
             .Execute Replace:=wdReplaceOne, Forward:=True
        End With
        .Range.Case = wdTitleWord
    End With

[isamur]

Merci beaucoup !
Pour la majuscule sur le deuxième mot, c'est ok.
Par contre, toujours rien quand il y a trois mots: COREE DU SUD reste en majuscules. Pourquoi est-ce que cela bloque ?
Pour les accents, je ne parlais pas des majuscules, mais des minuscules: exemple: on obtient Senegal au lieu de Sénégal... pas très grave.

Une question stupide: pourquoi faut-il passer par un programme compliqué, avec plusieurs variables, plusieurs boucles, alors que la fonction "rechercher tout" de Word permet précisément de sélectionner tout ce qui se trouve entre deux signes $ ? Je suppose que ce n'était pas possible de récupérer les mots sélectionnés pour en faire ensuite ce qu'on veut... si vous pouvez m'éclairer...

Merci pour tout !

[Invité]

La solution est dans cette ligne :

Code :

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

1
2
 
          If NbCaracteres <= 1 And TableauDeValeurs(J) <> "" And TableauDeValeurs(J) <> Chr(13) Then

Une question stupide: pourquoi faut-il passer par un programme compliqué, avec plusieurs variables, plusieurs boucles, alors que la fonction "rechercher tout" de Word permet précisément de sélectionner tout ce qui se trouve entre deux signes $ ? Je suppose que ce n'était pas possible de récupérer les mots sélectionnés pour en faire ensuite ce qu'on veut... si vous pouvez m'éclairer...

C'est sans doute qu'un programme compliqué pallie souvent un manque de connaissances de base dans Word.

Je ne vais pas pouvoir vous aider plus.

Cordialement.

[isamur]

Désolée, mais votre réponse ne m'a pas convaincue : pourquoi ne pas utiliser les fonctions Word existantes ?

Au départ, ma demande était simple: passer de la fonction "Rechercher tout" à la fonction "passage majuscules/minuscules". Puisque la fonction "Rechercher tout" semblait poser problème, j'ai essayé ce matin avec "Rechercher". J'ai enregistré la macro en faisant les manipulations sur mon document Word. La macro marchait pour la première ligne. Il ne me restait plus qu'à ajouter une boucle (que j'ai trouvée sur ce forum), à enlever les lignes inutiles, et j'ai obtenu ce code de quelques lignes qui fonctionne parfaitement (il suffit de mettre le curseur au début du document):

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
Sub FormatNoms()
 
Do While Selection.Find.Execute = True
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "$*$"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindStop
        .MatchWildcards = True
    End With
    Selection.Range.Case = wdNextCase
    Selection.Range.Case = wdNextCase
Loop
 
End Sub

Désolée pour tout le temps que vous avez passé sur ce code. Au début, j'étais loin de me douter que ça prendrait de telles proportions ! Mais ça n'a pas été inutile puisque grâce à vous, j'ai découvert la fonction Debug Print et la fenêtre exécution de VBA (bien pratique effectivement).

Merci pour tout.
Cordialement.

[Rockveleur]

Désolée, mais votre réponse ne m'a pas convaincue : pourquoi ne pas utiliser les fonctions Word existantes ?

Au départ, ma demande était simple: passer de la fonction "Rechercher tout" à la fonction "passage majuscules/minuscules". Puisque la fonction "Rechercher tout" semblait poser problème, j'ai essayé ce matin avec "Rechercher". J'ai enregistré la macro en faisant les manipulations sur mon document Word. La macro marchait pour la première ligne. Il ne me restait plus qu'à ajouter une boucle (que j'ai trouvée sur ce forum), à enlever les lignes inutiles, et j'ai obtenu ce code de quelques lignes qui fonctionne parfaitement (il suffit de mettre le curseur au début du document):

RR ou VBA ?
comme dit sur un autre post, et comme j'ai pu l'expérimenter, la fonction Rechercher-Remplacer est BEAUCOUP plus rapide que tout autre code VBA-Word.
VBA peut se trouver lent voire interminable, il est donc intéressant et même prudent d'exploiter RR au maximum.

[Rockveleur]

Code :

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

1
2
3
4
5
6
Sub Macro2()
 
    End With
    Selection.Range.Case = wdNextCase
    Selection.Range.Case = wdNextCase
End Sub

il est prudent d'utiliser autre que NextCase :

' Selection.Range.Case = wdLowerCase ' = minuscules
' Selection.Range.Case = wdUpperCase ' = majuscules
' Selection.Range.Case = wdTitleWord ' = première lettre du mot en maj, le reste en min ???

' Selection.Range.Case = wdNextCase ' voit la casse et passe au suivant dans la boucle :
' min - 1ère lettre maj - tout en maj - min - ...
' au clavier on fait successivement maj + F3 (= shift + F3)

(et pour info : ' Selection.Range.Case = wdTitleSentence ' Première lettre de la ligne en maj.

cordialement