Erreur: La méthode '_Default' de l'obget 'Range' a échoué
Résolu/Fermé
bassmart
Messages postés
277
Date d'inscription
jeudi 19 février 2015
Statut
Membre
Dernière intervention
30 août 2022
-
24 févr. 2015 à 21:24
bassmart Messages postés 277 Date d'inscription jeudi 19 février 2015 Statut Membre Dernière intervention 30 août 2022 - 25 févr. 2015 à 13:46
bassmart Messages postés 277 Date d'inscription jeudi 19 février 2015 Statut Membre Dernière intervention 30 août 2022 - 25 févr. 2015 à 13:46
A voir également:
- La méthode _default de l'objet range a échoué
- La méthode range de l'objet _global a échoué ✓ - Forum VB / VBA
- Une référence d'objet est requise pour la propriété la méthode ou le champ non statique ✓ - Forum C#
- Input signal out of range ✓ - Forum Matériel informatique
- Vente objet occasion entre particulier - Guide
- Vba range avec variable ✓ - Forum VB / VBA
1 réponse
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
25 févr. 2015 à 09:04
25 févr. 2015 à 09:04
bonjour,
essayez comme ceci:
essayez comme ceci:
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
If Target.Column >= 3 And Target.Column <= 5 Then
'desactive les evenements excel: eviter appel recurcif a la suite du passage en majuscule
Application.EnableEvents = False
Target = UCase(Target)
End If
'active les evenements excel
Application.EnableEvents = True
If Target.Cells.Count > 1 Then Exit Sub
If Target.Row < 5 Or Target.Column <> 5 Then Exit Sub
If Target.Value = "" Then Cells(Target.Row, 1).ClearContents
If Range("A5") <> "" Then
DLig = Range("E5").End(xlDown).Row
Set PL = Range("A5:A" & DLig)
PL.Value = Range("a5").Value
End If
ActiveSheet.Protect
End Sub
25 févr. 2015 à 13:46