Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Changer les majuscules d'une colonne en minuscule ou vice-vers

Changer les majuscules d'une colonne en minuscule ou vice-vers

8 réponses
Avatar
bp
Bonjour à tous,

Existe t-il une solution rapide pour transformer les caractères majuscules
d'une colonne en caractères minuscules?

D'avance merci.
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
nicolas
Salut
Essaye UCASE et LCASE


Exemple

toto="Test"

toto=UCASE(Test) 'Passe en majuscule donc toto=TEST
toto=LCASE(Test) 'Passe en minuscule donc toto=test


Nicolas



"bp" a écrit dans le message de news:
dn1huq$ng1$
Bonjour à tous,

Existe t-il une solution rapide pour transformer les caractères majuscules
d'une colonne en caractères minuscules?

D'avance merci.




Avatar
michdenis
Bonjour Bp,

Dans une colonne, tu ajoutes la fonction suivante :
=MINUSCULE(A1)
Tu tires sur toute l'étendue de la colonne.

Tu fais un copier-collage spécial / valeur seulement sur ton ancienne plage de cellules.
Tu effaces ta colonne ayant les formules !


Salutations!


"bp" a écrit dans le message de news: dn1huq$ng1$
Bonjour à tous,

Existe t-il une solution rapide pour transformer les caractères majuscules
d'une colonne en caractères minuscules?

D'avance merci.
Avatar
jps
bonjour bp
pour le versa, tu remplaces MINUSCULE par MAJUSCULE...
ah ce michel, ne lit jamais les titres des posts, cré vinzou...
jps

"michdenis" a écrit dans le message de news:
%23SS5Ama%
Bonjour Bp,

Dans une colonne, tu ajoutes la fonction suivante :
=MINUSCULE(A1)
Tu tires sur toute l'étendue de la colonne.

Tu fais un copier-collage spécial / valeur seulement sur ton ancienne
plage de cellules.
Tu effaces ta colonne ayant les formules !


Salutations!


"bp" a écrit dans le message de news:
dn1huq$ng1$
Bonjour à tous,

Existe t-il une solution rapide pour transformer les caractères majuscules
d'une colonne en caractères minuscules?

D'avance merci.





Avatar
michdenis
Bonjour JPS,

| michel, ne lit jamais les titres des posts

Tu n'es pas obligé de le dire à tous, il y a bien assez de ceux qui
s'en sont rendu compte après la lecture de quelques messages !!!
;-)

Salutations!


"jps" a écrit dans le message de news: egv4Fva%
bonjour bp
pour le versa, tu remplaces MINUSCULE par MAJUSCULE...
ah ce michel, ne lit jamais les titres des posts, cré vinzou...
jps

"michdenis" a écrit dans le message de news:
%23SS5Ama%
Bonjour Bp,

Dans une colonne, tu ajoutes la fonction suivante :
=MINUSCULE(A1)
Tu tires sur toute l'étendue de la colonne.

Tu fais un copier-collage spécial / valeur seulement sur ton ancienne
plage de cellules.
Tu effaces ta colonne ayant les formules !


Salutations!


"bp" a écrit dans le message de news:
dn1huq$ng1$
Bonjour à tous,

Existe t-il une solution rapide pour transformer les caractères majuscules
d'une colonne en caractères minuscules?

D'avance merci.





Avatar
ChrisV
Bonjour bp,

Sub minuS()
Dim c As Range
Application.ScreenUpdating = False
If Application.CountA(Selection) = 0 Then Exit Sub
With Selection
If .Count > 1 Then
On Error Resume Next
.SpecialCells(xlCellTypeConstants, 23).Select
If Err.Number = 0 Then
For Each c In Selection
c.Value = LCase(c)
Next c
End If
Else
If .HasFormula = True Then Exit Sub
.Value = LCase(.Value)
End If
End With
End Sub

ou INVERSEMENT...

Sub majuS()
Dim c As Range
Application.ScreenUpdating = False
If Application.CountA(Selection) = 0 Then Exit Sub
With Selection
If .Count > 1 Then
On Error Resume Next
.SpecialCells(xlCellTypeConstants, 23).Select
If Err.Number = 0 Then
For Each c In Selection
c.Value = UCase(c)
Next c
End If
Else
If .HasFormula = True Then Exit Sub
.Value = UCase(.Value)
End If
End With
End Sub

ou, au cas zou... (Majuscule seulement en début de phrase)

Sub majDeb()
Dim c As Range
Application.ScreenUpdating = False
If Application.CountA(Selection) = 0 Then Exit Sub
With Selection
If .Count > 1 Then
On Error Resume Next
.SpecialCells(xlCellTypeConstants, 23).Select
If Err.Number = 0 Then
For Each c In Selection
c.Value = UCase(Left(c.Value, 1)) _
& LCase(Mid(c.Value, 2, Len(c.Value)))
Next c
End If
Else
If .HasFormula = True Then Exit Sub
.Value = UCase(Left(c.Value, 1)) _
& LCase(Mid(c.Value, 2, Len(c.Value)))
End If
End With
End Sub

ou encore... Majuscule A Chaque Début De Mot

Sub majDebMot()
Dim c As Range
Application.ScreenUpdating = False
If Application.CountA(Selection) = 0 Then Exit Sub
With Selection
If .Count > 1 Then
On Error Resume Next
.SpecialCells(xlCellTypeConstants, 23).Select
If Err.Number = 0 Then
For Each c In Selection
c.Value = Application.Proper(c)
Next c
End If
Else
If .HasFormula = True Then Exit Sub
.Value = Application.Proper(.Value)
End If
End With
End Sub


ChrisV


"bp" a écrit dans le message de news:
dn1huq$ng1$
Bonjour à tous,

Existe t-il une solution rapide pour transformer les caractères majuscules
d'une colonne en caractères minuscules?

D'avance merci.




Avatar
ThierryP
Euh... Et pour une majuscule à la 3eme lettre du 4ème mot, s'il n'est
pas en anglais...c'est possible ???? :-))))))))))

Bonjour bp,

Sub minuS()
Dim c As Range
Application.ScreenUpdating = False
If Application.CountA(Selection) = 0 Then Exit Sub
With Selection
If .Count > 1 Then
On Error Resume Next
.SpecialCells(xlCellTypeConstants, 23).Select
If Err.Number = 0 Then
For Each c In Selection
c.Value = LCase(c)
Next c
End If
Else
If .HasFormula = True Then Exit Sub
.Value = LCase(.Value)
End If
End With
End Sub

ou INVERSEMENT...

Sub majuS()
Dim c As Range
Application.ScreenUpdating = False
If Application.CountA(Selection) = 0 Then Exit Sub
With Selection
If .Count > 1 Then
On Error Resume Next
.SpecialCells(xlCellTypeConstants, 23).Select
If Err.Number = 0 Then
For Each c In Selection
c.Value = UCase(c)
Next c
End If
Else
If .HasFormula = True Then Exit Sub
.Value = UCase(.Value)
End If
End With
End Sub

ou, au cas zou... (Majuscule seulement en début de phrase)

Sub majDeb()
Dim c As Range
Application.ScreenUpdating = False
If Application.CountA(Selection) = 0 Then Exit Sub
With Selection
If .Count > 1 Then
On Error Resume Next
.SpecialCells(xlCellTypeConstants, 23).Select
If Err.Number = 0 Then
For Each c In Selection
c.Value = UCase(Left(c.Value, 1)) _
& LCase(Mid(c.Value, 2, Len(c.Value)))
Next c
End If
Else
If .HasFormula = True Then Exit Sub
.Value = UCase(Left(c.Value, 1)) _
& LCase(Mid(c.Value, 2, Len(c.Value)))
End If
End With
End Sub

ou encore... Majuscule A Chaque Début De Mot

Sub majDebMot()
Dim c As Range
Application.ScreenUpdating = False
If Application.CountA(Selection) = 0 Then Exit Sub
With Selection
If .Count > 1 Then
On Error Resume Next
.SpecialCells(xlCellTypeConstants, 23).Select
If Err.Number = 0 Then
For Each c In Selection
c.Value = Application.Proper(c)
Next c
End If
Else
If .HasFormula = True Then Exit Sub
.Value = Application.Proper(.Value)
End If
End With
End Sub


ChrisV


"bp" a écrit dans le message de news:
dn1huq$ng1$

Bonjour à tous,

Existe t-il une solution rapide pour transformer les caractères majuscules
d'une colonne en caractères minuscules?

D'avance merci.








--
@+ thierryp


Avatar
jps
:-))))))))))))))))
jps (qui n'intervient plus que dans les cas cruciaux)

"michdenis" a écrit dans le message de news:
%23hFbPGb%
Bonjour JPS,

| michel, ne lit jamais les titres des posts

Tu n'es pas obligé de le dire à tous, il y a bien assez de ceux qui
s'en sont rendu compte après la lecture de quelques messages !!!
;-)

Salutations!


"jps" a écrit dans le message de news:
egv4Fva%
bonjour bp
pour le versa, tu remplaces MINUSCULE par MAJUSCULE...
ah ce michel, ne lit jamais les titres des posts, cré vinzou...
jps

"michdenis" a écrit dans le message de news:
%23SS5Ama%
Bonjour Bp,

Dans une colonne, tu ajoutes la fonction suivante :
=MINUSCULE(A1)
Tu tires sur toute l'étendue de la colonne.

Tu fais un copier-collage spécial / valeur seulement sur ton ancienne
plage de cellules.
Tu effaces ta colonne ayant les formules !


Salutations!


"bp" a écrit dans le message de news:
dn1huq$ng1$
Bonjour à tous,

Existe t-il une solution rapide pour transformer les caractères
majuscules
d'une colonne en caractères minuscules?

D'avance merci.









Avatar
ChrisV
Hau ThierryP,

Pas possible avec la langue des Wasicu...
uniquement s'il s'agit de Lakota ! >:-)


ChrisV


"ThierryP" a écrit dans le message de
news: OVfovUb%
Euh... Et pour une majuscule à la 3eme lettre du 4ème mot, s'il n'est pas
en anglais...c'est possible ???? :-))))))))))

Bonjour bp,

Sub minuS()
Dim c As Range
Application.ScreenUpdating = False
If Application.CountA(Selection) = 0 Then Exit Sub
With Selection
If .Count > 1 Then
On Error Resume Next
.SpecialCells(xlCellTypeConstants, 23).Select
If Err.Number = 0 Then
For Each c In Selection
c.Value = LCase(c)
Next c
End If
Else
If .HasFormula = True Then Exit Sub
.Value = LCase(.Value)
End If
End With
End Sub

ou INVERSEMENT...

Sub majuS()
Dim c As Range
Application.ScreenUpdating = False
If Application.CountA(Selection) = 0 Then Exit Sub
With Selection
If .Count > 1 Then
On Error Resume Next
.SpecialCells(xlCellTypeConstants, 23).Select
If Err.Number = 0 Then
For Each c In Selection
c.Value = UCase(c)
Next c
End If
Else
If .HasFormula = True Then Exit Sub
.Value = UCase(.Value)
End If
End With
End Sub

ou, au cas zou... (Majuscule seulement en début de phrase)

Sub majDeb()
Dim c As Range
Application.ScreenUpdating = False
If Application.CountA(Selection) = 0 Then Exit Sub
With Selection
If .Count > 1 Then
On Error Resume Next
.SpecialCells(xlCellTypeConstants, 23).Select
If Err.Number = 0 Then
For Each c In Selection
c.Value = UCase(Left(c.Value, 1)) _
& LCase(Mid(c.Value, 2, Len(c.Value)))
Next c
End If
Else
If .HasFormula = True Then Exit Sub
.Value = UCase(Left(c.Value, 1)) _
& LCase(Mid(c.Value, 2, Len(c.Value)))
End If
End With
End Sub

ou encore... Majuscule A Chaque Début De Mot

Sub majDebMot()
Dim c As Range
Application.ScreenUpdating = False
If Application.CountA(Selection) = 0 Then Exit Sub
With Selection
If .Count > 1 Then
On Error Resume Next
.SpecialCells(xlCellTypeConstants, 23).Select
If Err.Number = 0 Then
For Each c In Selection
c.Value = Application.Proper(c)
Next c
End If
Else
If .HasFormula = True Then Exit Sub
.Value = Application.Proper(.Value)
End If
End With
End Sub


ChrisV


"bp" a écrit dans le message de news:
dn1huq$ng1$

Bonjour à tous,

Existe t-il une solution rapide pour transformer les caractères
majuscules d'une colonne en caractères minuscules?

D'avance merci.








--
@+ thierryp