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
Philippe.R
Bonjour Emmanuel,
Avec ceci à coller dans la page de code de la feuille concernée (clic droit sur l'onglet et visualiser le code)
Private Sub Worksheet_Change(ByVal Target As Range) If Not IsNumeric(Target.Value) Then Application.EnableEvents = False Target.Value = Chr(7) & Chr(32) & Target.Value End If Application.EnableEvents = True End Sub
-- Avec plaisir Philippe.R "Emmanuel" a écrit dans le message de news:
Bonjour,
Lorsque je saisie du texte dans une cellule, j'aimerai qu'un puce ou un symbole apparaisse après avoir fait "entrer". Merci d'avance Emmanuel
Bonjour Emmanuel,
Avec ceci à coller dans la page de code de la feuille concernée (clic droit
sur l'onglet et visualiser le code)
Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsNumeric(Target.Value) Then
Application.EnableEvents = False
Target.Value = Chr(7) & Chr(32) & Target.Value
End If
Application.EnableEvents = True
End Sub
--
Avec plaisir
Philippe.R
"Emmanuel" <Emmanuel@discussions.microsoft.com> a écrit dans le message de
news:FD3A2D1A-4232-4E8A-BD91-7BF945B6A882@microsoft.com...
Bonjour,
Lorsque je saisie du texte dans une cellule, j'aimerai qu'un puce ou un
symbole apparaisse après avoir fait "entrer".
Merci d'avance
Emmanuel
Avec ceci à coller dans la page de code de la feuille concernée (clic droit sur l'onglet et visualiser le code)
Private Sub Worksheet_Change(ByVal Target As Range) If Not IsNumeric(Target.Value) Then Application.EnableEvents = False Target.Value = Chr(7) & Chr(32) & Target.Value End If Application.EnableEvents = True End Sub
-- Avec plaisir Philippe.R "Emmanuel" a écrit dans le message de news:
Bonjour,
Lorsque je saisie du texte dans une cellule, j'aimerai qu'un puce ou un symbole apparaisse après avoir fait "entrer". Merci d'avance Emmanuel
Emmanuel
Merci pour ta reponse mais comment faire pour juste le faire sur une plage de cellule ? Emmanuel
Bonjour Emmanuel,
Avec ceci à coller dans la page de code de la feuille concernée (clic droit sur l'onglet et visualiser le code)
Private Sub Worksheet_Change(ByVal Target As Range) If Not IsNumeric(Target.Value) Then Application.EnableEvents = False Target.Value = Chr(7) & Chr(32) & Target.Value End If Application.EnableEvents = True End Sub
-- Avec plaisir Philippe.R "Emmanuel" a écrit dans le message de news:
Bonjour,
Lorsque je saisie du texte dans une cellule, j'aimerai qu'un puce ou un symbole apparaisse après avoir fait "entrer". Merci d'avance Emmanuel
Merci pour ta reponse mais comment faire pour juste le faire sur une plage de
cellule ?
Emmanuel
Bonjour Emmanuel,
Avec ceci à coller dans la page de code de la feuille concernée (clic droit
sur l'onglet et visualiser le code)
Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsNumeric(Target.Value) Then
Application.EnableEvents = False
Target.Value = Chr(7) & Chr(32) & Target.Value
End If
Application.EnableEvents = True
End Sub
--
Avec plaisir
Philippe.R
"Emmanuel" <Emmanuel@discussions.microsoft.com> a écrit dans le message de
news:FD3A2D1A-4232-4E8A-BD91-7BF945B6A882@microsoft.com...
Bonjour,
Lorsque je saisie du texte dans une cellule, j'aimerai qu'un puce ou un
symbole apparaisse après avoir fait "entrer".
Merci d'avance
Emmanuel
Merci pour ta reponse mais comment faire pour juste le faire sur une plage de cellule ? Emmanuel
Bonjour Emmanuel,
Avec ceci à coller dans la page de code de la feuille concernée (clic droit sur l'onglet et visualiser le code)
Private Sub Worksheet_Change(ByVal Target As Range) If Not IsNumeric(Target.Value) Then Application.EnableEvents = False Target.Value = Chr(7) & Chr(32) & Target.Value End If Application.EnableEvents = True End Sub
-- Avec plaisir Philippe.R "Emmanuel" a écrit dans le message de news:
Bonjour,
Lorsque je saisie du texte dans une cellule, j'aimerai qu'un puce ou un symbole apparaisse après avoir fait "entrer". Merci d'avance Emmanuel
Philippe.R
Bonsoir,
Il suffit de le demander gentiment :
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("b4", "p38")) Is Nothing _ And Not IsNumeric(Target.Value) Then Application.EnableEvents = False Target.Value = Chr(7) & Chr(32) & Target.Value End If Application.EnableEvents = True End Sub
avec comme plage active b4 à p38 ; à adapter bien entendu -- Avec plaisir Philippe.R "Emmanuel" a écrit dans le message de news:
Merci pour ta reponse mais comment faire pour juste le faire sur une plage de cellule ? Emmanuel
Bonjour Emmanuel,
Avec ceci à coller dans la page de code de la feuille concernée (clic droit sur l'onglet et visualiser le code)
Private Sub Worksheet_Change(ByVal Target As Range) If Not IsNumeric(Target.Value) Then Application.EnableEvents = False Target.Value = Chr(7) & Chr(32) & Target.Value End If Application.EnableEvents = True End Sub
-- Avec plaisir Philippe.R "Emmanuel" a écrit dans le message de news:
Bonjour,
Lorsque je saisie du texte dans une cellule, j'aimerai qu'un puce ou un symbole apparaisse après avoir fait "entrer". Merci d'avance Emmanuel
Bonsoir,
Il suffit de le demander gentiment :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("b4", "p38")) Is Nothing _
And Not IsNumeric(Target.Value) Then
Application.EnableEvents = False
Target.Value = Chr(7) & Chr(32) & Target.Value
End If
Application.EnableEvents = True
End Sub
avec comme plage active b4 à p38 ; à adapter bien entendu
--
Avec plaisir
Philippe.R
"Emmanuel" <Emmanuel@discussions.microsoft.com> a écrit dans le message de
news:D5556D54-7D04-4F49-BE12-A30B7EDD7CCB@microsoft.com...
Merci pour ta reponse mais comment faire pour juste le faire sur une plage
de
cellule ?
Emmanuel
Bonjour Emmanuel,
Avec ceci à coller dans la page de code de la feuille concernée (clic
droit
sur l'onglet et visualiser le code)
Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsNumeric(Target.Value) Then
Application.EnableEvents = False
Target.Value = Chr(7) & Chr(32) & Target.Value
End If
Application.EnableEvents = True
End Sub
--
Avec plaisir
Philippe.R
"Emmanuel" <Emmanuel@discussions.microsoft.com> a écrit dans le message
de
news:FD3A2D1A-4232-4E8A-BD91-7BF945B6A882@microsoft.com...
Bonjour,
Lorsque je saisie du texte dans une cellule, j'aimerai qu'un puce ou un
symbole apparaisse après avoir fait "entrer".
Merci d'avance
Emmanuel
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("b4", "p38")) Is Nothing _ And Not IsNumeric(Target.Value) Then Application.EnableEvents = False Target.Value = Chr(7) & Chr(32) & Target.Value End If Application.EnableEvents = True End Sub
avec comme plage active b4 à p38 ; à adapter bien entendu -- Avec plaisir Philippe.R "Emmanuel" a écrit dans le message de news:
Merci pour ta reponse mais comment faire pour juste le faire sur une plage de cellule ? Emmanuel
Bonjour Emmanuel,
Avec ceci à coller dans la page de code de la feuille concernée (clic droit sur l'onglet et visualiser le code)
Private Sub Worksheet_Change(ByVal Target As Range) If Not IsNumeric(Target.Value) Then Application.EnableEvents = False Target.Value = Chr(7) & Chr(32) & Target.Value End If Application.EnableEvents = True End Sub
-- Avec plaisir Philippe.R "Emmanuel" a écrit dans le message de news:
Bonjour,
Lorsque je saisie du texte dans une cellule, j'aimerai qu'un puce ou un symbole apparaisse après avoir fait "entrer". Merci d'avance Emmanuel
