Convertit le texte en casse appropriée, Excel VBA

Nous examinerons un programme dans Excel VBA qui convertit le texte en casse appropriée. Autrement dit, la première lettre de chaque mot en majuscule et toutes les autres lettres en minuscule.

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 au hasard (cette plage peut être de n’importe quelle 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: rng et 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 qui contient une formule, ajoutez la ligne de code suivante entre For Each et Next (seulement si cell.HasFormula est faux, nous continuons).

If Not cell.HasFormula Then
End If

5. Ensuite, nous voulons convertir chaque mot de cette plage en «cas approprié». Vous pouvez utiliser la fonction de feuille de calcul appropriée 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:

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x