Discussion :

[Kestion100]

Bonjour,
Est-il possible de renvoyer la position de la première minuscule d'une cellule?

NOM COMPOSE Prénom

Je cherche à scinder une colonne en séparant NOM et Prénom mais il y a des noms composés dans la colonne, je pense donc isoler la position de la première minuscule, toujours deuxième lettre du prénom, avec

Code :

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

TROUVE

et renvoyer la chaîne de caractères qui suit (en n'oubliant pas"-1")...) avec

Code :

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

STXT

.

Bonne idée?

[Invité]

Bonjour,

Une solution possible avec cette fonction. L'idée est de tester le code Ascii de chaque caractère entre 97 et 122 (codes des minuscules).

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
 
Function ChercherLePrenom(ByVal ChaineATraiter As String) As String
 
Dim I As Integer
Dim J As Integer
 
    Application.Volatile
 
    ChercherLePrenom = ""
    For I = 1 To Len(ChaineATraiter)
        For J = 97 To 122
            If Mid(ChaineATraiter, I, 1) = Chr(J) And I > 1 Then
               ChercherLePrenom = Mid(ChaineATraiter, I - 1)
               Exit Function
            End If
        Next J
    Next I
 
End Function

Cordialement.

[Kestion100]

Je rentre la fonction dans un module?

Comment j'indique la colonne concernée (A) en l’occurrence?

[Invité]

Je rentre la fonction dans un module?

Oui

Comment j'indique la colonne concernée (A) en l’occurrence?

La fonction s'utilise comme toutes les autres fonctions Excel. Il suffit de lui dire quelle est la donnée à traiter.

Exemple si le traitement est une boucle For each Next

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub Traitement()
 
Dim Cellule As Range
Dim AireATraiter As Range
 
    Set AireATraiter = ActiveSheet.Range("A1:A100")
    For Each Cellule In AireATraiter
        Cellule.Offset(0, 1) = ChercherLePrenom(Cellule)
    Next Cellule
    Set AireATraiter = Nothing
 
End Sub

Cordialement.

[Kestion100]

Génial!!!!!

En rentrant

Code :

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

=ChercherLePrenom(A2)

dans la cellule

[Kestion100]

Et pour renvoyer la chaîne de caractères antérieurs, pour renvoyer le nom composé, j'adapte entre 65 et 90 mais le code me renvoie le nom et le prénom:

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
Function ChercherLeNOM(ByVal ChaineATraiter As String) As String
 
Dim I As Integer
Dim J As Integer
 
    Application.Volatile
 
    ChercherLeNOM = ""
    For I = 1 To Len(ChaineATraiter)
        For J = 65 To 90
            If Mid(ChaineATraiter, I, 1) = Chr(J) And I > 1 Then
               ChercherLeNOM = Mid(ChaineATraiter, I - 1)
               Exit Function
            End If
        Next J
    Next I
 
End Function

J'ai raté un pas

[Kestion100]

Il me faudrait trouver la dernière majuscule - 2 et prendre le texte à gauche mais j'avoue ne pas assez bien saisir le code pour adapter

[Invité]

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
29
30
31
32
33
34
35
 
Function ChercherLeNom(ByVal ChaineATraiter As String) As String
 
Dim I As Integer
Dim J As Integer
 
    Application.Volatile
 
    ChercherLeNom = ""
    For I = 1 To Len(ChaineATraiter)
        For J = 97 To 122
            If Mid(ChaineATraiter, I, 1) = Chr(J) And I > 1 Then
               ChercherLeNom = Trim(Mid(ChaineATraiter, 1, I - 2))
               Exit Function
            End If
        Next J
    Next I
 
End Function
 
 
Sub Traitement()
 
Dim Cellule As Range
Dim AireATraiter As Range
 
    Set AireATraiter = ActiveSheet.Range("A1:A100")
    For Each Cellule In AireATraiter
        Cellule.Offset(0, 1) = ChercherLeNom(Cellule)
        Cellule.Offset(0, 2) = ChercherLePrenom(Cellule)
 
    Next Cellule
    Set AireATraiter = Nothing
 
End Sub

Cordialement.

[Menhir]

L'idée est de tester le code Ascii de chaque caractère entre 97 et 122 (codes des minuscules).

Les minuscules pouvant être accentuées, je conseillerai d'aller jusqu'à 164 (en espérant qu'il n'y ait pas de prénoms turcs, vietnamiens ou autres langues utilisant l'alphabet latin avec des accentuations inhabituelles de voyelles, voir même de consonnes).

[Invité]

Bien vu.

Cordialement.

[Kestion100]

Bien vu pour les accents, dans ce cas la il n'y en a pas, pareil pour les noms en caractères non latin.


MERCI

[Kestion100]

Juste pour ne pas mourir idiot, tu peux en dire plus sur

Code :

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

Mid

et

Code :

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

Trim

?
La logique du code?

Il cherche un caractère à un endroit? c'est bien ça?

[Invité]

Code :

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

Mid

et

Code :

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

Trim

?
La logique du code?

Mid permet d'isoler une partie de la chaîne de caractères.

Trim élimine les caractères blancs avant et après la chaîne de caractères.

Pour en savoir plus, utilisez l'aide VBA. Touche ? dans le menu de l'éditeur VBA.

Cordialement.