Résultats de 1 à 5 sur 5

Sujet : conversion de mots en majuscule en minus

  1. #1
    Membre MP
    Inscrit
    août 2013
    Messages
    1

    conversion de mots en majuscule en minus

    Bonjour
    j\'aimerai savoir si quelqu\'un n\'aurait pas fait une macro sous word qui permettrai de convertir les noms propres en minuscule avec la première lettre en majuscule : par ex. de DUCHEMIN à Duchemin. Merci pour votre réponse

  2. #2
    Membre MP
    Inscrit
    août 2013
    Messages
    1 169
    Sur Word, la commande pour transformer un texte sélectionné en Majuscules est :
    Code:
    Selection.Font.AllCaps = True
    A tous les membres, dite non à la (drogue...) sms-mania !

    Avant de poster, vérifiez si la réponse n'est pas dans la FAQ ou un tutorial.

    Je suis actuellement http://www.bencastricum.nl/msn/statu...83aaf40bdb.png sur MSN

  3. #3
    Visiteur MP
    Visiteur MP
    ah moi je connaissait en php :
    Code:
    $str=strtoupper(\"salut\");
    sortie :
    Code:
    SALUT
    J\'apprends encore de nouvelles choses, c\'est incroyable :

  4. #4
    Membre MP
    Inscrit
    août 2013
    Messages
    47
    salut yom :
    Ce code permet la convertion majucules-minuscules et vis-versa



    Sub globale()
    Dim plage As Range, cel As Range
    On Error GoTo finerreur
    \'SelectionPlage
    Set plage = Application.InputBox(\"Sélectionnez les cellules à convertir :\", \"Sélection de cellules\", Type:=8)
    \'Boucle sur chaque cellule de la plage sélectionnée
    For Each cel In plage \'Sélection de la cellule dans la plage définie
    cel.Select \'Convertion de la cellule sélectionnée
    Call Convertion
    Next cel
    MsgBox \"Traitement terminé.\", vbInformation, \"Convertion\" \'information de fin
    GoTo Fin
    finerreur:
    Fin:
    End Sub
    Sub Convertion()
    Select Case ActiveCell.Value \'Valeur de la cellule
    \'CASSE UNIFROME (minimum 1 caractère)
    Case \"\"
    MsgBox (\"BASCULEMENT IMPOSSIBLE :\" & Chr(10) & \"Cellule sélectionnée vide\"), vbExclamation
    Case Is = LCase(ActiveCell.Value) \'Passage en minuscules
    ActiveCell.Value = UCase(ActiveCell.Value)
    Case Is = UCase(ActiveCell.Value) \'Passage en majuscules
    ActiveCell.Value = LCase(ActiveCell.Value)
    Case Else
    If IsNumeric(ActiveCell.Value) = True Then \'Test si la cellule est numérique
    MsgBox (\"BASCULEMENT IMPOSSIBLE :\" & Chr(10) & \"La cellule sélectionnée ne contient que des chiffres.\"), vbInformation
    End If
    \'CASSE NON UNIFROME (minimum 2 caractères)
    Select Case Mid(ActiveCell.Value, 2, 1) \'Test de la casse sur le 2ème caractère
    Case Is = LCase(Mid(ActiveCell.Value, 2, 1)) \'Passage en minuscules
    ActiveCell.Value = UCase(ActiveCell.Value)
    Case Is = UCase(Mid(ActiveCell.Value, 2, 1)) \'Passage en majuscules
    ActiveCell.Value = LCase(ActiveCell.Value)
    End Select
    End Select
    End Sub



  5. #5
    Membre MP
    Inscrit
    août 2013
    Messages
    1 012
    c\'est du vb ça non? lol

    mais pourquoi venir avec le php et le VB si:
    une macro sous word
    enfin c\'est vrai que maintenant on pourra le faire en plusieurs langage :d

    ciao :wink:
    Grégory S.

    eVias Web & Software Solutions.

    Développement Web et logiciel en tout genre et Open Source.

    FOSDEM 2008. Venez -y nombreux !

Informations du sujet

Utilisateur(s) parcourant ce sujet

il y a actuellement 1 utilisateur(s) parcourant ce sujet. (0 membre(s) et 1 visiteur(s))

Règles des messages

  • Vous ne pouvez pas créer de sujets
  • Vous ne pouvez pas répondre aux sujets
  • Vous ne pouvez pas importer de fichiers joints
  • Vous ne pouvez pas éditer vos messages
  •  
  • Les BB codes sont Activés
  • Les Smileys sont Activés
  • Le BB code [IMG] est Activé
  • Le code [VIDEO] est Activé
  • Le code HTML est Désactivé
Please disable Adblock!