Trouver la 1ere lettre majuscule dans une chaine de caractères

**ptitrault** · 02/10/2009, 14h35

Bonjour a tous.

J'ai une colonne Excel qui contient des noms de fonctions et celles ci sont toutes construites sur le modèle suivant : verbe d'action + Description

Par exemple : getData1, searchData1

Je souhaite regrouper les fonctions listée par catégorie (selon le verbe d'action) mais pour cela il faut que je puisse extraire le verbe d'action de la chaine. C'est à dire qu'il faut extraire la chaine de caractère à gauche de la 1ere lettre majuscule.

Le problème c'est que je ne sais pas comment on peut savoir si une lettre est en majuscule ou non ?

A moins de lister toute les lettres dans un tableau et de les comparer une à une ?

Si quelqu'un à une autre idée ?

**jfontaine** · 02/10/2009, 14h46

Bonjour,

Tu peux tester caractere par caractere si le code ascii est compris entre 65 et 90 (cette fourchette bornant les 26 lettres en majuscule)

**edelweisseric** · 02/10/2009, 14h55

Bonjour à tous
Bonjour ptitrault, jfontaine

Je ne sais pas si j'ai bien compris, mais je ferais avec :

Code :

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

Set c = .Find("get", LookIn:=xlValues, Lookat:=xlPart)

Eric

**jfontaine** · 02/10/2009, 15h05

Une autre solution avec Like

Code :

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

1
2
3
4
5
6
7
8
 
Dim i as Integer
 
For i=1 to len(Range("A2").value)
 
     if mid(range("A2").value,i,1) like "[A-Z]" then msgbox "Position " & i
 
next i

**ptitrault** · 02/10/2009, 15h15

Bien vu. ca marche nickel.

merci

**ptitrault** · 02/10/2009, 15h18

J'ai utilisé la solution de jFontaine

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
 
Public Function extractUpperCasePart(strString As String) As String
 
    Dim strCharcater    As String
 
    '*** On parcours la chaine de caractere ***
    For intCpt = 1 To Len(strString)
 
        strCharcater = Asc(Mid(strString, intCpt, 1))
 
        If strCharcater > 65 And strCharcatere < 90 Then
            '*** on extrait la partie de gauche ***
            extractUpperCasePart = Left(strString, intCpt - 1)
        End If
    Next
 
End Function

merci de votre aide a tous.

**ucfoutu** · 02/10/2009, 15h32

Bonjour,

Méfiance avec l'utilisation des codes ascii (quid de certaines lettres, telles des É ?)
Je dirais qu'une lettre toto est en majuscules si

Code :

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

Ucase(toto) = toto

et que

- Lcase(toto) est compris entre a et z (fonction Like) ou que Lcase(toto) fait partie (instr) d'une chaîne de caractères composée de toutes les voyelles accentuées)

**jfontaine** · 02/10/2009, 15h40

Petite précision A=65 et Z=90 ne pas oublier de les inclures dans le bornage

**-={-_-}=-** · 02/10/2009, 23h00

Envoyé par jfontaine

Une autre solution avec Like

Code :

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

1
2
3
4
5
6
7
8
Dim i as Integer

For i=1 to len(Range("A2").value)

     if mid(range("A2").value,i,1) like "[A-Z]" then msgbox "Position " & i

next i

"[A-Z]" = expression régulière.

Si c'est le cas tu viens de m'apprendre un truc de ouf.
Je sais qu'il existe l'objet regexp sous vba
mais je pensais pas que tu pouvais ecrire comme une recherche avec reg exp apres like

**Didier Gonard** · 04/10/2009, 12h48

Bonjour,

mais je pensais pas que tu pouvais ecrire comme une recherche avec reg exp apres like

voir les remarques sur l'argument Pattern de l'opérateur LIke dans l'aide vba, il y en a une tartine plein de possibilités

extrait :

Caractère(s) dans pattern Correspondance dans l'argument string
? Tout caractère unique.
* Aucun ou plusieurs caractères.
# Tout chiffre unique (de 0 à 9).
[charlist] Tout caractère unique compris dans l'argument charlist.
[!charlist] Tout caractère unique non compris dans l'argument charlist.

cordialement,

Didier