[déplacé VB6 -> VBA] condition multi-critères [Résolu]

Signaler
Messages postés
15
Date d'inscription
lundi 17 décembre 2007
Statut
Membre
Dernière intervention
25 mars 2010
-
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
Bonjour, j'ai besoin d'aide. J'aimerai ajouter un élément à ce code source: la colonne 5 se met automatiquement en majuscule, j'aimerai que ce soit aussi le cas pour la colonne 17 et 18. Comment faire?

Merci!

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub '<-- pour éviter que ça coince si on sélectionne plusieurs cellules
If Target.Column = 5 Then
Target.Value = StrConv(Target.Value, 1)
ElseIf Target.Column = 4 Then
Target.Value = StrConv(Target.Value, 3)
End If
End Sub

3 réponses

Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
35
salut,

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 0 Then
        Select Case Target.Column
            Case 5, 17, 18: Target.Value = StrConv(Target.Value, vbUpperCase)
            Case 4:         Target.Value = StrConv(Target.Value, vbProperCase)
        End Select
    End If
End Sub


PS : attentions aux thèmes !! tu es en VBA, pas en VB6 !
topic déplacé


[hr]
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
35
n'oublie pas de valider la réponse si elle te convient

++
Messages postés
15
Date d'inscription
lundi 17 décembre 2007
Statut
Membre
Dernière intervention
25 mars 2010

Merci! Et pour le code et pour la correction du thème. Je suis pas au point lol