Nous examinerons un programme dans Excel VBA qui sépare les chaînes.

Placez un bouton de commande sur votre feuille de calcul et ajoutez les lignes de code suivantes:

1. Tout d’abord, nous déclarons une variable appelée nom complet de type String, une variable appelée commando de type Integer et une variable appelée i de type Integer.

Dim nomscomplet As String, commando As Integer, i As Integer

Le problème auquel nous sommes confrontés est que nous devons indiquer à Excel VBA où nous voulons séparer la chaîne. Dans le cas de Kache, Armand la virgule est en position 6 tandis que dans le cas de Akoa, Nathan la virgule est en position 5.

2. Nous utilisons une boucle pour exécuter les opérations sur chaque nom entré dans Excel. Tout d’abord, nous initialisons la variable fnomscomplet. Ensuite, nous utilisons la fonction Instr pour trouver la position de la virgule.

For i = 2 To 7
   nomscomplet = Cells(i, 1).Value
    commando = InStr(nomscomplet, ",")

3. Enfin, nous voulons écrire la partie après la virgule dans la colonne B et la partie devant la virgule dans la colonne C. Vous pouvez y parvenir en ajoutant les lignes:

Cells(i, 2).Value = Mid(nomscomplet, commando + 2)
Cells(i, 3).Value = Left(nomscomplet, commado - 1)
Mid (nomscomplet, commando + 2) signifie que nous voulons que la partie de nomscomplet commence au caractère
'commando + 2' (c'est exactement le prénom).

Gauche (nomscomplet, commando – 1) signifie que nous voulons que la partie du nom complet commence au début jusqu’au caractère ‘commando – 1’ (c’est exactement le nom de famille).

4. N’oubliez pas de fermer la boucle.

 Next i

5. Ajoutez six noms séparés par une virgule et un espace à Range (“A2: A6”).

6. Testez le programme.