Mettre en majuscule sauf une cellule

Résolu/Fermé

bassmart Messages postés 281 Date d'inscription jeudi 19 février 2015 Statut Membre Dernière intervention 19 décembre 2023 - 11 mars 2015 à 20:23
bassmart Messages postés 281 Date d'inscription jeudi 19 février 2015 Statut Membre Dernière intervention 19 décembre 2023 - 12 mars 2015 à 12:47

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

A voir également:

Mettre en majuscule sauf une cellule
Mettre un texte en majuscule - Guide
É majuscule - Guide
Aller à la ligne dans une cellule excel - Guide
Verrouiller cellule excel - Guide
Excel cellule couleur si condition texte - Guide

1 réponse

Réponse 1 / 1

bassmart Messages postés 281 Date d'inscription jeudi 19 février 2015 Statut Membre Dernière intervention 19 décembre 2023 1
12 mars 2015 à 12:47

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

Discussions similaires

Touches majuscule et minuscule inversées sur mon clavier

iPhone : je n'ai pas de son lors d'un appel sortant

Trouver le mot réellement écrit en lettres capitales PIX

Excel si cellule contient texte alors...

Je n'entends pas mon interlocuteur sur mon téléphone

Discussions similaires

Newsletters