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 ?

désolé je me suis planté de rubrique !!!