Bonjour,
Après avoir tenté de trouver une solution sur le forum et avec mes méninges, je bute sur un programme sur excel pour la mise en forme automatique en majuscule de certaines cellules e la feuille. Voici le code :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C5:C200" )) Is Nothing Then
If Not IsEmpty(Target) Then
Target.Value = UCase(Target.Value)
End If
End If
If Not Application.Intersect(Target, Range("G5:G200" )) Is Nothing Then
If Not IsEmpty(Target) Then
Target.Value = UCase(Target.Value)
End If
End If
End Sub
Pour la colonne C, aucun souci, mais ça plante dès que j'écris qqch dans la colonne G. Erreur d'exécution 2147417848 (80010108). La méthode 'Value' de l'objet 'Range' a échoué, et au débogage, ça s'arrête sur Target.Value = UCase(Target.Value) de la deuxième partie du code, alors qu'identique que la première partie...
??????
Merci beaucoup pour votre aide
Quelqu'un a-t-il une solution miracle ?
