VBA - condition chaine de caractère de type

Bonjour a tous,

Je souhaite mettre une condition dans VBA de type

IF la chaîne de caractère de la cellule est composé : d'une majuscule puis de caractères en minuscules puis de caractères en majuscule, THEN

Mon objectif est de pouvoir faire référence a une cellule comportant par exemple

Fabien DUPONT.

Je vous remercie.

Adevy.

Bonjour,

Et qu'elle est la finalité de la chose

Bonjour,

Sans connaître l'objectif, une piste à étudier :

Option Explicit
Public Sub test()
Dim x
    x = Split(ActiveCell)
    If UCase(Left(x(0))) = Left(x(0), 1) And UCase(Left(x(1), 1)) = Left(x(1), 1) Then
        MsgBox "ok"
    Else
        MsgBox "not ok"
    End If
End Sub

L'objectif a terme est que si une cellule contient un nom (de type Prénom NOM) alors la cellule d'a coté est copiée puis collée dans une autre cellule.

Merci beaucoup pour la réponse mais cela ne semble pas marcher : il me marque erreur, argument non facultatif :s

Adevy

Re,

Un petit ajustement :

Option Explicit
Public Sub test()
Dim x
    x = Split(ActiveCell)
    If UCase(Left(x(0), 1)) = Left(x(0), 1) And UCase(x(1)) = x(1) Then
        MsgBox "ok"
    Else
        MsgBox "not ok"
    End If
End Sub