Discussion :

[thirdeye]

Bonjour,

Je souhaiterais séparer le contenu d'une cellule en 2.

Je m'explique :

J'ai par exemple SARL Winnie en A1,

Je voulais savoir s'il était possible de diviser le contenu de la cellule,
=>c-a-d garder "winnie" en "A1 et avoir en A2 "SARL.

Je pense qu'une macro serait d'actualité.

Merci de me dire la faisabilité du projet.

[mercatog]

Une méthode générale n'est pas disponible
Comment on saura quoi mettre dans la première partie et dans la deuxième
S'il y a un (des) critère(s) de séparation du contenu de la cellule

[thirdeye]

Une méthode générale n'est pas disponible
Comment on saura quoi mettre dans la première partie et dans la deuxième
S'il y a un (des) critère(s) de séparation du contenu de la cellule

en fait j'ai pas tout dis, désolée.

Je vais mieux m'expliquer.

J'ai un fichier avec 40 000 entreprises.

Dans la cellule A1 figure leur nom et la forme de leur société (SARL, SAS, SASU, EURL,...)=>toujours écris de la même manière

Détail supplémentaires :

Le nom de l'entreprise peut contenir un ou plusieurs mots (séparés)
exemple : SARL TRANSPORT RAPIDE DE VILLE.

Ce que je veux donc, c'est isolé la forme juridique du nom de l'entreprise.

Je pensais donc à une macro qui dirait :
- dans la colonne A => je recherche tous les "SARL"
- Je les copie dans B
- je les supprime de A

et je ferais ca pour toutes les formes de sociétés.

Je suis plus clair?
__________________
"Un problème sans solution est un problème mal posé."

[mercatog]

Essaies ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim LastLig As Long, i As Long
Dim N As Integer
Dim TypSte As String, BdSte As String
 
Application.ScreenUpdating = False
BdSte = "SARL_SASU_EURL"        'Mettre tous les type de sociétés séparés par _
With Sheets("Feuil2")           'Adapter le nom de la feuille
    LastLig = .Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To LastLig
        N = InStr(Trim(.Range("A" & i).Value), " ")
        If N > 0 Then
            TypSte = Left(.Range("A" & i).Value, N - 1)
            If InStr(BdSte, TypSte) > 0 Then
                .Range("B" & i).Value = TypSte
                .Range("A" & i).Value = Mid(.Range("A" & i).Value, N + 1)
            End If
        End If
    Next i
End With

[thirdeye]

je joint un fichier exemple au cas ou.

j'essai ce qui m'est proposé

merci pr les reponses

[mercatog]

Au lieu qu'à chaque fois ajouter des précisions, il fallait faire un effort pou expliquer le sujet.
Bon pour ton fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Dim LastLig As Long, i As Long
Dim N As Integer, M As Integer
Dim TypSte As String, BdSte As String
 
Application.ScreenUpdating = False
BdSte = " SARL _ SASU _ EURL _ SA _ M _ MME _ MLLE "        'Mettre tous les type de sociétés séparés par " _ " espace underscore expace
With Sheets("Feuil1")                                       'Adapter le nom de la feuille
    LastLig = .Cells(Rows.Count, 1).End(xlUp).Row
    For i = 3 To LastLig
        N = InStr(Trim(.Range("A" & i).Value), " ")
        M = InStrRev(Trim(.Range("A" & i).Value), " ")
        If N > 0 Then
            TypSte = Left(.Range("A" & i).Value, N - 1)
            If InStr(BdSte, TypSte) > 0 Then
                .Range("B" & i).Value = TypSte
                .Range("A" & i).Value = Mid(.Range("A" & i).Value, N + 1)
            Else
                If M > 0 Then
                    TypSte = Mid(.Range("A" & i).Value, M + 1)
                    If InStr(BdSte, TypSte) > 0 Then
                        .Range("B" & i).Value = TypSte
                        .Range("A" & i).Value = Left(.Range("A" & i).Value, M - 1)
                    End If
                End If
            End If
        End If
    Next i
End With

[JPierreM]

Bonjour,

On peut utiliser l'espace comme délimiteur, pour cela on peut le faire sans macro
Dans la barre de Menus, Données, Convertir.. et choisir l'espace comme délimiteur.

Pour SARL Winnie pas de problème on obtient SARL et Winnie dans 2 cases
Par contre pour S A R L Winnie il y aura problème
Même chose si la chaine à décomposer est Socièté Copérative Ouvrière Winnie
Pas toujours facile de décomposer une chaine, plus de précisions seraient bien venues

JP