Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Minuscule et Majuscule dans du code VBA

  • Initiateur de la discussion Initiateur de la discussion gerard55
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

gerard55

XLDnaute Occasionnel
Bonjour à tous,
J'ai à nouveau besoin de vos conseils.
J'ai le code ci-dessous. Je voudrais qu'il fonctionne soit avec un s en majuscule ou en minuscule. Je cherche qu'elle code je dois mettre. Deuxième question: le code ci dessous peut-il être simplifier pour que l'application soit plus rapide car j'ai vingt lettre comme celle ci-dessous c'est assez lent.
Range("S1").Select
If Selection.Value = 1 Then
Rows("319:336").Select
Selection.EntireRow.Hidden = False
Else
Rows("319:336").Select
Selection.EntireRow.Hidden = True
Range("s1").ClearContents
End If
Merci pour vos suggestions
a+
Gérard
 
Re : Minuscule et Majuscule dans du code VBA

Bonjour gerard55, le fil, le forum


Tu peux préciser ta question?


Pour info: en VBA, Ucase -> majuscule, Lcase -> minuscule

EDITION:

Une autre écriture pour masquer tes lignes
Code:
Sub a()
Rows("319:336").EntireRow.Hidden = (Range("S1") = 1)
End Sub
 
Dernière édition:
Re : Minuscule et Majuscule dans du code VBA



La fonction range se souci guère de la casse
Tu peux simplifier comme ceci

Code:
Range("S1").Select
Range("319:336").EntireRow.Hidden = Selection.Value = 1
If Selection.Value <> 1 Then Selection.Value.ClearContents
 
Re : Minuscule et Majuscule dans du code VBA

Merci Habitude pour ta proposition de code, je vais l'essayer pour voir si ça fonctionne plus rapidement.
Concernant la casse, je code précédent n'était pas le bon. Toutes mes excuses.
je joins un autre morceau de code. Dois-je écrire le code pour la lettre en minuscule ou en majuscule ou bien avec les fonction Ucase et Lcase, on peut faire plus simple
Select Case Target.Value
Case "A"
Range(Cells(Target.Row, 5), Cells(Target.Row, 7)).Interior.ColorIndex = xlNone
Range(Cells(Target.Row, 4), Cells(Target.Row, 7)).Interior.Pattern = xlSolid
Range(Cells(Target.Row, 4), Cells(Target.Row, 4)).Interior.ColorIndex = 33
Range(Cells(Target.Row, 4), Cells(Target.Row, 4)).ClearContents
Case "a"
Range(Cells(Target.Row, 5), Cells(Target.Row, 7)).Interior.ColorIndex = xlNone
Range(Cells(Target.Row, 4), Cells(Target.Row, 7)).Interior.Pattern = xlSolid
Range(Cells(Target.Row, 4), Cells(Target.Row, 4)).Interior.ColorIndex = 33
Range(Cells(Target.Row, 4), Cells(Target.Row, 4)).ClearContents
a+
Gérard
 
Re : Minuscule et Majuscule dans du code VBA

Bonsoir à tous,

RE: gerard55,

Tu peux simplement écrire comme ceci :

Code:
Select Case Target.Value
  Case "A", "a"
  Range(Cells(Target.Row, 5), Cells(Target.Row, 7)).Interior.ColorIndex = xlNone
  Range(Cells(Target.Row, 4), Cells(Target.Row, 7)).Interior.Pattern = xlSolid
  Range(Cells(Target.Row, 4), Cells(Target.Row, 4)).Interior.ColorIndex = 33
  Range(Cells(Target.Row, 4), Cells(Target.Row, 4)).ClearContents
End Select

Cordialement.
 
Re : Minuscule et Majuscule dans du code VBA

Merci Papou-net
a+
Gérard

De rien, Gérard.

Autre écriture possible (à vérifier):

Code:
Select Case Ucase(Target.Value)
  Case "A"
  Range(Cells(Target.Row, 5), Cells(Target.Row, 7)).Interior.ColorIndex = xlNone
  Range(Cells(Target.Row, 4), Cells(Target.Row, 7)).Interior.Pattern = xlSolid
  Range(Cells(Target.Row, 4), Cells(Target.Row, 4)).Interior.ColorIndex = 33
  Range(Cells(Target.Row, 4), Cells(Target.Row, 4)).ClearContents
  Case Else
  ...
  ...
End Select

Cordialement.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…