Mettre en majuscule sauf une cellule

Résolu

bassmart Messages postés 281 Date d'inscription Statut Membre Dernière intervention -
bassmart Messages postés 281 Date d'inscription Statut Membre Dernière intervention - 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 en majuscule - Guide
É majuscule - Guide
Majuscule - Guide
Code ascii de a majuscule - Guide
Excel cellule couleur si condition texte - Guide

1 réponse

Réponse 1 / 1

bassmart Messages postés 281 Date d'inscription Statut Membre Dernière intervention 1

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

excel fractionner une cellule horizontalement

Touches majuscule et minuscule inversées sur mon clavier

Remplir une cellule (texte) en fonction d'une autre (texte).

Votre réponse

Discussions similaires