Discussion :

[drakkar_agfa]

Bonjour à tous!

Encore un fois, je me tourne vers vous, mais soyez heureux, vous me faites apprendre et avancer beaucoup!

Voila ma question : Je convertis un fichier texte en fichier excel et je place chaque champ dans une colonne. Ensuite, toujours en VBA, il a plein de validations de faites.
Mais une de ces validations doit être de vérifier si des caractères sont minuscules, car il ne doit pas en avoir.

Vite comme ça, je proposerais une recherche dans tout mon classeur pour vérifier si j'ai un caractère entre le code 97 et 122 (http://www.asciitable.com/ASCII). C'est cette section qui correspond aux caractères minuscules. (65 à 90 pour les majuscules).

Mais je me demandais s'il avait une façon plus simple du genre RechercheMinuscule ou quelque chose comme ça.

Merci de vos idées!!!

[decondelite]

Regarde l'aide en ligne associée aux fonctions UCase et LCase: c'est particulièrement adapté à ton cas et très simple d'utilisation.

Pour tout le traitement de base des chaînes de caractères, tu as tout ce qu'il faut dans la bibliothèque de base de VBA. Va voir la rubrique "index/listes" -> "Résumé des mots clés de manipulation de chaînes" tu as tout ce qu'il faut pour 90% des cas. Les 10% restants, c'est l'opérateur Like et les expressions régulières.

[patbou]

bonjour,

S 'il ne doit pasy avoir de minuscule alors convertit te texte en majuscule
FONCTION Ucase(string)

[Godzestla]

Salut Drackra_Agfa,

tu compares Chaine avec UCASE(Chaine).

S'il y a une différence, alors il ya avit des minuscules.
Cordialement.

G@dz

[drakkar_agfa]

ReBoujour et merci de la rapidité!

Je ne m'attendais pas à avoir autant de réponses rapidement!

Mais, je ne veux pas convertir en majuscule, je veux qu'il me le dise, alors Ucase ne fonctionne pas pour moi.

Dans la liste que decondelite m'a donné (String Manipulation Keyword Summary) je ne trouve pas vraiment une fonction qui me donne si j'ai des minuscule.

Je peux utiliser la technique à Godzestla mais je vais devoir utiliser un For each pour pouvoir essayer avec toutes les cellules de mon classeur (environ 20 colonnes et 2000 lignes, avec 5 feuilles)

Ça peut être très long mais s'il n'a pas d'autre solution.

Mais je vais regarder si un boucle de 97 à 122 (pour chaque code d'une minuscule) avec un find. Ce qui est pratique, c'est que je n'ai pas à faite toutes les cellules, je peux lui donner comme range ma feuille. Sauf que je dois tester si la boucle de 26 fois revient plus long que chaque cellule une fois...

[wilfried_42]

bonjour

avec une MFC (Mise en Forme Conditionnelle) : Menu Format
se placer en A1
selectionner toutes les cellules
dans la MFC choisir la Formule est
Mettre la formule : =A1<>Majuscule(A1)
mettre un format (fond rouge)
Valider

Tout ce qui aura un fond rouge contiendra des minuscules

[drakkar_agfa]

Bonjour Wilfried,

Cette façon m'a l'air efficace mais je ne comprends pas comment l'utiliser...
Et, est-ce posssible de la transposer en code VBA?

Merci beaucoup.

[wilfried_42]

re:

fonction personalisée

Code :

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

1
2
3
4
Function Minuscule(machaine as string) as boolean
      minuscule = true
      if ucase(machaine) = machaine then minuscule = true
end function

utilisation :

Code :

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

if minuscule(montexte) = true then msgbox "Il y a des minuscules"

[drakkar_agfa]

Merci, mais ce bout je le connais,

Mais comment intégrer efficacement toutes les cellules de toutes les feuilles?

[ucfoutu]

Bonsoir,

je n'interviens ici que sur un point :
Eviter de lancer une boucle sur les cellules si elle n'est pas utile (une telle boucle est gourmande).
On en a la possibilité : il suffit pour celà de lire, avant importation, le fichier texte dans son ensemble (on va dire dans une variable toto) et de comparer toto et Ucase(toto) ===>> résultat dans une variable booléenne titi.
On ne lance la boucle dans Excel (donc après importation) que si titi = false.
(ce n'était qu'en passant et indépendamment du reste).

[drakkar_agfa]

Merci! Ceci me permettra de faire exactement ce que je veux!

Et je termine cette discussion en ouvrant une nouvelle, comment affecter tout un fichier dans une variable : http://www.developpez.net/forums/d64...e/#post3810924