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
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
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
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
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
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
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
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
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
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
merci c'est pas mal à approfondir en tout cas
Pascal
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
4618ba1e$0$5100$ba4acef3@news.orange.fr...
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
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
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
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
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
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" <lapless@wanadoo.fr> a écrit dans le message de news:
4618b372$0$25906$ba4acef3@news.orange.fr...
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
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
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
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" <dupont@marcel.fr> a écrit dans le message de news:
%23wMtXOdeHHA.4636@TK2MSFTNGP03.phx.gbl...
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" <lapless@wanadoo.fr> a écrit dans le message de news:
4618b372$0$25906$ba4acef3@news.orange.fr...
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
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