Caractère non admissible(RESOLUT)

[chaelie2015]

Bonjour Forum

Je souhaite a limiter la saisie dans une plage des cellules (colonne A (4)), je m’explique
Si je saisie une chaine de caractère qui contient ce « / » je souhaite avant la validation de la cellule, afficher un message « veuillez remplacer le « / » par « - » Ou bien un code qui le remplace automatiquement avant la validation de la cellule.

Salutations

 

[gilbert_RGI]

Re : Caractère non admissible

Bonjour,

dans l'emplacement du code la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim t As Variant, d As Variant
    On Error Resume Next
    If Intersect(Target, [A4:A65536]) Is Nothing Then Exit Sub
    Set Target = Target.Cells(1, 1)    'une seule cellule
    t = Target.Value2
    If IsError(t) Then Exit Sub
    If t = "" Then Exit Sub
    d = Replace(t, "/", "-", 1, Len(t))
    Target.Value = d
End Sub

 

[Victor21]

Re : Caractère non admissible

Bonjour chaelie2015.

Outils de données, validation des données, Onglet "Options", autoriser 😛ersonnalisée, la formule est :

=ESTERREUR(CHERCHE("/";A4))

, Alerte d'erreur : veuillez remplacer le « / » par « - »

Edit : Bonjour, Gilbert 🙂

 

[chaelie2015]

Re : Caractère non admissible

Bonjour gilbert, Patrik
Merci infiniment pour vos réponses, c'est exactement ce que je cherchais (formule et code j'ai le choix)
Salutations
a+

 

[chaelie2015]

Re : Caractère non admissible

Bonjour,

dans l'emplacement du code la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim t As Variant, d As Variant
    On Error Resume Next
    If Intersect(Target, [A4:A65536]) Is Nothing Then Exit Sub
    Set Target = Target.Cells(1, 1)    'une seule cellule
    t = Target.Value2
    If IsError(t) Then Exit Sub
    If t = "" Then Exit Sub
    d = Replace(t, "/", "-", 1, Len(t))
    Target.Value = d
End Sub

Re
dans l'emplacement du code la feuille j’ai déjà un code
Private Sub Worksheet_Change(ByVal c As Range)
………………………….
Et je souhaite a jouté ton code
_Change(ByVal Target As Range)
Comment fair pour rassembler les variable ?
ByVal c As Range et ByVal Target As Range
Salutations

 

[gilbert_RGI]

Re : Caractère non admissible

c'est quoi l'autre code ?

 

[chaelie2015]

Re : Caractère non admissible

Re

Option Explicit
'---------------------------------------------------------------------------
'CREER UNE FEUILLE SELON UN TYPE EL SUP LA EN DOUBLE CLIC
'---------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal c As Range)
    
   
    If c.Column = 1 And c.Row > 3 And c.Value <> "" Then
        Sheets("TYPE").Copy After:=Sheets(Sheets.Count)
        On Error GoTo fin
        ActiveSheet.Name = c.Value
    End If
    Exit Sub
fin:
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = True
    Sheets("ASBUILT").Activate
End Sub

 

[gilbert_RGI]

Re : Caractère non admissible

comme ceci ça doit le faire ?

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim t As Variant, d As Variant
    On Error Resume Next
    If Intersect(Target, [A4:A65536]) Is Nothing Then Exit Sub
    Set Target = Target.Cells(1, 1)    'une seule cellule
    t = Target.Value2
    If IsError(t) Then Exit Sub
    If t = "" Then Exit Sub
    d = Replace(t, "/", "-", 1, Len(t))
    Target.Value = d
    On Error GoTo 0
    If c.Column = 1 And c.Row > 3 And c.Value <> "" Then
        Sheets("TYPE").Copy After:=Sheets(Sheets.Count)
        On Error GoTo fin
        ActiveSheet.Name = c.Value
    End If
    Exit Sub
fin:
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = True
    Sheets("ASBUILT").Activate
End Sub

 

[chaelie2015]

Re : Caractère non admissible

Re
merci mais j'ai un bug : variable non définie c?
voila mon souci comment insirer les deux variable c et Target dans la meme Private Sub Worksheet_Change?

Private Sub Worksheet_Change(ByVal Target As Range, ByVal c As Range)!!!!!????😕
a+

 

[gilbert_RGI]

Re : Caractère non admissible

tu devais déjà avoir cette erreur déjà avant ??

car pour moi mes variables ont été déclarées dans le dim

c pour moi est un range

 

[chaelie2015]

Re : Caractère non admissible

Re
oky 😱je ai oublié de vous donner la suite du mon code dans la même feuille:

Private Sub Worksheet_BeforeDoubleClick(ByVal c As Range, Cancel As Boolean)
    If c.Column <> 1 Or c.Value = "" Then Exit Sub
    Application.DisplayAlerts = False
    Sheets(c(1, 1).Text).Delete
    Application.DisplayAlerts = True
    c.Delete Shift:=xlUp
    Cancel = True
End Sub

 

[DoubleZero]

Re : Caractère non admissible

Bonjour, le Fil 🙂, le Forum,

Supposant que la présente discussion fait suite à celle-ci...

Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
    If c.Column = 1 And c.Row > 3 And c.Value <> "" Then
        c.Replace "/", "-", xlPart
        Sheets("TYPE").Copy After:=Sheets(Sheets.Count)
        On Error GoTo fin
        ActiveSheet.Name = c.Value
    End If
    Exit Sub
fin:
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = True
    Sheets("ASBUILT").Activate
End Sub

A bientôt 🙂

 

[chaelie2015]

Re : Caractère non admissible

Bonjour, le Fil 🙂, le Forum,

Supposant que la présente discussion fait suite à celle-ci...


A bientôt 🙂

Bonjour DOUBLE ZERO
Mais c'est le cas ,c'est la suite et j'ai créer une autre discussion 😕
encore une fois merci pour ( les deux codes ) et maintenant ça fonctionne parfaitement.
SALUTATIONS

 

[chaelie2015]

Re : Caractère non admissible

Re
dans l'emplacement du code la feuille j’ai déjà un code
Private Sub Worksheet_Change(ByVal c As Range)
………………………….
Et je souhaite a jouté ton code
_Change(ByVal Target As Range)
Comment fair pour rassembler les variable ?
ByVal c As Range et ByVal Target As Range
Salutations

@00: désolé de ne pas avoir signalé que c’était ton code
Salutations

 

[DoubleZero]

Re : Caractère non admissible

Re-bonjour,

@00: désolé de ne pas avoir signalé que c’était ton code
Salutations

@ chaelie2015 🙂,

Aucune gravité... Le "Bonjour" est là, l'exposition du problème est claire, les remerciements aux participants bénévoles sont présents !

Tout est parfait 😀

Bon courage pour la suite et...

A bientôt 🙂🙂