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:
