Bonjour à tous
La proc suivante lambine un peu, du fait qu'elle passe tout en majuscule
avant de passer à la moulinette du select case.
Serait-il possible de lui mettre un peu de vitamine?
Si je bloque le screenupdating, c'est pire, ça scintille pire qu'à Noël :-[
merci pour les idées.
@+
J@@
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub
If IsNumeric(Target) = False Then Target.Value = UCase(Target.Value)
Select Case Left(Target.Value, 2)
Case "SP"
Range("F" & Target.Row).Value = "M"
End Select
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub
Application.EnableEvents = false ' Ajouter
If IsNumeric(Target) = False Then Target.Value = UCase(Target.Value) Select Case Left(Target.Value, 2) Case "SP" Range("F" & Target.Row).Value = "M" End Select Application.EnableEvents = True ' Ajouter End Sub
"J@@" a écrit dans le message de news: Bonjour à tous La proc suivante lambine un peu, du fait qu'elle passe tout en majuscule avant de passer à la moulinette du select case. Serait-il possible de lui mettre un peu de vitamine?
Si je bloque le screenupdating, c'est pire, ça scintille pire qu'à Noël :-[ merci pour les idées. @+ J@@
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub If IsNumeric(Target) = False Then Target.Value = UCase(Target.Value) Select Case Left(Target.Value, 2) Case "SP" Range("F" & Target.Row).Value = "M" End Select End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub
Application.EnableEvents = false ' Ajouter
If IsNumeric(Target) = False Then Target.Value = UCase(Target.Value)
Select Case Left(Target.Value, 2)
Case "SP"
Range("F" & Target.Row).Value = "M"
End Select
Application.EnableEvents = True ' Ajouter
End Sub
"J@@" <allezvoir@yeur.fr> a écrit dans le message de news: ekvYmGiZIHA.1204@TK2MSFTNGP03.phx.gbl...
Bonjour à tous
La proc suivante lambine un peu, du fait qu'elle passe tout en majuscule
avant de passer à la moulinette du select case.
Serait-il possible de lui mettre un peu de vitamine?
Si je bloque le screenupdating, c'est pire, ça scintille pire qu'à Noël :-[
merci pour les idées.
@+
J@@
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub
If IsNumeric(Target) = False Then Target.Value = UCase(Target.Value)
Select Case Left(Target.Value, 2)
Case "SP"
Range("F" & Target.Row).Value = "M"
End Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub
Application.EnableEvents = false ' Ajouter
If IsNumeric(Target) = False Then Target.Value = UCase(Target.Value) Select Case Left(Target.Value, 2) Case "SP" Range("F" & Target.Row).Value = "M" End Select Application.EnableEvents = True ' Ajouter End Sub
"J@@" a écrit dans le message de news: Bonjour à tous La proc suivante lambine un peu, du fait qu'elle passe tout en majuscule avant de passer à la moulinette du select case. Serait-il possible de lui mettre un peu de vitamine?
Si je bloque le screenupdating, c'est pire, ça scintille pire qu'à Noël :-[ merci pour les idées. @+ J@@
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub If IsNumeric(Target) = False Then Target.Value = UCase(Target.Value) Select Case Left(Target.Value, 2) Case "SP" Range("F" & Target.Row).Value = "M" End Select End Sub
J
Bonjour Denis et merci c'est au poil :-) @+ J@@
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub
Application.EnableEvents = false ' Ajouter
If IsNumeric(Target) = False Then Target.Value = UCase(Target.Value) Select Case Left(Target.Value, 2) Case "SP" Range("F" & Target.Row).Value = "M" End Select Application.EnableEvents = True ' Ajouter End Sub
"J@@" a écrit dans le message de news: Bonjour à tous La proc suivante lambine un peu, du fait qu'elle passe tout en majuscule avant de passer à la moulinette du select case. Serait-il possible de lui mettre un peu de vitamine?
Si je bloque le screenupdating, c'est pire, ça scintille pire qu'à Noël :-[ merci pour les idées. @+ J@@
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub If IsNumeric(Target) = False Then Target.Value = UCase(Target.Value) Select Case Left(Target.Value, 2) Case "SP" Range("F" & Target.Row).Value = "M" End Select End Sub
Bonjour Denis
et merci
c'est au poil :-)
@+
J@@
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub
Application.EnableEvents = false ' Ajouter
If IsNumeric(Target) = False Then Target.Value = UCase(Target.Value)
Select Case Left(Target.Value, 2)
Case "SP"
Range("F" & Target.Row).Value = "M"
End Select
Application.EnableEvents = True ' Ajouter
End Sub
"J@@" <allezvoir@yeur.fr> a écrit dans le message de news: ekvYmGiZIHA.1204@TK2MSFTNGP03.phx.gbl...
Bonjour à tous
La proc suivante lambine un peu, du fait qu'elle passe tout en majuscule
avant de passer à la moulinette du select case.
Serait-il possible de lui mettre un peu de vitamine?
Si je bloque le screenupdating, c'est pire, ça scintille pire qu'à Noël :-[
merci pour les idées.
@+
J@@
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub
If IsNumeric(Target) = False Then Target.Value = UCase(Target.Value)
Select Case Left(Target.Value, 2)
Case "SP"
Range("F" & Target.Row).Value = "M"
End Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub
Application.EnableEvents = false ' Ajouter
If IsNumeric(Target) = False Then Target.Value = UCase(Target.Value) Select Case Left(Target.Value, 2) Case "SP" Range("F" & Target.Row).Value = "M" End Select Application.EnableEvents = True ' Ajouter End Sub
"J@@" a écrit dans le message de news: Bonjour à tous La proc suivante lambine un peu, du fait qu'elle passe tout en majuscule avant de passer à la moulinette du select case. Serait-il possible de lui mettre un peu de vitamine?
Si je bloque le screenupdating, c'est pire, ça scintille pire qu'à Noël :-[ merci pour les idées. @+ J@@
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub If IsNumeric(Target) = False Then Target.Value = UCase(Target.Value) Select Case Left(Target.Value, 2) Case "SP" Range("F" & Target.Row).Value = "M" End Select End Sub