Dans le code module de ta feuille où l'action se déroule,
'------------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("A1").Address Then If Target.Font.Italic = False Then Range("B2") = 12 Else Range("B2") = "N" End If End If
End Sub '------------------
Salutations!
"news.free.fr" <no_spam a écrit dans le message de news: 418d4e44$0$19512$
Merci...
Je n'attendais pas cette solution... mais je n'ai sans doute pas été clair...
en fait, je tape 12 en cellule A1 Je souhaite 12 en cellule B2 si caractère simple Je souhaite "N" en cellule B2 si italique
Est-ce possible ?
Merci
"michdenis" a écrit dans le message de news: %
Bonjour,
'---------------------------------- Sub AfficherLeFormatDeLaCelluleActive()
Dim message As String, Rg As Range Set Rg = ActiveCell message = "Adresse de la cellule : " & Rg.Address(0, 0) & vbCrLf message = message & "italique : " & Rg.Font.Italic & vbCrLf message = message & "Gras : " & Rg.Font.Bold & vbCrLf message = message & "Nom de la police : " & Rg.Font.Name & vbCrLf message = message & "Grosseur de la police : " & Rg.Font.Size
MsgBox message Set Rg = Nothing
End Sub '----------------------------------
Salutations!
"news.free.fr" <no_spam a écrit dans le message de news: 418d1552$0$4433$ Bonsoir...
Existe t'il sous excel le moyen de renvoyer le code caractère... je m'explique :
Si un mot est écrit en normal : tel code Si le même mot est écrit en italique : tel autre code
ceci afin de faire des test sur un champ
merci de votre aide
Sylvain
michdenis
L'événement retenu aurait dû être celui-ci !
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("A1").Address Then If Target.Font.Italic = False Then Range("B2") = 12 Else Range("B2") = "N" End If End If End Sub
Salutations!
"michdenis" a écrit dans le message de news: Bonjour ,
Dans le code module de ta feuille où l'action se déroule,
'------------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("A1").Address Then If Target.Font.Italic = False Then Range("B2") = 12 Else Range("B2") = "N" End If End If
End Sub '------------------
Salutations!
"news.free.fr" <no_spam a écrit dans le message de news: 418d4e44$0$19512$
Merci...
Je n'attendais pas cette solution... mais je n'ai sans doute pas été clair...
en fait, je tape 12 en cellule A1 Je souhaite 12 en cellule B2 si caractère simple Je souhaite "N" en cellule B2 si italique
Est-ce possible ?
Merci
"michdenis" a écrit dans le message de news: %
Bonjour,
'---------------------------------- Sub AfficherLeFormatDeLaCelluleActive()
Dim message As String, Rg As Range Set Rg = ActiveCell message = "Adresse de la cellule : " & Rg.Address(0, 0) & vbCrLf message = message & "italique : " & Rg.Font.Italic & vbCrLf message = message & "Gras : " & Rg.Font.Bold & vbCrLf message = message & "Nom de la police : " & Rg.Font.Name & vbCrLf message = message & "Grosseur de la police : " & Rg.Font.Size
MsgBox message Set Rg = Nothing
End Sub '----------------------------------
Salutations!
"news.free.fr" <no_spam a écrit dans le message de news: 418d1552$0$4433$ Bonsoir...
Existe t'il sous excel le moyen de renvoyer le code caractère... je m'explique :
Si un mot est écrit en normal : tel code Si le même mot est écrit en italique : tel autre code
ceci afin de faire des test sur un champ
merci de votre aide
Sylvain
L'événement retenu aurait dû être celui-ci !
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
If Target.Font.Italic = False Then
Range("B2") = 12
Else
Range("B2") = "N"
End If
End If
End Sub
Salutations!
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news: OqI36RFxEHA.1396@tk2msftngp13.phx.gbl...
Bonjour ,
Dans le code module de ta feuille où l'action se déroule,
'------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
If Target.Font.Italic = False Then
Range("B2") = 12
Else
Range("B2") = "N"
End If
End If
End Sub
'------------------
Salutations!
"news.free.fr" <no_spam papagei2@free.fr> a écrit dans le message de news: 418d4e44$0$19512$626a14ce@news.free.fr...
Merci...
Je n'attendais pas cette solution... mais je n'ai sans doute pas été
clair...
en fait, je tape 12 en cellule A1
Je souhaite 12 en cellule B2 si caractère simple
Je souhaite "N" en cellule B2 si italique
Est-ce possible ?
Merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23By0yQDxEHA.1564@TK2MSFTNGP09.phx.gbl...
Bonjour,
'----------------------------------
Sub AfficherLeFormatDeLaCelluleActive()
Dim message As String, Rg As Range
Set Rg = ActiveCell
message = "Adresse de la cellule : " & Rg.Address(0, 0) & vbCrLf
message = message & "italique : " & Rg.Font.Italic & vbCrLf
message = message & "Gras : " & Rg.Font.Bold & vbCrLf
message = message & "Nom de la police : " & Rg.Font.Name & vbCrLf
message = message & "Grosseur de la police : " & Rg.Font.Size
MsgBox message
Set Rg = Nothing
End Sub
'----------------------------------
Salutations!
"news.free.fr" <no_spam papagei2@free.fr> a écrit dans le message de news:
418d1552$0$4433$626a14ce@news.free.fr...
Bonsoir...
Existe t'il sous excel le moyen de renvoyer le code caractère... je
m'explique :
Si un mot est écrit en normal : tel code
Si le même mot est écrit en italique : tel autre code
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("A1").Address Then If Target.Font.Italic = False Then Range("B2") = 12 Else Range("B2") = "N" End If End If End Sub
Salutations!
"michdenis" a écrit dans le message de news: Bonjour ,
Dans le code module de ta feuille où l'action se déroule,
'------------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("A1").Address Then If Target.Font.Italic = False Then Range("B2") = 12 Else Range("B2") = "N" End If End If
End Sub '------------------
Salutations!
"news.free.fr" <no_spam a écrit dans le message de news: 418d4e44$0$19512$
Merci...
Je n'attendais pas cette solution... mais je n'ai sans doute pas été clair...
en fait, je tape 12 en cellule A1 Je souhaite 12 en cellule B2 si caractère simple Je souhaite "N" en cellule B2 si italique
Est-ce possible ?
Merci
"michdenis" a écrit dans le message de news: %
Bonjour,
'---------------------------------- Sub AfficherLeFormatDeLaCelluleActive()
Dim message As String, Rg As Range Set Rg = ActiveCell message = "Adresse de la cellule : " & Rg.Address(0, 0) & vbCrLf message = message & "italique : " & Rg.Font.Italic & vbCrLf message = message & "Gras : " & Rg.Font.Bold & vbCrLf message = message & "Nom de la police : " & Rg.Font.Name & vbCrLf message = message & "Grosseur de la police : " & Rg.Font.Size
MsgBox message Set Rg = Nothing
End Sub '----------------------------------
Salutations!
"news.free.fr" <no_spam a écrit dans le message de news: 418d1552$0$4433$ Bonsoir...
Existe t'il sous excel le moyen de renvoyer le code caractère... je m'explique :
Si un mot est écrit en normal : tel code Si le même mot est écrit en italique : tel autre code
