Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Problème avec Target.Value = UCase(Target.Value)

P

pat66

XLDnaute Impliqué
Bonjour le forum,

pourriez vous me dire pourquoi lorsque je supprime le contenu d'une de ces cellules C6,C7,C9,H6:H7 (exemple erreur de saisie), j'ai un bug sur la ligne : Target.Value = UCase(Target.Value) et la fonction majuscule ne fonctionne plus

Sub Worksheet_Change(ByVal Target As Range)
'Me.Unprotect "jojo"
Application.EnableEvents = False 'désactive les évènements
If Not Application.Intersect(Target, Range("C6,C7,C9,H6:H7")) Is Nothing Then
Target.Value = UCase(Target.Value)
End If
--------------------
----------------------
---------------------
End sub

un grand merci pour votre aide
Cdt
Pat66
 
Dernière édition:
Solution
Re,
Je me pose une question : si vous protégez vos feuilles alors un Worksheet_Change ne peut pas marcher puisque la protection interdit de changer une valeur.
En PJ un essai avec un Worksheet_SelectionChange qui dévérouille la feuille quand on clique sur une bonne cellule et un Worksheet_Change pour la modif.
Trier par date Trier par votes

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Pat,
Avec cette macro tout semble marcher :
VB: 
Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("C6,C7,C9,H6:H7")) Is Nothing Then
    Application.EnableEvents = False    'Désactive les évènements
    Target.Value = UCase(Target.Value)
End If
Application.EnableEvents = True         'Réactive les évènements
End Sub

La ligne If Target.Count > 1 Then Exit Sub évite l'erreur quand plusieurs cellules sont sélectionnées.
Ne pas oublier le Application.EnableEvents = True
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonjour pat66, sylvanu,

Comme il y a peu de cellules à traiter ceci ira bien :
VB: 
Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Protect "jojo", UserInterfaceOnly:=True
Application.EnableEvents = False 'désactive les évènements
For Each c In [C6:C7,C9,H6:H7]
    c = UCase(c.Formula)
Next
Application.EnableEvents = True 'réactive les évènements
'--------------------
End Sub
Quand la feuille est protégée les modifications manuelles ne sont pas possibles.

A+
 
Vote positif 0 Vote négatif
P

pat66

XLDnaute Impliqué
re,

Pourquoi l'aurais je enlevé,
pour info cela bloque juste après la saisie en minuscule en tapant sur entrée
Dim c As Range
Protect "jojo", UserInterfaceOnly:=True
Application.EnableEvents = False 'désactive les évènements
For Each c In [C6:C7,C9,H6:H7]
c = UCase(c.Formula)
Next
Application.EnableEvents = True
 
Dernière édition:
Vote positif 0 Vote négatif
P

pat66

XLDnaute Impliqué
re,
je vous mets la macro complète car peut être que le problème vient d'ailleurs, si vous pouviez y jeter un coup d’œil, ce serait sympa de votre part, merci d'avance

VB: 
Sub Worksheet_Change(ByVal Target As Range)
Me.Unprotect "jojo"
Application.EnableEvents = False 'désactive les évènements
If Not Application.Intersect(Target, Range("C6,C7,C9,H6:H7")) Is Nothing Then
    Target.Value = UCase(Target.Value)
  End If
On Error Resume Next
With Sheets(CStr([I3])).UsedRange
    .Columns(3).name = "P" 'plage nommée
    .Columns(4).name = "Q" 'plage nommée
    [I4] = .Cells(Application.Match(1, [(P<>"")*(Q="")], 0), 3)
End With
If Err Then [I4] = "" 'RAZ
Application.EnableEvents = True 'réactive les évènements

Dim nom$, n&
With [C6]
    If Intersect(Target, .Cells) Is Nothing Or .Value = "" Then Exit Sub
    lig = 0 'RAZ de la variable Public
    nom = Trim(.Value)
End With
With Sheets("BDD")
    n = Application.CountIf(.[C:C], nom)
    If n = 0 Then Exit Sub
    If MsgBox("Il y a " & n & " ligne" & IIf(n = 1, "", "s") & " avec le nom '" & nom & "'." _
        & vbLf & "Voulez-vous " & IIf(n = 1, "la", "les") & " consulter ?", 4, "Feuille '" & .name & "'") = 7 Then Exit Sub
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    .Range("A2:DA" & .Range("C" & .Rows.Count).End(xlUp).Row).AutoFilter 3, nom 'filtre automatique
    .Activate
End With
Me.Protect "jojo"
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Je vois que dans votre code Application.EnableEvents = True est placé après modification de la cellule I4.

Donc quand vous collez mon code au-dessus ne collez pas cette instruction.
 
Vote positif 0 Vote négatif
P

pat66

XLDnaute Impliqué
re,
voila la macro j'y ai inséré votre code, j'ai toujours la même erreur avec un arrêt sur
Target.Value = UCase(Target.Value) et qui désactive la fonction majuscule

