Mimi
XLDnaute Occasionnel
Bonjour à toutes et à tous,
Voila j'utilise se code dans le worksheet_change pour mettre certaine cellule en majuscule ou minuscule :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("C7,F9"), Target) Is Nothing Then Target.Value = UCase(Target)
If Not Intersect(Range("G7,C8"), Target) Is Nothing Then Target.Value = Application.Proper(Target)
End Sub
Jusque là tout va bien, mais lorsque j'utilise cette macro pour effacer :
Sub Effacerfiches1()
Range( _
"H3,H4,H5,C7,G7,C8,C9,F9,C10,G10,D13,G13,G14,D14,D23,D30,D32,H32,D35,H35,B41" _
).Select
Selection.ClearContents
Range("A1").Select
End Sub
j'ai un message d'erreur : erreur '13', incompatibilité de type et me surligne en jaune : Target.Value = UCase(Target)
Je n'ai aucune cellule fusionnée et là je coince un peu, alors si quelqu'un avait une idée.
D'avance merci
Michel
Voila j'utilise se code dans le worksheet_change pour mettre certaine cellule en majuscule ou minuscule :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("C7,F9"), Target) Is Nothing Then Target.Value = UCase(Target)
If Not Intersect(Range("G7,C8"), Target) Is Nothing Then Target.Value = Application.Proper(Target)
End Sub
Jusque là tout va bien, mais lorsque j'utilise cette macro pour effacer :
Sub Effacerfiches1()
Range( _
"H3,H4,H5,C7,G7,C8,C9,F9,C10,G10,D13,G13,G14,D14,D23,D30,D32,H32,D35,H35,B41" _
).Select
Selection.ClearContents
Range("A1").Select
End Sub
j'ai un message d'erreur : erreur '13', incompatibilité de type et me surligne en jaune : Target.Value = UCase(Target)
Je n'ai aucune cellule fusionnée et là je coince un peu, alors si quelqu'un avait une idée.
D'avance merci
Michel