A voir également:
- Access masque de saisie première lettre majuscule
- Appel masqué - Guide
- É majuscule - Guide
- Masque apple - Guide
- Mettre un texte en majuscule - Guide
- Affichez l'ensemble des diapositives à l'écran avec 5 diapositives par ligne. repérez le groupe de 3 diapositives avec une fleur identique alignées verticalement, supprimez la première d'entre elles. un nouveau groupe de 3 diapositives avec une fleur identique alignées verticalement apparaît, supprimez encore la première d'entre elles. déplacez les 3 premières diapositives de la 4e ligne au début de la présentation. quel mot est formé par les lettres de la première colonne ? - Forum Powerpoint
2 réponses
Bruce Willix
Messages postés
11968
Date d'inscription
mardi 24 mai 2011
Statut
Contributeur
Dernière intervention
12 juin 2018
2 587
13 nov. 2014 à 09:41
13 nov. 2014 à 09:41
Bonjour,
La touche "Shift" ou "Maj" sur un clavier français.
La touche "Shift" ou "Maj" sur un clavier français.
Bonjour
Voici une fonction qui te convertit tout les mots avec la premiere en e masjuscule
Function Convmaj1car()
Dim chaine$, lg%, i%, extract, conv
'
chaine$ = Screen.ActiveControl
If IsNull(chaine) Or chaine = "" Then Exit Function
lg% = Len(chaine)
' Recherche "-", apostrophe ou espace
For i = 1 To lg
extract = Mid(chaine, i, 1)
'
If extract = " " Or extract = "-" Or extract = "'" Then
conv = False
If i < lg - 3 Then
'test si préposition
extract = (UCase(Mid(chaine, i + 1, 2)))
Select Case extract
Case "L'", "D'"
i = i + 1
End Select
'
extract = (UCase(Mid(chaine, i + 1, 3)))
Select Case extract
Case "DE ", "DE-", "DES", "DU ", "DU-", "LE ", "LE-", "LES", "LA ", "LA-", "L' ", "AU ", "RUE", Chr$(68) + Chr$(39)
i = i + 2
Case Else
conv = True
End Select
Else
conv = True
End If
' si pas de préposition, 1ère lettre en majuscule
If i <> lg And conv Then
chaine = Left(chaine, i) + UCase(Mid(chaine, i + 1, 1)) + Right(chaine, lg - i - 1)
End If
If i = lg Then
chaine = Left(chaine, lg - 1) + LCase(Right(chaine, 1))
End If
End If
'
Next
Screen.ActiveControl = UCase(Left(chaine, 1)) & Right(chaine, lg - 1)
End Function
Voici une fonction qui te convertit tout les mots avec la premiere en e masjuscule
Function Convmaj1car()
Dim chaine$, lg%, i%, extract, conv
'
chaine$ = Screen.ActiveControl
If IsNull(chaine) Or chaine = "" Then Exit Function
lg% = Len(chaine)
' Recherche "-", apostrophe ou espace
For i = 1 To lg
extract = Mid(chaine, i, 1)
'
If extract = " " Or extract = "-" Or extract = "'" Then
conv = False
If i < lg - 3 Then
'test si préposition
extract = (UCase(Mid(chaine, i + 1, 2)))
Select Case extract
Case "L'", "D'"
i = i + 1
End Select
'
extract = (UCase(Mid(chaine, i + 1, 3)))
Select Case extract
Case "DE ", "DE-", "DES", "DU ", "DU-", "LE ", "LE-", "LES", "LA ", "LA-", "L' ", "AU ", "RUE", Chr$(68) + Chr$(39)
i = i + 2
Case Else
conv = True
End Select
Else
conv = True
End If
' si pas de préposition, 1ère lettre en majuscule
If i <> lg And conv Then
chaine = Left(chaine, i) + UCase(Mid(chaine, i + 1, 1)) + Right(chaine, lg - i - 1)
End If
If i = lg Then
chaine = Left(chaine, lg - 1) + LCase(Right(chaine, 1))
End If
End If
'
Next
Screen.ActiveControl = UCase(Left(chaine, 1)) & Right(chaine, lg - 1)
End Function
