1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

XL 2016 majuscule/minuscule

Discussion dans 'Forum Excel' démarrée par MICHAEL, 9 Février 2019.

  1. MICHAEL

    MICHAEL XLDnaute Occasionnel

    Inscrit depuis le :
    11 Août 2006
    Messages :
    211
    "J'aime" reçus :
    1
    Bonjour
    je souhaiterais savoir si il existe un bouton de commande qui me permettrait de modifier les majuscules en minus et inversement dans une cellule.
    merci
     
  2. Chargement...

    Discussions similaires - majuscule minuscule Forum Date
    XL 2010 Différencier les minuscules et majuscules Forum Excel 29 Novembre 2018
    XL 2013 code qui passe tout seul de minuscule a majuscule dans le VBA!!! Forum Excel 20 Juin 2018
    XL 2013 VBA MAJUSCULES et minuscules Forum Excel 3 Novembre 2017
    Split en fonction de majuscule ou minuscule Forum Excel 28 Juin 2017
    XL 2000 Macro majuscule minuscule, dans code la feuille... Forum Excel 29 Octobre 2015

  3. Robert

    Robert XLDnaute Barbatruc

    Inscrit depuis le :
    20 Février 2005
    Messages :
    9724
    "J'aime" reçus :
    691
    Habite à:
    Sète
    Utilise:
    Excel 2010 (PC)
  4. MICHAEL

    MICHAEL XLDnaute Occasionnel

    Inscrit depuis le :
    11 Août 2006
    Messages :
    211
    "J'aime" reçus :
    1
    Merci de votre réponse.
    je vais essayer ceci, mais jusqu'à présent il me semble que cela ne fonctionne pas
    sous ma version Excel (office 365).
    ayant uniquement besoin de passer de min en maj et reciproquement voici une solution que l'on m'a
    proposer et qui dans mon cas me convient.

    cordialement

    ( les macros sont ajoutées dans le ruban)

    Sub majuscules()

    traite_casse ("maj")

    End Sub

    Sub minuscules()

    traite_casse ("min")

    End Sub

    Sub traite_casse(comment As String)

    Dim cellule As Range

    For Each cellule In Selection

    If (comment = "maj") Then
    cellule = UCase(cellule)
    Else
    cellule = LCase(cellule)

    End If

    Next cellule

    End Sub
     
  5. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    26301
    "J'aime" reçus :
    2311
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    Bonjour MICHAEL, Robert,

    Pourquoi utiliser des boutons alors que le double-clic fait très bien l'affaire :
    Code (Text):
    Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    Target = IIf(UCase(Target) = Target, LCase(Target), UCase(Target))
    End Sub
    La macro est à placer dans ThisWorkbook, elle fonctionne sur toutes les feuilles du classeur.

    A+
     
    arthour973 aime votre message.

Partager cette page