Mettre en majuscule sauf une cellule Résolu

Question

Bonjour à tous, 

Petite question pour vous!

J'ai une feuille donc j'ai écrit un code pour que toutes les saisie de texte soit en majuscule et ça fonctionne bien. 

Mais voici mon problème, dans 4 cellules (C15, C26, C37 et C48) il ne doit le mettre en majuscule. Dans ces cellules, la valeur est en format scientifique et les calculs n'ont pas fonctionné alors qui fonctionnaient avant.


J'ai essayé d'appliquer la majuscule, en spécifiant toutes les cellules ou  des lignes sans succès. Je réussi à le faire pour 2 cellules ou 2 lignes, mais lorsque j'ajoute plus d'argument, ça ne fonctionne plus.

Voici le code:
Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

Dim Rg As Range, C As Range

Set Rg = Intersect(Target, Rows(22))
    If Not Rg Is Nothing Then
        For Each C In Rg
        C.Value = UCase(C.Value)
        Next
    End If

Range("G55") = WorksheetFunction.Proper(Range("g55"))

Application.EnableEvents = True

End Sub

Et voici mon fichier: https://www.cjoint.com/?0CluIQL9qBA

Configuration: Windows 7 / Chrome 41.0.2272.76

bassmart · Answer

Bon j'ai finalement trouvé comment résoudre mon problème!!

Je fais la sélection de ligne non contigüe.

Voici mon nouveau code:

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

Dim Rg As Range, C As Range

Set Rg = Intersect(Target, Range("8:11,22:23,33:34,44:45"))
    If Not Rg Is Nothing Then
        For Each C In Rg
        C.Value = UCase(C.Value)
        Next
    End If

Range("G55") = WorksheetFunction.Proper(Range("g55"))

Application.EnableEvents = True

End Sub

Mettre en majuscule sauf une cellule

1 réponse

Votre réponse

Discussions similaires