Bonjour à toutes et à tous.
Comment faire, en VBA, pour que chaque entrée soit mise en majuscule ?
Par avance merci
Bonjour à toutes et à tous.
Comment faire, en VBA, pour que chaque entrée soit mise en majuscule ?
Par avance merci
Bonjour à toutes et à tous.
Comment faire, en VBA, pour que chaque entrée soit mise en majuscule ?
Par avance merci
Bonjour,
Dans le module feuille de ta feuille de calcul où l'action se déroule,
copie ce qui suit :
Dans l'exemple suivant, la mise en majuscule s'applique pour
la plage A1:G25 seulement. À toi de déterminer quelle est la
plage de la feuille de ton application où la macro doit être effective.
'------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(Target, Range("A1:G25"))
If Not Rg Is Nothing Then
For Each C In Rg
C.Value = UCase(C.Value)
Next
End If
End Sub
'------------------------------
"Demokos" a écrit dans le message de groupe de discussion :
4a9bc9ac$0$31263$
Bonjour à toutes et à tous.
Comment faire, en VBA, pour que chaque entrée soit mise en majuscule ?
Par avance merci
Bonjour,
Dans le module feuille de ta feuille de calcul où l'action se déroule,
copie ce qui suit :
Dans l'exemple suivant, la mise en majuscule s'applique pour
la plage A1:G25 seulement. À toi de déterminer quelle est la
plage de la feuille de ton application où la macro doit être effective.
'------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(Target, Range("A1:G25"))
If Not Rg Is Nothing Then
For Each C In Rg
C.Value = UCase(C.Value)
Next
End If
End Sub
'------------------------------
"Demokos" <nospam.demokos@free.fr> a écrit dans le message de groupe de discussion :
4a9bc9ac$0$31263$426a34cc@news.free.fr...
Bonjour à toutes et à tous.
Comment faire, en VBA, pour que chaque entrée soit mise en majuscule ?
Par avance merci
Bonjour,
Dans le module feuille de ta feuille de calcul où l'action se déroule,
copie ce qui suit :
Dans l'exemple suivant, la mise en majuscule s'applique pour
la plage A1:G25 seulement. À toi de déterminer quelle est la
plage de la feuille de ton application où la macro doit être effective.
'------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(Target, Range("A1:G25"))
If Not Rg Is Nothing Then
For Each C In Rg
C.Value = UCase(C.Value)
Next
End If
End Sub
'------------------------------
"Demokos" a écrit dans le message de groupe de discussion :
4a9bc9ac$0$31263$
Bonjour à toutes et à tous.
Comment faire, en VBA, pour que chaque entrée soit mise en majuscule ?
Par avance merci
Bonjour,
Dans le module feuille de ta feuille de calcul où l'action se déroule,
copie ce qui suit :
Dans l'exemple suivant, la mise en majuscule s'applique pour
la plage A1:G25 seulement. À toi de déterminer quelle est la
plage de la feuille de ton application où la macro doit être effective.
'------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(Target, Range("A1:G25"))
If Not Rg Is Nothing Then
For Each C In Rg
C.Value = UCase(C.Value)
Next
End If
End Sub
'------------------------------
"Demokos" a écrit dans le message de groupe de discussion :
4a9bc9ac$0$31263$
Bonjour à toutes et à tous.
Comment faire, en VBA, pour que chaque entrée soit mise en majuscule ?
Par avance merci
Bonjour,
Dans le module feuille de ta feuille de calcul où l'action se déroule,
copie ce qui suit :
Dans l'exemple suivant, la mise en majuscule s'applique pour
la plage A1:G25 seulement. À toi de déterminer quelle est la
plage de la feuille de ton application où la macro doit être effective.
'------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(Target, Range("A1:G25"))
If Not Rg Is Nothing Then
For Each C In Rg
C.Value = UCase(C.Value)
Next
End If
End Sub
'------------------------------
"Demokos" <nospam.demokos@free.fr> a écrit dans le message de groupe de discussion :
4a9bc9ac$0$31263$426a34cc@news.free.fr...
Bonjour à toutes et à tous.
Comment faire, en VBA, pour que chaque entrée soit mise en majuscule ?
Par avance merci
Bonjour,
Dans le module feuille de ta feuille de calcul où l'action se déroule,
copie ce qui suit :
Dans l'exemple suivant, la mise en majuscule s'applique pour
la plage A1:G25 seulement. À toi de déterminer quelle est la
plage de la feuille de ton application où la macro doit être effective.
'------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(Target, Range("A1:G25"))
If Not Rg Is Nothing Then
For Each C In Rg
C.Value = UCase(C.Value)
Next
End If
End Sub
'------------------------------
"Demokos" a écrit dans le message de groupe de discussion :
4a9bc9ac$0$31263$
Bonjour à toutes et à tous.
Comment faire, en VBA, pour que chaque entrée soit mise en majuscule ?
Par avance merci
Merci à FS et à MichDenis,
mais y a-t-il une façon de faire en sorte que ça s'applique à toute la
feuille, et non seulement à une plage ? Range("A1:IV65535"), peut-être
?(XL 2003)
MichDenis a écrit :Bonjour,
Dans le module feuille de ta feuille de calcul où l'action se déroule,
copie ce qui suit :
Dans l'exemple suivant, la mise en majuscule s'applique pour
la plage A1:G25 seulement. À toi de déterminer quelle est la
plage de la feuille de ton application où la macro doit être effective.
'------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(Target, Range("A1:G25"))
If Not Rg Is Nothing Then
For Each C In Rg
C.Value = UCase(C.Value)
Next
End If
End Sub
'------------------------------
"Demokos" a écrit dans le message de groupe de
discussion : 4a9bc9ac$0$31263$
Bonjour à toutes et à tous.
Comment faire, en VBA, pour que chaque entrée soit mise en majuscule ?
Par avance merci
Merci à FS et à MichDenis,
mais y a-t-il une façon de faire en sorte que ça s'applique à toute la
feuille, et non seulement à une plage ? Range("A1:IV65535"), peut-être
?(XL 2003)
MichDenis a écrit :
Bonjour,
Dans le module feuille de ta feuille de calcul où l'action se déroule,
copie ce qui suit :
Dans l'exemple suivant, la mise en majuscule s'applique pour
la plage A1:G25 seulement. À toi de déterminer quelle est la
plage de la feuille de ton application où la macro doit être effective.
'------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(Target, Range("A1:G25"))
If Not Rg Is Nothing Then
For Each C In Rg
C.Value = UCase(C.Value)
Next
End If
End Sub
'------------------------------
"Demokos" <nospam.demokos@free.fr> a écrit dans le message de groupe de
discussion : 4a9bc9ac$0$31263$426a34cc@news.free.fr...
Bonjour à toutes et à tous.
Comment faire, en VBA, pour que chaque entrée soit mise en majuscule ?
Par avance merci
Merci à FS et à MichDenis,
mais y a-t-il une façon de faire en sorte que ça s'applique à toute la
feuille, et non seulement à une plage ? Range("A1:IV65535"), peut-être
?(XL 2003)
MichDenis a écrit :Bonjour,
Dans le module feuille de ta feuille de calcul où l'action se déroule,
copie ce qui suit :
Dans l'exemple suivant, la mise en majuscule s'applique pour
la plage A1:G25 seulement. À toi de déterminer quelle est la
plage de la feuille de ton application où la macro doit être effective.
'------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(Target, Range("A1:G25"))
If Not Rg Is Nothing Then
For Each C In Rg
C.Value = UCase(C.Value)
Next
End If
End Sub
'------------------------------
"Demokos" a écrit dans le message de groupe de
discussion : 4a9bc9ac$0$31263$
Bonjour à toutes et à tous.
Comment faire, en VBA, pour que chaque entrée soit mise en majuscule ?
Par avance merci
Utilise ce code :
'---------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
For Each C In Target
Application.EnableEvents = False
If C <> "" Then
C.Value = UCase(C.Value)
End If
Application.EnableEvents = True
Next
End Sub
'---------------------------------
"Demokos" a écrit dans le message de groupe de
discussion :
4a9bd3b0$0$22558$
Merci à FS et à MichDenis,
mais y a-t-il une façon de faire en sorte que ça s'applique à toute la
feuille, et non seulement à une plage ? Range("A1:IV65535"), peut-être
?(XL 2003)
MichDenis a écrit :Bonjour,
Dans le module feuille de ta feuille de calcul où l'action se déroule,
copie ce qui suit :
Dans l'exemple suivant, la mise en majuscule s'applique pour
la plage A1:G25 seulement. À toi de déterminer quelle est la
plage de la feuille de ton application où la macro doit être effective.
'------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(Target, Range("A1:G25"))
If Not Rg Is Nothing Then
For Each C In Rg
C.Value = UCase(C.Value)
Next
End If
End Sub
'------------------------------
"Demokos" a écrit dans le message de groupe de
discussion :
4a9bc9ac$0$31263$
Bonjour à toutes et à tous.
Comment faire, en VBA, pour que chaque entrée soit mise en majuscule ?
Par avance merci
Utilise ce code :
'---------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
For Each C In Target
Application.EnableEvents = False
If C <> "" Then
C.Value = UCase(C.Value)
End If
Application.EnableEvents = True
Next
End Sub
'---------------------------------
"Demokos" <nospam.demokos@free.fr> a écrit dans le message de groupe de
discussion :
4a9bd3b0$0$22558$426a34cc@news.free.fr...
Merci à FS et à MichDenis,
mais y a-t-il une façon de faire en sorte que ça s'applique à toute la
feuille, et non seulement à une plage ? Range("A1:IV65535"), peut-être
?(XL 2003)
MichDenis a écrit :
Bonjour,
Dans le module feuille de ta feuille de calcul où l'action se déroule,
copie ce qui suit :
Dans l'exemple suivant, la mise en majuscule s'applique pour
la plage A1:G25 seulement. À toi de déterminer quelle est la
plage de la feuille de ton application où la macro doit être effective.
'------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(Target, Range("A1:G25"))
If Not Rg Is Nothing Then
For Each C In Rg
C.Value = UCase(C.Value)
Next
End If
End Sub
'------------------------------
"Demokos" <nospam.demokos@free.fr> a écrit dans le message de groupe de
discussion :
4a9bc9ac$0$31263$426a34cc@news.free.fr...
Bonjour à toutes et à tous.
Comment faire, en VBA, pour que chaque entrée soit mise en majuscule ?
Par avance merci
Utilise ce code :
'---------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
For Each C In Target
Application.EnableEvents = False
If C <> "" Then
C.Value = UCase(C.Value)
End If
Application.EnableEvents = True
Next
End Sub
'---------------------------------
"Demokos" a écrit dans le message de groupe de
discussion :
4a9bd3b0$0$22558$
Merci à FS et à MichDenis,
mais y a-t-il une façon de faire en sorte que ça s'applique à toute la
feuille, et non seulement à une plage ? Range("A1:IV65535"), peut-être
?(XL 2003)
MichDenis a écrit :Bonjour,
Dans le module feuille de ta feuille de calcul où l'action se déroule,
copie ce qui suit :
Dans l'exemple suivant, la mise en majuscule s'applique pour
la plage A1:G25 seulement. À toi de déterminer quelle est la
plage de la feuille de ton application où la macro doit être effective.
'------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(Target, Range("A1:G25"))
If Not Rg Is Nothing Then
For Each C In Rg
C.Value = UCase(C.Value)
Next
End If
End Sub
'------------------------------
"Demokos" a écrit dans le message de groupe de
discussion :
4a9bc9ac$0$31263$
Bonjour à toutes et à tous.
Comment faire, en VBA, pour que chaque entrée soit mise en majuscule ?
Par avance merci
Ave le magicien,
J'avais la même chose mais sans
Application.EnableEvents = False
et
Application.EnableEvents = True
Pas osé publier ma patente, beaucoup trop lent c'était.
Quant au clic et double-clic sur un même bouton,
il me semble avoir déjà vu cette possibilité ici-même
il y a plusieurs années.
Serge
"MichDenis" a écrit dans le message de news:Utilise ce code :
'---------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
For Each C In Target
Application.EnableEvents = False
If C <> "" Then
C.Value = UCase(C.Value)
End If
Application.EnableEvents = True
Next
End Sub
'---------------------------------
"Demokos" a écrit dans le message de groupe de
discussion :
4a9bd3b0$0$22558$
Merci à FS et à MichDenis,
mais y a-t-il une façon de faire en sorte que ça s'applique à toute la
feuille, et non seulement à une plage ? Range("A1:IV65535"), peut-être
?(XL 2003)
MichDenis a écrit :Bonjour,
Dans le module feuille de ta feuille de calcul où l'action se déroule,
copie ce qui suit :
Dans l'exemple suivant, la mise en majuscule s'applique pour
la plage A1:G25 seulement. À toi de déterminer quelle est la
plage de la feuille de ton application où la macro doit être effective.
'------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(Target, Range("A1:G25"))
If Not Rg Is Nothing Then
For Each C In Rg
C.Value = UCase(C.Value)
Next
End If
End Sub
'------------------------------
"Demokos" a écrit dans le message de groupe de
discussion :
4a9bc9ac$0$31263$
Bonjour à toutes et à tous.
Comment faire, en VBA, pour que chaque entrée soit mise en majuscule ?
Par avance merci
Ave le magicien,
J'avais la même chose mais sans
Application.EnableEvents = False
et
Application.EnableEvents = True
Pas osé publier ma patente, beaucoup trop lent c'était.
Quant au clic et double-clic sur un même bouton,
il me semble avoir déjà vu cette possibilité ici-même
il y a plusieurs années.
Serge
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
ewysQOkKKHA.4608@TK2MSFTNGP02.phx.gbl...
Utilise ce code :
'---------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
For Each C In Target
Application.EnableEvents = False
If C <> "" Then
C.Value = UCase(C.Value)
End If
Application.EnableEvents = True
Next
End Sub
'---------------------------------
"Demokos" <nospam.demokos@free.fr> a écrit dans le message de groupe de
discussion :
4a9bd3b0$0$22558$426a34cc@news.free.fr...
Merci à FS et à MichDenis,
mais y a-t-il une façon de faire en sorte que ça s'applique à toute la
feuille, et non seulement à une plage ? Range("A1:IV65535"), peut-être
?(XL 2003)
MichDenis a écrit :
Bonjour,
Dans le module feuille de ta feuille de calcul où l'action se déroule,
copie ce qui suit :
Dans l'exemple suivant, la mise en majuscule s'applique pour
la plage A1:G25 seulement. À toi de déterminer quelle est la
plage de la feuille de ton application où la macro doit être effective.
'------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(Target, Range("A1:G25"))
If Not Rg Is Nothing Then
For Each C In Rg
C.Value = UCase(C.Value)
Next
End If
End Sub
'------------------------------
"Demokos" <nospam.demokos@free.fr> a écrit dans le message de groupe de
discussion :
4a9bc9ac$0$31263$426a34cc@news.free.fr...
Bonjour à toutes et à tous.
Comment faire, en VBA, pour que chaque entrée soit mise en majuscule ?
Par avance merci
Ave le magicien,
J'avais la même chose mais sans
Application.EnableEvents = False
et
Application.EnableEvents = True
Pas osé publier ma patente, beaucoup trop lent c'était.
Quant au clic et double-clic sur un même bouton,
il me semble avoir déjà vu cette possibilité ici-même
il y a plusieurs années.
Serge
"MichDenis" a écrit dans le message de news:Utilise ce code :
'---------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
For Each C In Target
Application.EnableEvents = False
If C <> "" Then
C.Value = UCase(C.Value)
End If
Application.EnableEvents = True
Next
End Sub
'---------------------------------
"Demokos" a écrit dans le message de groupe de
discussion :
4a9bd3b0$0$22558$
Merci à FS et à MichDenis,
mais y a-t-il une façon de faire en sorte que ça s'applique à toute la
feuille, et non seulement à une plage ? Range("A1:IV65535"), peut-être
?(XL 2003)
MichDenis a écrit :Bonjour,
Dans le module feuille de ta feuille de calcul où l'action se déroule,
copie ce qui suit :
Dans l'exemple suivant, la mise en majuscule s'applique pour
la plage A1:G25 seulement. À toi de déterminer quelle est la
plage de la feuille de ton application où la macro doit être effective.
'------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(Target, Range("A1:G25"))
If Not Rg Is Nothing Then
For Each C In Rg
C.Value = UCase(C.Value)
Next
End If
End Sub
'------------------------------
"Demokos" a écrit dans le message de groupe de
discussion :
4a9bc9ac$0$31263$
Bonjour à toutes et à tous.
Comment faire, en VBA, pour que chaque entrée soit mise en majuscule ?
Par avance merci
Merci à FS et à MichDenis,
mais y a-t-il une façon de faire en sorte que ça s'applique à toute la
feuille, et non seulement à une plage ? Range("A1:IV65535"), peut-êtr e
?(XL 2003)
MichDenis a écrit :
> Bonjour,
> Dans le module feuille de ta feuille de calcul où l'action se dérou le,
> copie ce qui suit :
> Dans l'exemple suivant, la mise en majuscule s'applique pour
> la plage A1:G25 seulement. À toi de déterminer quelle est la
> plage de la feuille de ton application où la macro doit être effect ive.
> '------------------------------
> Private Sub Worksheet_Change(ByVal Target As Range)
> Dim Rg As Range, C As Range
> Set Rg = Intersect(Target, Range("A1:G25"))
> If Not Rg Is Nothing Then
> For Each C In Rg
> C.Value = UCase(C.Value)
> Next
> End If
> End Sub
> '------------------------------
> "Demokos" a écrit dans le message de groupe de discussion :
> 4a9bc9ac$0$31263$
> Bonjour à toutes et à tous.
> Comment faire, en VBA, pour que chaque entrée soit mise en majuscule ?
> Par avance merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci à FS et à MichDenis,
mais y a-t-il une façon de faire en sorte que ça s'applique à toute la
feuille, et non seulement à une plage ? Range("A1:IV65535"), peut-êtr e
?(XL 2003)
MichDenis a écrit :
> Bonjour,
> Dans le module feuille de ta feuille de calcul où l'action se dérou le,
> copie ce qui suit :
> Dans l'exemple suivant, la mise en majuscule s'applique pour
> la plage A1:G25 seulement. À toi de déterminer quelle est la
> plage de la feuille de ton application où la macro doit être effect ive.
> '------------------------------
> Private Sub Worksheet_Change(ByVal Target As Range)
> Dim Rg As Range, C As Range
> Set Rg = Intersect(Target, Range("A1:G25"))
> If Not Rg Is Nothing Then
> For Each C In Rg
> C.Value = UCase(C.Value)
> Next
> End If
> End Sub
> '------------------------------
> "Demokos" <nospam.demo...@free.fr> a écrit dans le message de groupe de discussion :
> 4a9bc9ac$0$31263$426a3...@news.free.fr...
> Bonjour à toutes et à tous.
> Comment faire, en VBA, pour que chaque entrée soit mise en majuscule ?
> Par avance merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci à FS et à MichDenis,
mais y a-t-il une façon de faire en sorte que ça s'applique à toute la
feuille, et non seulement à une plage ? Range("A1:IV65535"), peut-êtr e
?(XL 2003)
MichDenis a écrit :
> Bonjour,
> Dans le module feuille de ta feuille de calcul où l'action se dérou le,
> copie ce qui suit :
> Dans l'exemple suivant, la mise en majuscule s'applique pour
> la plage A1:G25 seulement. À toi de déterminer quelle est la
> plage de la feuille de ton application où la macro doit être effect ive.
> '------------------------------
> Private Sub Worksheet_Change(ByVal Target As Range)
> Dim Rg As Range, C As Range
> Set Rg = Intersect(Target, Range("A1:G25"))
> If Not Rg Is Nothing Then
> For Each C In Rg
> C.Value = UCase(C.Value)
> Next
> End If
> End Sub
> '------------------------------
> "Demokos" a écrit dans le message de groupe de discussion :
> 4a9bc9ac$0$31263$
> Bonjour à toutes et à tous.
> Comment faire, en VBA, pour que chaque entrée soit mise en majuscule ?
> Par avance merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -