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
AV
Dans le module de la feuille et pour A1 :
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Then Exit Sub Application.EnableEvents = False zz = UCase(zz) Application.EnableEvents = False End Sub
AV
Dans le module de la feuille et pour A1 :
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
zz = UCase(zz)
Application.EnableEvents = False
End Sub
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Then Exit Sub Application.EnableEvents = False zz = UCase(zz) Application.EnableEvents = False End Sub
AV
RaMa
bonjour à mettre dans le module feuil.. Private Sub Worksheet_Change(ByVal Target As Range) Target = UCase(Target) End Sub Salutations RaMa
a écrit dans le message de news: 167a01c50ac2$7c1f33c0$ Bonjour,
j'aimerais que dans une de mes cellules, si on tape en minuscule, ça se convertisse automatiquement en majuscule... comment faire?
merci d'avance!
bonjour
à mettre dans le module feuil..
Private Sub Worksheet_Change(ByVal Target As Range)
Target = UCase(Target)
End Sub
Salutations
RaMa
<anonymous@discussions.microsoft.com> a écrit dans le message de news:
167a01c50ac2$7c1f33c0$a401280a@phx.gbl...
Bonjour,
j'aimerais que dans une de mes cellules, si on tape en
minuscule, ça se convertisse automatiquement en
majuscule... comment faire?
bonjour à mettre dans le module feuil.. Private Sub Worksheet_Change(ByVal Target As Range) Target = UCase(Target) End Sub Salutations RaMa
a écrit dans le message de news: 167a01c50ac2$7c1f33c0$ Bonjour,
j'aimerais que dans une de mes cellules, si on tape en minuscule, ça se convertisse automatiquement en majuscule... comment faire?
merci d'avance!
Ellimac
Bonjour, A attacher à la feuille dans laquelle s'effectue la saisie : Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Target.Value = UCase(Target) End If End Sub
Camille
-----Message d'origine----- Bonjour,
j'aimerais que dans une de mes cellules, si on tape en minuscule, ça se convertisse automatiquement en majuscule... comment faire?
merci d'avance! .
Bonjour,
A attacher à la feuille dans laquelle s'effectue la
saisie :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Target.Value = UCase(Target)
End If
End Sub
Camille
-----Message d'origine-----
Bonjour,
j'aimerais que dans une de mes cellules, si on tape en
minuscule, ça se convertisse automatiquement en
majuscule... comment faire?
Bonjour, A attacher à la feuille dans laquelle s'effectue la saisie : Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Target.Value = UCase(Target) End If End Sub
Camille
-----Message d'origine----- Bonjour,
j'aimerais que dans une de mes cellules, si on tape en minuscule, ça se convertisse automatiquement en majuscule... comment faire?
