Discussion :

[oliwood1311]

Bonsoir j'ai (encore) une question
Le titre est trompeur, enfin j'espère

Lorsque j'oblige des majuscules dans une plage vie selection change
j'ai une erreur lorsque j'efface une cellule prédéfinie dans le code ...
j'ai essayé deux codes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("D4:E47")) Is Nothing Then Target = UCase(Target)
End Sub

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 Private Sub Worksheet_Change(ByVal Target As Range)	
    If Not Application.Intersect(Target, Range("D4:E47")) Is Nothing Then	
        Application.EnableEvents = False	
        Target = UCase(Target)	
        Application.EnableEvents = True	
    End If	
 
    End Sub

Quelqu'un a une idée pour détourner ca ? j'ai tt fouillé et essayé et nada

[casefayere]

et comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("D4:E47")) Is Nothing Then
    If Target.Value <> "" Then Target.Value = UCase(Target.Value)
  End If
End Sub

[oliwood1311]

décidément tu es partout pour m'aider merci
j'avais essayé des codes du genre mais à mon avis la syntaxe était foireuse...

nickel et super simple même moi j'aurais du trouver ca mais j'étais pas loin avec mes tests

Grand merci de ta réactivité et bonne soirée

on peut classer le post