Ci-dessous, nous examinerons un programme en Excel VBA ce sépare les chaînes.
Situation:
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 fullname de type String, une variable appelée virgule de type Integer et une variable appelée i de type Integer.
Dim fullname As String, virgule 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 Smith, Mike la virgule est à la position 6 tandis que dans le cas de Williams, Janet la virgule est à la position 9.
2. Nous utilisons une boucle pour exécuter les opérations sur chaque nom saisi dans Excel. Tout d'abord, nous initialisons la variable fullname. Ensuite, nous utilisons la fonction Instr pour trouver la position de la virgule.
Pour i = 2 à 7
nom complet = Cells(i, 1).Valeur
virgule = InStr(nom complet, ",")
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(fullname, virgule + 2)
Cells(i, 3).Valeur = Gauche(nom complet, virgule - 1)
Mid(fullname, virgule + 2) signifie que nous voulons que la partie du fullname commence au caractère 'commaposition + 2' (c'est exactement le prénom).
Left(fullname, virgule - 1) signifie que nous voulons que la partie du fullname commence au début jusqu'au caractère 'commaposition-1' (c'est exactement le nom de famille).
4. N'oubliez pas de boucler la boucle.
Ensuite je
5. Ajoutez six noms séparés par une virgule et un espace à Range("A2:A7").
6. Testez le programme.
Résultat:
