Format maj ne fonctionne pas avec cellules fusionnées

[800vfr76]

Bonjour a tous,

J'ai trouver cette macro sur le forum pour mettre mes cellules en majuscule, elle fonctionne bien sauf lorsque les cellules sont fusionnées

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row = 70 Then
Target.Value = UCase(Target.Value)
End If

End Sub

J'ai une erreur quand je supprime une entrée d'une cellule fusionnée, quelqu'un aurait-il une solution.

Merci a vous pour vos réponses.

 

[Guiv]

Re : Format maj ne fonctionne pas avec cellules fusionnées

Bonsoir,

Private Sub Worksheet_Change(ByVal Target As Range)
[COLOR="Red"]On Error Resume Next[/COLOR]
If Target.Row = 70 Then
Target.Value = UCase(Target.Value)
End If

End Sub

Ca marche, mais dans l'ensemble VBA n'aime pas les cellules fusionnées.

Cordialement,
Guiv

 

[800vfr76]

Re : Format maj ne fonctionne pas avec cellules fusionnées

Re,

Merci ca marche nickel.