[VBA-excel] Vérification du format

Bonjour,

A placer dans le code de la feuille :

*****************************************************
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim ColonneA As Range
Dim ColonneB As Range
Dim Resultat As Range

Set Resultat = Intersect(Target, ColonneA)
If Not (Resultat Is Nothing) Then
ValideDate (Resultat)
End If

Set Resultat = Intersect(Target, ColonneB)
If Not (Resultat Is Nothing) Then
ValideFournisseur (Resultat)
End If

End Sub
************************************************

Reste à construire la fonction qui valide la date et celle qui valide le fournisseur (a titre d'exemple pour une deuxième colonne à vérifier).

Lupin

Salut,

Supposons que la colonne A:A a le format dd/mm/yy

Sub verif_format()
 If Range("A:A").NumberFormat = "dd/mm/yy" Then
   MsgBox "format ok"
 Else
    MsgBox "le format ne correspond pas"
 End If

Donc dans la partie du code où tu écrit des données en excel tu doit tester le format (dissons une validation des données).

Si format alors fait la saisie sinon.....

bonjour

Par exemple la colonne 1 contient que des dates

pour le vérifier, tu sélectionnes ta colonne

tu fais menu "données" / "validation"

dans l'onglet "options" / "autoriser" tu choisis "date" puis les conditions voulues

dans l'onglet "alerte d'erreur" tu coches "quand..."
et tu mets le titre et le message d'anomalie

dans l'onglet "message de saisie" tu peux mettre un libellé

si tu veux controler d'autres données il suffit d'adapter.