Ci-dessous, nous examinerons un programme dans Excel VBA qui convertit le texte en cas approprié. Autrement dit, la première lettre de chaque mot en majuscule, et toutes les autres lettres en minuscules.

Situation:

Convert to Proper Case in Excel VBA

  1. Tout d’abord, nous déclarons deux objets Range. Nous appelons les objets Range RNG et la cellule.

Dim rng As Range, cell As Range

  1. Nous initialisons l’objet Range RNG avec la plage sélectionnée.

Set rng = Selection

  1. Nous voulons vérifier chaque cellule dans une plage sélectionnée au hasard (cette gamme peut être de toute taille). Dans Excel VBA, vous pouvez utiliser la boucle For Each suivante pour cela. Ajoutez les lignes de code suivantes:

For Each cell In rng

Next cell

Note: RNG et cellules sont choisies au hasard ici, vous pouvez utiliser tous les noms.

N’oubliez pas de se référer à ces noms dans le reste de votre code.

  1. Pour ignorer une cellule qui contient une formule, ajoutez la ligne de code suivante entre pour chacun et suivant (seulement si cell.HasFormula est faux, nous continuons).

If Not cell.HasFormula Then

End If

  1. Ensuite, nous voulons convertir chaque mot dans cette gamme de «cas bon.

Vous pouvez utiliser la fonction de feuille de calcul approprié pour cette tâche. Ajoutez la ligne de code suivant dans votre instruction if.

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

  1. Tester le programme.

Résultat:

Convert to Proper Case Result