Minuscules en majuscules lors de la frappe

Yeps !

Je travaille actuellement sur un fichier ou j'aurais besoin de transformer automatiquement les minuscules en majuscules lors de la frappe.

J'ai trouvé cette séquence de code :

Private Sub Worksheet_Change(ByVal Target As Range)
'Cela évite que l'événement se répète à chaque modification du contenu de la cellule
    Application.EnableEvents = False
'Met en majuscule
    Target = UCase(Target)
'Rétablit la prise en charge des événements
    Application.EnableEvents = True
End Sub

Mais, dans ce cas, cela s'applique à la feuille entière. Or, j'aimerais que cela ne concerne que des blocs de cellules

B3:I17 puis B21:I35 puis B39:I53 etc...

Avec une variable "i" allant de 0 à 125, j'aurais i*18+3 pour le 1er n° de ligne et i*18+17 pour le second.

Pour le reste, je suis dans le brouillard ...

Si quelqu'un pouvait améliorer ma météo, ce serait sympa ...

Bonjour

il faut utiliser l'instructio

 application.intersect

pour plus de détails :

https://msdn.microsoft.com/fr-fr/library/office/ff835030.aspx

fred

pour plusieurs plages non distinct par exemple :

If Not Intersect(Target, Range("A1:A10,C5:D10")) Is Nothing Then
        MsgBox "Hello"
End If

fred