[déplacé VB6 - VBA] condition multi-critèresRésolu

Question

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

PCPT · Accepted Answer

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]

idaho2duncan · Answer

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

PCPT · Answer

n'oublie pas de valider la réponse si elle te convient

++

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

3 réponses

Votre réponse

Discussions similaires