Précision importante, tout fonctionnait jusqu'à ce que décide de protéger les feuilles, d'ailleurs votre code sans Protect "jojo", UserInterfaceOnly:=True et a condition que les feuilles soient déprotégées fonctionne aussi très bien,

Cela est un mystère pour moi

VB: 
Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Protect "jojo", UserInterfaceOnly:=True
Application.EnableEvents = False 'désactive les évènements
For Each c In [C6:C7,C9,H6:H7]
c = UCase(c.Formula)
Next
On Error Resume Next
With Sheets(CStr([I3])).UsedRange
    .Columns(3).name = "P" 'plage nommée
    .Columns(4).name = "Q" 'plage nommée
    [I4] = .Cells(Application.Match(1, [(P<>"")*(Q="")], 0), 3)
End With
If Err Then [I4] = "" 'RAZ
Application.EnableEvents = True 'réactive les évènements

Dim nom$, n&
With [C6]
    If Intersect(Target, .Cells) Is Nothing Or .Value = "" Then Exit Sub
    lig = 0 'RAZ de la variable Public
    nom = Trim(.Value)
End With
With Sheets("BDD")
    n = Application.CountIf(.[C:C], nom)
    If n = 0 Then Exit Sub
    If MsgBox("Il y a " & n & " ligne" & IIf(n = 1, "", "s") & " avec le nom '" & nom & "'." _
        & vbLf & "Voulez-vous " & IIf(n = 1, "la", "les") & " consulter ?", 4, "Feuille '" & .name & "'") = 7 Then Exit Sub
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    .Range("A2:DA" & .Range("C" & .Rows.Count).End(xlUp).Row).AutoFilter 3, nom 'filtre automatique
    .Activate
End With
Me.Protect "jojo"
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Chez moi le code précédent ne crée pas de bug.

Notez que la dernière ligne Me.Protect "jojo" est inutile et doit être supprimée.

Salut Marcel32, oui il n'y a plus de Target.
 
Vote positif 0 Vote négatif
P

pat66

XLDnaute Impliqué
Bonjour Marcel32,

Pour faire simple
Ma question au post #1 est résolue avec les 2 solutions Sylvanu post #2 et Job post #12, reprises ci dessous

Mon problème commence lorsque je souhaite protéger mes feuilles alors c'est le Krach a tel point que même le classeur ne s'ouvre plus depuis que j'ai utilisé UserInterfaceOnly:=True,

Fort heureusement j'avais fait une copie, donc pour l'instant les solutions de Sylvanu et Job fonctionnent parfaitement tant que mon classeur est déprotégé,et le restera certainement à moins que tu es une autre idée ?


VB: 
Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("C6,C7,C9,H6:H7")) Is Nothing Then
Application.EnableEvents = False    'Désactive les évènements
Target.Value = UCase(Target.Value)
End If
Application.EnableEvents = True         'Réactive les évènements
End Sub

VB: 
Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
''' Protect "jojo", UserInterfaceOnly:=True  'volontairement désactivé sinon j'ai un krach
Application.EnableEvents = False 'désactive les évènements
For Each c In [C6:C7,C9,H6:H7]
c = UCase(c.Formula)
Next
Application.EnableEvents = True 'réactive les évènements
'--------------------
End Sub

pat
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Question
Microsoft 365 [VBA] Listes déroulantes à choix multiples sur N colonnes discontinues
Réponses
4
Affichages
555
ralph45
S
  • Résolu(e)
Microsoft 365 Listes déroulantes multi-sélections et feuilles protégées.
Réponses
6
Affichages
487
selkis
S
D
  • Question
Microsoft 365 Application.WorksheetFunction.VLookup ne fonctionne pas au delà de 8500 lignes
Réponses
4
Affichages
595
DimiJuju
D
B
  • Résolu(e)
Microsoft 365 Besoin d'aide pour faire fonctionner 2 codes VBA ensemble
Réponses
2
Affichages
311
BenExcel
B
E
  • Question
Autres VBA - Erreur d'exécution '13'
Réponses
4
Affichages
425
Elisa47
E
F
  • Question
XL 2016 Vba + formule actualisation
Réponses
8
Affichages
377
Dudu2
P
  • Résolu(e)
Microsoft 365 Msgbox qui doit s'afficher une seule fois
Réponses
5
Affichages
471
mapomme
  • Résolu(e)
XL 2016 If Not xRgSel Is Nothing Then --> Ne marche pas
Réponses
10
Affichages
422
R3n0W
M
  • Résolu(e)
XL 2016 Private Sub ne fonctionne pas
Réponses
4
Affichages
416
MaNU84510
M
K
  • Question
Microsoft 365 création mot passe classique avec un code
Réponses
1
Affichages
266
Gégé-45550
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…