Macro: validation des saisies

[roidurif]

Bonjour à tous,

Ce que je souhaite obtenir, c’est de générer plusieurs validations de donnée dans mon tableau saisie.

1) Validation de données.
Si je rentre une donnée en (A) ou (C) et que je valide par [Entrée], j’obtiens automatiquement par défaut en colonne (AB) : "TT" si le champ est vide et en colonne (AI) : "Euro" si le champ est vide.
Par contre, si je supprime les données en (A) et (C) alors, ca efface les données entrées par défaut.

2) Validations dates
En colonne (BB) et (BC), seule les dates au format jj/mm/aaaa sont acceptées. Si on saisi autre chose qu’une date, alors message « Vous devez saisir une date au format jj/mm/aaaa »

3) Validation Prix
En colonne (AH), seule les prix au format "0.00" sont acceptés. Si on saisi un prix à plus de deux décimales ou avec un séparateur virgule, alors message « Le format n’est pas correct, vérifier si le prix n’est pas plus de deux décimal ou le séparateur utilisé n’est pas une virgule »

Je vous remercie de votre aide.

Cordialement

 

[roidurif]

Re : Macro: validation des saisies

Bonjour à tous,

Je reviens vers vous car je n'ai toujours pas trouver. La seule chose, j'ai pu faire un début de la Validation Prix et la Validations dates, mais je suis loin de reussir.
C'est pour cela je solicite votre aide :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsDate("BB2:BC") Then MsgBox ("La date doit être de ce format JJ/MM/AAAA")
If Not IsNumeric("AH2:AH60000") Then MsgBox ("Le prix doit être de ce format ''0.00''")
End Sub

Je vous remercie de votre aide.

Cordialement

 

[roidurif]

Re : Macro: validation des saisies

Bonjour à tous,

j'ai essayer de faire ceci mais sans succés, merci de votre aide

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Range
x = .Range("BB2:BC65536").End(xlUp).Row
If x Is Nothing Then
If Not IsDate(x) Then
Call MsgBox("Vous devez inscrire une date sous la forme jj/mm/aaaa", vbInformation, Application.Name)
Target.Value = ""
End If
End If
End Sub

Je vous remercie de votre aide.

Cordialement