XL 2010 [Résolu] Validation des données (décimal + ***)

[jmh1]

Bonjour à tous,

J'aimerai créé une validation des données dans une cellule où je ne puisse saisir que des nombres décimaux ou 3 astérisques.

J'arrive à le faire pour l'une ou l'autre mais pas les 2 en même temps !

Quelqu'un a-t-il une solution à me proposer ??

Merci d'avance.

 

[Gardien de phare]

Bonjour,

Essayes avec une formule de ce genre dans la validation :
=OU(ESTNUM(E7);E7="***")

 

[djidji59430]

Bonjour,

Quand tu dis "décimal", c'est bien un nombre avec une virgule (1,25), par un nombre entier (2)?

 

[jmh1]

Bonjour,

Désolé de ne pas avoir répondu plus vite mais j'ai eu un gros problème avec mon PC.

J'ai essayé la solution de Gardien de phare, elle fonctionne mais quand je l'enregistre avec VBA et que j'essaie de la réutiliser avec "worksheet_selectionchange, j'ai un message d'erreur d'exécution 1004 !!

Pour djidji59430, je veux bien pouvoir saisir des chiffres entiers ou avec virgules.

Je joins un fichier exemple avec ce que je souhaite si quelqu'un peut y jeter un oeil.

Merci

 

[jmh1]

Désolé pour précédent post,

Voici le fichier.

 

[job75]

Bonjour jmh1, Gardien de phare, djidji59430,

La formule de validation doit être traduite en anglais :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(ActiveCell, Range("C8:F11")) Is Nothing Then
    Dim MaLigne&, MaCellule$
    MaLigne = ActiveCell.Row
    MaCellule = ActiveCell.Address
    With ActiveCell.Validation
        .Delete
        If Range("A" & MaLigne) = "d" Then
            .Add xlValidateCustom, Formula1:="=OR(ISNUMBER(" & MaCellule & ")," & MaCellule & "=""***"")"
        Else
            .Add xlValidateList, Formula1:="OK,NG"
        End If
    End With
End If
End Sub

A+

 

[jmh1]

Bonjour job75

Merci pour ta collaboration, jamais je n'aurai tou

 

[djidji59430]

Bonjour a vous deux
Le meme, mais sans VBA

 

[Gardien de phare]

Bonsoir le forum, job djidji, contributeuses et contributeurs, jmh...
<HS> et dire qu'il y a même de grandissimess cabinets qui se font payer pour mandater leurs consultants pour aider les entreprises à améliorer le travail collaboratif</HS>