/ / Convertir en cas approprié dans Excel VBA

Convertir en cas approprié dans Excel VBA

Ci-dessous, nous examinerons un programme en Excel VBA cette convertit le texte en casse appropriée. C'est-à-dire, la première lettre de chaque mot en majuscule et toutes les autres lettres en minuscule.

Situation:

Convertir en cas approprié dans Excel VBA

1. Tout d'abord, nous déclarons deux objets Range. Nous appelons les objets Range rng et cell.

Dim rng As Range, cell As Range

2. Nous initialisons l'objet Range rng avec la plage sélectionnée.

Set rng = Selection

3. Nous voulons vérifier chaque cellule dans une plage sélectionnée de manière aléatoire (cette plage peut être de toute taille). Dans Excel VBA, vous pouvez utiliser la boucle For Each Next pour cela. Ajoutez les lignes de code suivantes:

For Each cell In rng

Next cell

Remarque: le rng et la cellule sont choisis au hasard ici, vous pouvez utiliser n'importe quel nom. N'oubliez pas de faire référence à ces noms dans le reste de votre code.

4. Pour ignorer une cellule contenant une formule, ajoutez la ligne de code suivante entre For Each et Next (uniquement si cell.HasFormula est défini sur false, nous continuons).

If Not cell.HasFormula Then

End If

5. Ensuite, nous voulons convertir chaque mot de cette plage en "casse appropriée". Vous pouvez utiliser la fonction de feuille de calcul Propre pour cette tâche. Ajoutez la ligne de code suivante dans votre instruction if.

cell.Value = WorksheetFunction.Proper(cell.Value)

6. Testez le programme.

Résultat:

Convertir en résultat de cas correct

Lisez aussi: