j'aimerais savoir comment, en VBA, faire pour remplir automatiquement des
cellules en majuscules, sachant que j'ai plusieurs colonnes qui sont
concernées
cela va des cellules B4:F65535, sachant que les colonnes C D et E sont aussi
concernées
de plus, je voudrais pouvoir mettre automatiquement en majuscule, la
première lettre d'une phrase, ceci dans les cellules allant de H4:J65535
en vous remerciant d'avance pour vos réponses, s'il y en a, bien-sûr
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
JLuc
JLG avait soumis l'idée :
Bonjour à tous
j'aimerais savoir comment, en VBA, faire pour remplir automatiquement des cellules en majuscules, sachant que j'ai plusieurs colonnes qui sont concernées
cela va des cellules B4:F65535, sachant que les colonnes C D et E sont aussi concernées
de plus, je voudrais pouvoir mettre automatiquement en majuscule, la première lettre d'une phrase, ceci dans les cellules allant de H4:J65535
en vous remerciant d'avance pour vos réponses, s'il y en a, bien-sûr
1/ Tout en majuscule : For Each cellule In Range("B4:F65535") cellule = Ucase(cellule) Next
2/ Premiere lettre en majuscule : For Each cellule In Range("H4:J65535") cellule = Ucase(Left(cellule, 1)) & Lcase(Right(cellule, Len(cellule - 1))) Next
-- JLuc
JLG avait soumis l'idée :
Bonjour à tous
j'aimerais savoir comment, en VBA, faire pour remplir automatiquement des
cellules en majuscules, sachant que j'ai plusieurs colonnes qui sont
concernées
cela va des cellules B4:F65535, sachant que les colonnes C D et E sont aussi
concernées
de plus, je voudrais pouvoir mettre automatiquement en majuscule, la première
lettre d'une phrase, ceci dans les cellules allant de H4:J65535
en vous remerciant d'avance pour vos réponses, s'il y en a, bien-sûr
1/ Tout en majuscule :
For Each cellule In Range("B4:F65535")
cellule = Ucase(cellule)
Next
2/ Premiere lettre en majuscule :
For Each cellule In Range("H4:J65535")
cellule = Ucase(Left(cellule, 1)) & Lcase(Right(cellule, Len(cellule
- 1)))
Next
j'aimerais savoir comment, en VBA, faire pour remplir automatiquement des cellules en majuscules, sachant que j'ai plusieurs colonnes qui sont concernées
cela va des cellules B4:F65535, sachant que les colonnes C D et E sont aussi concernées
de plus, je voudrais pouvoir mettre automatiquement en majuscule, la première lettre d'une phrase, ceci dans les cellules allant de H4:J65535
en vous remerciant d'avance pour vos réponses, s'il y en a, bien-sûr
1/ Tout en majuscule : For Each cellule In Range("B4:F65535") cellule = Ucase(cellule) Next
2/ Premiere lettre en majuscule : For Each cellule In Range("H4:J65535") cellule = Ucase(Left(cellule, 1)) & Lcase(Right(cellule, Len(cellule - 1))) Next
-- JLuc
JB
Bonsoir,
En ouvrant le fichier joint, une BO permet de sélectionner un champ pour le transformer en majusc, minusc, nompropre pour n'importe quelle classeur.
http://cjoint.com/?kkuRwB0CPX
Pour créer une commande Edition/Majuscules dans le menu Excel (donc pour tous les classeurs):
- Affichage/Barres outils/Personnaliser - Onglet Commandes - Choisir Macros - Faire glisser Elément de menu Personnalisé dans le menu Editions . - Clic droit sur Elément permet d'affecter la Macro Majuscule()
Sub Majuscule() For Each c In Selection If Not c.HasFormula Then c.Value = UCase(c.Value) Next c End Sub
Sub Minuscule() For Each c In Selection If Not c.HasFormula Then c.Value = LCase(c.Value) Next c End Sub
Sub nompropre() For Each c In Selection If Not c.HasFormula Then c.Value = Application.Proper(c.Value) Next c End Sub
Cordialement JB
Bonjour à tous
j'aimerais savoir comment, en VBA, faire pour remplir automatiquement des cellules en majuscules, sachant que j'ai plusieurs colonnes qui sont concernées
cela va des cellules B4:F65535, sachant que les colonnes C D et E sont au ssi concernées
de plus, je voudrais pouvoir mettre automatiquement en majuscule, la première lettre d'une phrase, ceci dans les cellules allant de H4:J65535
en vous remerciant d'avance pour vos réponses, s'il y en a, bien-sûr
-- retirer "toto" de mon adresse E-mail
Bonsoir,
En ouvrant le fichier joint, une BO permet de sélectionner un champ
pour le transformer en majusc, minusc, nompropre pour n'importe quelle
classeur.
http://cjoint.com/?kkuRwB0CPX
Pour créer une commande Edition/Majuscules dans le menu Excel (donc
pour tous les classeurs):
- Affichage/Barres outils/Personnaliser
- Onglet Commandes
- Choisir Macros
- Faire glisser Elément de menu Personnalisé dans le menu Editions .
- Clic droit sur Elément permet d'affecter la Macro Majuscule()
Sub Majuscule()
For Each c In Selection
If Not c.HasFormula Then c.Value = UCase(c.Value)
Next c
End Sub
Sub Minuscule()
For Each c In Selection
If Not c.HasFormula Then c.Value = LCase(c.Value)
Next c
End Sub
Sub nompropre()
For Each c In Selection
If Not c.HasFormula Then c.Value = Application.Proper(c.Value)
Next c
End Sub
Cordialement JB
Bonjour à tous
j'aimerais savoir comment, en VBA, faire pour remplir automatiquement des
cellules en majuscules, sachant que j'ai plusieurs colonnes qui sont
concernées
cela va des cellules B4:F65535, sachant que les colonnes C D et E sont au ssi
concernées
de plus, je voudrais pouvoir mettre automatiquement en majuscule, la
première lettre d'une phrase, ceci dans les cellules allant de H4:J65535
en vous remerciant d'avance pour vos réponses, s'il y en a, bien-sûr
En ouvrant le fichier joint, une BO permet de sélectionner un champ pour le transformer en majusc, minusc, nompropre pour n'importe quelle classeur.
http://cjoint.com/?kkuRwB0CPX
Pour créer une commande Edition/Majuscules dans le menu Excel (donc pour tous les classeurs):
- Affichage/Barres outils/Personnaliser - Onglet Commandes - Choisir Macros - Faire glisser Elément de menu Personnalisé dans le menu Editions . - Clic droit sur Elément permet d'affecter la Macro Majuscule()
Sub Majuscule() For Each c In Selection If Not c.HasFormula Then c.Value = UCase(c.Value) Next c End Sub
Sub Minuscule() For Each c In Selection If Not c.HasFormula Then c.Value = LCase(c.Value) Next c End Sub
Sub nompropre() For Each c In Selection If Not c.HasFormula Then c.Value = Application.Proper(c.Value) Next c End Sub
Cordialement JB
Bonjour à tous
j'aimerais savoir comment, en VBA, faire pour remplir automatiquement des cellules en majuscules, sachant que j'ai plusieurs colonnes qui sont concernées
cela va des cellules B4:F65535, sachant que les colonnes C D et E sont au ssi concernées
de plus, je voudrais pouvoir mettre automatiquement en majuscule, la première lettre d'une phrase, ceci dans les cellules allant de H4:J65535
en vous remerciant d'avance pour vos réponses, s'il y en a, bien-sûr
