Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

mettre en majuscule toutes les cellules d'une plage

5 réponses
Avatar
arkangel
bonsoir,
dans un fichier excel comment peut on faire pour avoir le contenue des
cellules en majuscule via une macro
j'ai ce bout de code mais je ne sais pas ou le mettre.
je souhaite lorsque l'on ecrit un nom et prenom que ca soit mis
automatiquement en majuscule

Dim cellule As Range
For Each cellule In Feuil2.Range("A2:B50")
UCase (cellule)
Next cellule
Merci de vos lumieres
les miennes sont eteintes

--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com

5 réponses

Avatar
...Patrick
Salut,
tu ouvres l'editeur vba par ALT F11 et tu y colles ton texte dans un
module nouveau s'il le faut par insertion / module ...
Puis tu peux affecter cette macro à un bouton que tu insères ds ta
feuille ou par un autre moyen comme les menus ,etc...

Bye


arkangel wrote:
bonsoir,
dans un fichier excel comment peut on faire pour avoir le contenue des
cellules en majuscule via une macro
j'ai ce bout de code mais je ne sais pas ou le mettre.
je souhaite lorsque l'on ecrit un nom et prenom que ca soit mis
automatiquement en majuscule

Dim cellule As Range
For Each cellule In Feuil2.Range("A2:B50")
UCase (cellule)
Next cellule
Merci de vos lumieres
les miennes sont eteintes



Avatar
arkangel
...Patrick a utilisé son clavier pour écrire :
Salut,
tu ouvres l'editeur vba par ALT F11 et tu y colles ton texte dans un module
nouveau s'il le faut par insertion / module ...
Puis tu peux affecter cette macro à un bouton que tu insères ds ta feuille ou
par un autre moyen comme les menus ,etc...

Bye


arkangel wrote:
bonsoir,
dans un fichier excel comment peut on faire pour avoir le contenue des
cellules en majuscule via une macro
j'ai ce bout de code mais je ne sais pas ou le mettre.
je souhaite lorsque l'on ecrit un nom et prenom que ca soit mis
automatiquement en majuscule

Dim cellule As Range
For Each cellule In Feuil2.Range("A2:B50")
UCase (cellule)
Next cellule
Merci de vos lumieres
les miennes sont eteintes




salut
je l'ai mis dans un bouton mais ca marche pas
je voudrais eviter l'utilisation d'un bouton.
Est il possible que dans la cellule quand on tape le nom apres en
changeant de cellule la cette dernière passe en majuscule

--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com


Avatar
...Patrick
pour la colonne c:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("C")) Is Nothing Then
Target = UCase(Target)
End If
End Sub
voilà !

Ciao




arkangel wrote:
...Patrick a utilisé son clavier pour écrire :

Salut,
tu ouvres l'editeur vba par ALT F11 et tu y colles ton texte dans un
module nouveau s'il le faut par insertion / module ...
Puis tu peux affecter cette macro à un bouton que tu insères ds ta
feuille ou par un autre moyen comme les menus ,etc...

Bye


arkangel wrote:

bonsoir,
dans un fichier excel comment peut on faire pour avoir le contenue
des cellules en majuscule via une macro
j'ai ce bout de code mais je ne sais pas ou le mettre.
je souhaite lorsque l'on ecrit un nom et prenom que ca soit mis
automatiquement en majuscule

Dim cellule As Range
For Each cellule In Feuil2.Range("A2:B50")
UCase (cellule)
Next cellule
Merci de vos lumieres
les miennes sont eteintes




salut
je l'ai mis dans un bouton mais ca marche pas
je voudrais eviter l'utilisation d'un bouton.
Est il possible que dans la cellule quand on tape le nom apres en
changeant de cellule la cette dernière passe en majuscule





Avatar
arkangel
...Patrick a formulé la demande :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("C")) Is Nothing Then
Target = UCase(Target)
End If
End Sub


Merci beaucoup

--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com

Avatar
...Patrick
pas de quoi

Ciao


arkangel wrote:
...Patrick a formulé la demande :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("C")) Is Nothing Then
Target = UCase(Target)
End If
End Sub



Merci beaucoup