bonjours la roum
c'est ptifred qui est toujours dans la panade
voila j'aimerais que la saisie je fasse obligatoirement en majuscule en fait
il faut qu'a l'ouverture du classeur le touche caps lock soit mise et non
modifiable est ce possible
bonjours la roum c'est ptifred qui est toujours dans la panade
voila j'aimerais que la saisie je fasse obligatoirement en majuscule en fait
il faut qu'a l'ouverture du classeur le touche caps lock soit mise et non modifiable est ce possible
merci ptifred
ChrisV
Bonjour pPTIFRED,
Dans la feuille de code de l'onglet concerné, en supposant que cette action s'applique à la plage de cellules nommée ici Zn...
Private Sub Worksheet_Change(ByVal Target As Excel.Range) On Error Resume Next If Not Intersect(Target, Range("Zn")) Is Nothing Then _ Target.Value = UCase(Target.Value) End Sub
Si cela concerne toutes les cellules de la feuille de calcul...
Private Sub Worksheet_Change(ByVal Target As Excel.Range) On Error Resume Next Target.Value = UCase(Target.Value) End Sub
ChrisV
"pPTIFRED" a écrit dans le message de news:
bonjours la roum c'est ptifred qui est toujours dans la panade
voila j'aimerais que la saisie je fasse obligatoirement en majuscule en fait il faut qu'a l'ouverture du classeur le touche caps lock soit mise et non modifiable est ce possible
merci ptifred
Bonjour pPTIFRED,
Dans la feuille de code de l'onglet concerné, en supposant que cette action
s'applique à la plage de cellules nommée ici Zn...
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error Resume Next
If Not Intersect(Target, Range("Zn")) Is Nothing Then _
Target.Value = UCase(Target.Value)
End Sub
Si cela concerne toutes les cellules de la feuille de calcul...
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error Resume Next
Target.Value = UCase(Target.Value)
End Sub
ChrisV
"pPTIFRED" <pPTIFRED@discussions.microsoft.com> a écrit dans le message de
news: D590ACA2-7188-461A-8ADE-590A3C95C4D6@microsoft.com...
bonjours la roum
c'est ptifred qui est toujours dans la panade
voila j'aimerais que la saisie je fasse obligatoirement en majuscule en
fait
il faut qu'a l'ouverture du classeur le touche caps lock soit mise et non
modifiable est ce possible
Dans la feuille de code de l'onglet concerné, en supposant que cette action s'applique à la plage de cellules nommée ici Zn...
Private Sub Worksheet_Change(ByVal Target As Excel.Range) On Error Resume Next If Not Intersect(Target, Range("Zn")) Is Nothing Then _ Target.Value = UCase(Target.Value) End Sub
Si cela concerne toutes les cellules de la feuille de calcul...
Private Sub Worksheet_Change(ByVal Target As Excel.Range) On Error Resume Next Target.Value = UCase(Target.Value) End Sub
ChrisV
"pPTIFRED" a écrit dans le message de news:
bonjours la roum c'est ptifred qui est toujours dans la panade
voila j'aimerais que la saisie je fasse obligatoirement en majuscule en fait il faut qu'a l'ouverture du classeur le touche caps lock soit mise et non modifiable est ce possible