Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Polices

Polices

4 réponses
Avatar
Pascal
Bonjour,
Est-il possible par macro et sur une zone déterminée de forcer la saisie en
majuscules et en Wingdings 2 ?
J'ai besoin sur la zone I26:I69 d'avoir que des "coches"

Merci
Pascal




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000731-0, 06/04/2007
Analyse le : 08/04/2007 11:18:47
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Signaler un problème avec ce contenu

4 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
anonymousA
bonjour,

une idée. A mettre dans le module de feuille où tu veux que se produise
l'action.

' Declare Type for API call:
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type

' API declarations:

Private Declare Function GetVersionEx Lib "kernel32" _
Alias "GetVersionExA" _
(lpVersionInformation As OSVERSIONINFO) As Long

Private Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Declare Function GetKeyboardState Lib "user32" _
(pbKeyState As Byte) As Long

Private Declare Function SetKeyboardState Lib "user32" _
(lppbKeyState As Byte) As Long

' Constant declarations:
Const VK_CAPITAL = &H14
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2
Const VER_PLATFORM_WIN32_NT = 2
Const VER_PLATFORM_WIN32_WINDOWS = 1

'auteur inconnu, mpep

Sub VerrouilleCapsLock()
Dim o As OSVERSIONINFO
Dim NumLockState As Boolean
Dim ScrollLockState As Boolean
Dim CapsLockState As Boolean

o.dwOSVersionInfoSize = Len(o)
GetVersionEx o
Dim keys(0 To 255) As Byte
GetKeyboardState keys(0)

' CapsLock handling:
CapsLockState = keys(VK_CAPITAL)
If CapsLockState <> True Then 'Turn capslock on
If o.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then '=== Win95/98
keys(VK_CAPITAL) = 1
SetKeyboardState keys(0)
ElseIf o.dwPlatformId = VER_PLATFORM_WIN32_NT Then '=== WinNT
'Simulate Key Press
keybd_event VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0
'Simulate Key Release
keybd_event VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY _
Or KEYEVENTF_KEYUP, 0
End If
End If

End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Range("I26:I69"), Target) Is Nothing Then
VerrouilleCapsLock
Target.Font.Name = "Wingdings"
Else
Target.Font.Name = "Arial"
End If


End Sub

A+

Bonjour,
Est-il possible par macro et sur une zone déterminée de forcer la saisie en
majuscules et en Wingdings 2 ?
J'ai besoin sur la zone I26:I69 d'avoir que des "coches"

Merci
Pascal




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000731-0, 06/04/2007
Analyse le : 08/04/2007 11:18:47
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com





Avatar
Pascal
merci c'est pas mal à approfondir en tout cas
Pascal

"anonymousA" a écrit dans le message de news:
4618ba1e$0$5100$
bonjour,

une idée. A mettre dans le module de feuille où tu veux que se produise
l'action.

' Declare Type for API call:
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type

' API declarations:

Private Declare Function GetVersionEx Lib "kernel32" _
Alias "GetVersionExA" _
(lpVersionInformation As OSVERSIONINFO) As Long

Private Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Declare Function GetKeyboardState Lib "user32" _
(pbKeyState As Byte) As Long

Private Declare Function SetKeyboardState Lib "user32" _
(lppbKeyState As Byte) As Long

' Constant declarations:
Const VK_CAPITAL = &H14
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2
Const VER_PLATFORM_WIN32_NT = 2
Const VER_PLATFORM_WIN32_WINDOWS = 1

'auteur inconnu, mpep

Sub VerrouilleCapsLock()
Dim o As OSVERSIONINFO
Dim NumLockState As Boolean
Dim ScrollLockState As Boolean
Dim CapsLockState As Boolean

o.dwOSVersionInfoSize = Len(o)
GetVersionEx o
Dim keys(0 To 255) As Byte
GetKeyboardState keys(0)

' CapsLock handling:
CapsLockState = keys(VK_CAPITAL)
If CapsLockState <> True Then 'Turn capslock on
If o.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then '=== Win95/98
keys(VK_CAPITAL) = 1
SetKeyboardState keys(0)
ElseIf o.dwPlatformId = VER_PLATFORM_WIN32_NT Then '=== WinNT
'Simulate Key Press
keybd_event VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0
'Simulate Key Release
keybd_event VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY _
Or KEYEVENTF_KEYUP, 0
End If
End If

End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Range("I26:I69"), Target) Is Nothing Then
VerrouilleCapsLock
Target.Font.Name = "Wingdings"
Else
Target.Font.Name = "Arial"
End If


End Sub

A+

Bonjour,
Est-il possible par macro et sur une zone déterminée de forcer la saisie
en majuscules et en Wingdings 2 ?
J'ai besoin sur la zone I26:I69 d'avoir que des "coches"

Merci
Pascal




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000731-0, 06/04/2007
Analyse le : 08/04/2007 11:18:47
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000731-0, 06/04/2007
Analyse le : 08/04/2007 11:48:36
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000731-0, 06/04/2007
Analyse le : 08/04/2007 11:55:26
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com


Avatar
Jacky
Bonjour,

Il y a aussi cette astuce:

Une cellule non utilisée et formatée " majuscules et Wingdings 2"
Et dans la feuille en question:
'--------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, [I26:I69]) Is Nothing Then Feuil2.[a1].Copy Target
End Sub
'-----------

--
Salutations
JJ



"Pascal" a écrit dans le message de news:
4618b372$0$25906$
Bonjour,
Est-il possible par macro et sur une zone déterminée de forcer la saisie
en majuscules et en Wingdings 2 ?
J'ai besoin sur la zone I26:I69 d'avoir que des "coches"

Merci
Pascal




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000731-0, 06/04/2007
Analyse le : 08/04/2007 11:18:47
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com





Avatar
Jacky
Oupss!
Feuil2.[a1] étant la cellule formatée dans l'exemple.
Ou ceci sans copie
'------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [I26:I69]) Is Nothing Then
Target.Font.Name = "Wingdings 2"
Target = "P"
End If
End Sub
'------------
--
Salutations
JJ



"Jacky" a écrit dans le message de news:
%
Bonjour,

Il y a aussi cette astuce:

Une cellule non utilisée et formatée " majuscules et Wingdings 2"
Et dans la feuille en question:
'--------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, [I26:I69]) Is Nothing Then Feuil2.[a1].Copy
Target
End Sub
'-----------

--
Salutations
JJ



"Pascal" a écrit dans le message de news:
4618b372$0$25906$
Bonjour,
Est-il possible par macro et sur une zone déterminée de forcer la saisie
en majuscules et en Wingdings 2 ?
J'ai besoin sur la zone I26:I69 d'avoir que des "coches"

Merci
Pascal




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000731-0, 06/04/2007
Analyse le : 08/04/2007 11:18:47
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com