Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Mettre tout en majuscule sous macro

Mettre tout en majuscule sous macro

8 réponses
Avatar
titou
Bonjour,
j'ai un code pour mettre tout en majuscule mais je suis obligé de le mettre
dans le module de la feuille, je voudrai un code que je puiss affecter a un
bouton.

voici mon code utilisé :
Private sub Worksheet_Change(ByVal target As Range)
On Error Resume Next
If Not Intersect(Target, Range("A16:A100")) Is Nothiung Then
Target = UCase(Target)
End If
End sub


Merci d'avance

Thierry
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
Fredo P.
Bj
À installer dans le Perso

Public Sub Majuscule()
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
If Asc(Left(ActiveCell, 1)) < 91 Then
ActiveCell = LCase(ActiveCell)
Else
ActiveCell = UCase(ActiveCell)
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

"titou" a écrit dans le message de news:

Bonjour,
j'ai un code pour mettre tout en majuscule mais je suis obligé de le
mettre

dans le module de la feuille, je voudrai un code que je puiss affecter a
un

bouton.

Merci d'avance

Thierry


Avatar
titou
Bonjour Fredo,

Le perso tu veux dire quoi par la a mettre dans le workbook du classeur
perso ?

thierry


Bj
À installer dans le Perso

Public Sub Majuscule()
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
If Asc(Left(ActiveCell, 1)) < 91 Then
ActiveCell = LCase(ActiveCell)
Else
ActiveCell = UCase(ActiveCell)
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

"titou" a écrit dans le message de news:

Bonjour,
j'ai un code pour mettre tout en majuscule mais je suis obligé de le
mettre

dans le module de la feuille, je voudrai un code que je puiss affecter a
un

bouton.

Merci d'avance

Thierry







Avatar
satanas09
Bonjour,

une boucle For ... Each :

Private Sub CommandButton1_Click()
Dim c As Range
For Each c In ThisWorkbook.Sheets("Feuil1").Range("A16:A100")
c = UCase(c)
Next
End Sub




"titou" a écrit dans le message de news:

Bonjour,
j'ai un code pour mettre tout en majuscule mais je suis obligé de le
mettre
dans le module de la feuille, je voudrai un code que je puiss affecter a
un
bouton.

voici mon code utilisé :
Private sub Worksheet_Change(ByVal target As Range)
On Error Resume Next
If Not Intersect(Target, Range("A16:A100")) Is Nothiung Then
Target = UCase(Target)
End If
End sub


Merci d'avance

Thierry


Avatar
Fredo P.
"titou" a écrit dans le message de news:

Bonjour Fredo,

Le perso tu veux dire quoi par la a mettre dans le workbook du classeur
perso ? non non ;dans un module du classeur Perso.
NB
Sur Xl97 pour créer le classeur de macro perso, il suffit de démarrer

l'enregistreur de macro: Outils> Macro>Nouvelle Macro: choisir "Classeur de
macros personnelles" ensuite faire n'importe quoi sur la feuille puis
arrêter l'enregistreur de macro c'est tout.
Ce classeur ce trouve, (toujours sur Xcel 97), dans le dossier "XlOuvrir" ou
suivant une autre version d'Xl dans "Xlstart"
Si c'est pas encore tout à fait clair , n'hésite pas

Avatar
AndréBdR
J'adore.


"satanas09" <satanas09(A_SUPP)@gmail.com> a écrit dans le message de news:

Bonjour,

une boucle For ... Each :

Private Sub CommandButton1_Click()
Dim c As Range
For Each c In ThisWorkbook.Sheets("Feuil1").Range("A16:A100")
c = UCase(c)
Next
End Sub




"titou" a écrit dans le message de news:

Bonjour,
j'ai un code pour mettre tout en majuscule mais je suis obligé de le
mettre
dans le module de la feuille, je voudrai un code que je puiss affecter a
un
bouton.

voici mon code utilisé :
Private sub Worksheet_Change(ByVal target As Range)
On Error Resume Next
If Not Intersect(Target, Range("A16:A100")) Is Nothiung Then
Target = UCase(Target)
End If
End sub


Merci d'avance

Thierry






Avatar
satanas09
@AndréBdR>>?? "J'adore" ....? la j'ai pas compris..?


"AndréBdR" a écrit dans le message de
news:
J'adore.


"satanas09" <satanas09(A_SUPP)@gmail.com> a écrit dans le message de news:

Bonjour,

une boucle For ... Each :

Private Sub CommandButton1_Click()
Dim c As Range
For Each c In ThisWorkbook.Sheets("Feuil1").Range("A16:A100")
c = UCase(c)
Next
End Sub




"titou" a écrit dans le message de
news:
Bonjour,
j'ai un code pour mettre tout en majuscule mais je suis obligé de le
mettre
dans le module de la feuille, je voudrai un code que je puiss affecter a
un
bouton.

voici mon code utilisé :
Private sub Worksheet_Change(ByVal target As Range)
On Error Resume Next
If Not Intersect(Target, Range("A16:A100")) Is Nothiung Then
Target = UCase(Target)
End If
End sub


Merci d'avance

Thierry










Avatar
Fredo P.
"satanas09" <satanas09(A_SUPP)@gmail.com> a écrit dans le message de news:
#
@AndréBdR>>?? "J'adore" ....? la j'ai pas compris..?


De AV du même acabits.
il faut comprendre ce que l'interlocuteur souhaitait que l'on comprenne et
non pas comprendre se qu'il nous explique.

Avatar
AndréBdR
Ben, il n'y avait rien à comprendre, hormis, tout bonnement, que
j'appréciais ta solution, et que j'avais envie de le dire.
Bonne nuit Satanas09.

"satanas09" <satanas09(A_SUPP)@gmail.com> a écrit dans le message de news:
%
@AndréBdR>>?? "J'adore" ....? la j'ai pas compris..?


"AndréBdR" a écrit dans le message de
news:
J'adore.


"satanas09" <satanas09(A_SUPP)@gmail.com> a écrit dans le message de
news:
Bonjour,

une boucle For ... Each :

Private Sub CommandButton1_Click()
Dim c As Range
For Each c In ThisWorkbook.Sheets("Feuil1").Range("A16:A100")
c = UCase(c)
Next
End Sub




"titou" a écrit dans le message de
news:
Bonjour,
j'ai un code pour mettre tout en majuscule mais je suis obligé de le
mettre
dans le module de la feuille, je voudrai un code que je puiss affecter
a un
bouton.

voici mon code utilisé :
Private sub Worksheet_Change(ByVal target As Range)
On Error Resume Next
If Not Intersect(Target, Range("A16:A100")) Is Nothiung Then
Target = UCase(Target)
End If
End sub


Merci d'avance

Thierry