Forcer des majuscules

Résolu
colibrii95 Messages postés 4 Statut Membre -  
 colibrii95 -
Comment forcer des majuscules dans une colonne excel

10 réponses

  1. colibrii95 Messages postés 4 Statut Membre
     
    Bonjour,
    Mille excuses je pensais m'adresser à une base de données.
    Par avance merci.
    0
    1. Raymond PENTIER Messages postés 58213 Date d'inscription   Statut Contributeur Dernière intervention   17 482
       
      Une base intelligente, alors ? Qui comprend le français parlé courant ?
      Je ne crois pas que ce soit déjà disponible sur le marché (gratuitement).
      0
  2. Raymond PENTIER Messages postés 58213 Date d'inscription   Statut Contributeur Dernière intervention   17 482
     
    Plusieurs solutions, cependant !

    La plus simple, mettre la colonne avec une police comme COPPERPLATE GOTHIC, ou ALGERIAN, ou CASTELLAR, ou encore GOUDY STOUT ...
    0
  3. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  4. colibrii95 Messages postés 4 Statut Membre
     
    Bonjour à tous et merci de vos réponses.

    J'ai essayé les polices mais cela ne me convient pas, par contre j'opterais bien pour une macro mais étant débutant je ne sais pas comment l'insérer dans la colonne.
    Si quelqu'un pouvais le donner un exemple que je puisse copier je suis preneur.

    Par avance merci
    0
    1. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
       
      Bonjour,

      La macro ccm81 te l'a fournie.
      Cliquer sur son lien et dans le fichier excel Alt+F11 pour entrer dans l'éditeur VBE et voir le code (et copier-coller dans ton fichier)

      eric
      0
  5. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Clic-droit sur l'onglet de la feuille à traiter-Visualiser le code
    Copier/coller le code ci-dessous
    Modifier éventuellement la colonne à traiter (co = "A:A")
    Revenir dans la feuille
    RQ1. Toute écriture dans cette colonne sera transformée en majuscule après validation par entrée dans la feuille
    RQ2. Vérifier que la config d'excel accepte l'exécution des macros (Outils/macro/sécutité.niveau moyen et relancer excel)

    Option Explicit
    
    Const co = "A:A"
    
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range(co)) Is Nothing Then
      Target.Value = UCase(Target.Value)
    End If
    End Sub


    bonne journée
    0
  6. colibrii95 Messages postés 4 Statut Membre
     
    Re bonjour ccm81 et merci de m'aider,

    Je suis vraiment novice mais à quel endroit doit-je copier le code que vous m'avez donné et est-ce que je dois mettre tout le code.
    -------------------------------------------------------

    Option Explicit

    Const co = "A:A"

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range(co)) Is Nothing Then
    Target.Value = UCase(Target.Value)
    End If
    End Sub

    -------------------------------------------------------

    Je n'ai pas trouvé les Cdes (Outils/macro/sécurité.niveau moyen), j'utilise Excel 97

    Par avance merci.
    0
  7. colibrii95
     
    Bonjour CCm81,

    De retour d'un déplacement en province me voila revenu sur mon problème.

    J'ai bien fait la manip que tu m'as donnée mais ça ne fonctionne toujours pas,
    je n'ai aucun message d'erreur ou alors ça viendrai peut être de l'installation d'excel.
    Te serait-il possible de créer une feuille excel avec la macro dans la colonne 1 et me l'envoyer pour voir.

    Merci de t'on aide.
    0
  8. colibrii95
     
    Re bonjour ccm81,

    Excuse moi mais je viens de réessayer avec la dernière feuille que tu m'as envoyé et ça fonctionne.

    Un grand merci de ton aide.

    colibrii95
    0