Serait-il possible de m'aider?
Je souhaite faire une macro qui annalyse les lettres (des initiales) qui se trouvent dans une cellule
J'ai besoin de faire la distinction entre par exemple 'BP' et 'bp', 'JR' et 'jr' ect.....
Merci d'avance à celle ou à celui qui pourra m'éclairer.
Tu ne précise pas exactement ce que tu souhaites. Tu veux savoir si les caractères sont en minuscule ou en majuscule?
VBA fait la différence entre minuscule et majuscule, si tu lui demande de comparer 'aa' et 'aA' il te dira que c'est différent.
Précise un peu ta demande, a moins que quelqu'un ai tout saisit.
Voici quelques détails sur ce que je voudrait faire.
Les employés de mon service reçoivent des dossiers a traiter.
Les dossiers sont encodé en XL et lorsqu'une personne prend un dossier en charge elle encode ses initiales en minuscule dans une cellule du fichier.
Lorque le dossier est traité elle met ses initiales en majuscule.
Je voudrais au moyen d'une macro savoir quels sont les dossiers traités ou pas en analysant la cellule ou se trouvent les initiales.
J'espère que ces explications complémentaires pourrons t'aider.
Merci
un petit truc tout simple, sachant que chaque caractère possède un code appelé code ASCII. Ce dernier est compris entre 65 et 90 pour les majuscules et entre 97 et 122 pour les minuscules
avec le petit programme suivant tu analyse les codes ASCII des deux lettres et les ajoute
si la somme est inférieure à 180, tes 2 lettres sont en minuscules et si elle est supérieure à 194 elles sont en majuscules
Je suis peut être complétement a coté de la plaque avec ma macro un peu simpliste mais bon je la donne quand meme. (Si les initiales sont dans la cellule A1)
Code:
Sub test_min_maj()
Application.Goto Sheets('feuil1').Range('A1')
If Cells(1, 1).Value = UCase(Cells(1, 1).Value) Then
MsgBox 'Le dossier a été traité'
Else
MsgBox 'Le dossier n'a pas été traité'
End If
End Sub
Merci HERVE,
C'est pas tout à fait ce que je voulais mais çà ma donné une idée.
que je vais creuser. Si les initiales sont en minuscules = dossier pas traité donc si j'utilise LCASE au lieu de UCASE je pourrai probablement savoir que le dossier n'est pas traité et de la copier les lignes ou il y a encore des minuscules dans une autre feuille pour faire un rapport?
Et bien fait j'avais demandé il y a quelque temps sur le forum, un code permettant de faire
Code:
sheets('feuil1').select
Range('a1').select
mais en une seul ligne.
Il me semble que c'est André qui m'avait donné ce code.
En fait comme tu dois maintenant t'en douter, il me sert a me placer dans cellule A1 de la feuille 1.
Il est vrai que je l'utilise a tour de bras, et peut etre pas toujours comme il faut, mais en général, comme on travail sur plusieurs feuille, c'est bien pratique.
J'espère avoir répondu correctement à ta question.