Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel proc évènementielle lente

proc évènementielle lente

2 réponses
Avatar
J
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
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
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
Avatar
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