L'indice n'appartient pas à la selection

Résolu

Thebibi Messages postés 15 Date d'inscription Statut Membre Dernière intervention -
Thebibi Messages postés 15 Date d'inscription Statut Membre Dernière intervention - 21 déc. 2018 à 08:39

Bonjour,

Ma macro me marque le message d'erreur suivant :

Erreur d'exécution "9" :
L'indice n'appartient pas à la sélection

Je cherche mais je ne trouve pas pourquoi :/

ma macro sert a séparer le prénom et nom dans une cellule unique.

Les conditions sont simples, si il y a un espace on les séparent en deux et d'un coter le prénom et de l'autre le nom

Voici le code :

Sub Decompose()
 Dim Tourne As Long
 Dim FinLigne As Long
 Dim Phrase As String
 Dim Nom As String
 Dim Prenom As String
 
 FinLigne = Range("A10").End(xlUp).Row
 For Tourne = 2 To FinLigne
    Phrase = Cells(A & Tourne)
    Nom = Split(Phrase, " ")(0)
        Prenom = Split(Phrase, " ")(1)
        Range("B" & Tourne) = Nom
        Range("C" & Tourne) = Prenom
 Next Tourne
End Sub

Et la ligne qui apparemment pose problème avec le débogage est celle ci:

Nom = Split(Phrase, " ")(0)

Merci de votre aide ;)

Afficher la suite

A voir également:

Indice n'appartient pas à la sélection vba
Indice téléphonique - Guide
A qui appartient ce numéro - Guide
A qui appartient ce 06 gratuit - Forum Mobile
Google n'a pas pu vérifier que ce compte vous appartient. - Forum Gmail
A qui appartient ce numéro suisse ✓ - Forum Mail

2 réponses

Réponse 1 / 2

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

Bonjour,

regarde comme cela

Sub Decompose()
Dim Tourne As Long
Dim FinLigne As Long
Dim Phrase As String
FinLigne = Range("A100").End(xlUp).Row
For Tourne = 2 To FinLigne
Phrase = Cells(Tourne, "A")
I = InStr(Phrase, " ")
If I = 0 Then
Cells(Tourne, "B") = Cells(Tourne, "A")
Else
Cells(Tourne, "A") = Left(Phrase, I - 1)
Cells(Tourne, "B") = Mid(Phrase, I + 1)
End If
Next Tourne
End Sub

Thebibi Messages postés 15 Date d'inscription Statut Membre Dernière intervention

Bonjour Mike,

Merci pour ta réponse :)

Réponse 2 / 2

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

Sub Decompose()
    Dim Tourne As Long
    Dim derlig As Long
    Dim TNP

    derlig = Range("A" & Rows.Count).End(xlUp).Row
    For Tourne = 2 To derlig
        TNP = Split(Range("A" & Tourne), " ")
        Range("B" & Tourne) = TNP(0)
        Range("C" & Tourne) = TNP(1)
    Next Tourne
End Sub

Thebibi Messages postés 15 Date d'inscription Statut Membre Dernière intervention

Bonjour F894009,

Merci pour ta réponse cela fonctionne parfaitement, et en plus encore plus optimisé !

Bonne journée.

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

erreur d'execution 9, l'indice n'appartient pas à la sélection

l'indice n'appartient pas à la selection

variable workbook : l'indice n'appartient pas à la sélection

Erreur '9' l'indice n'appartient pas à la sélection

Votre réponse

Discussions similaires