format date et contenu de string

bonsoir Twuce

pour la premiere partie de ta question ce lien devrait te dépanner

Lien supprimé

pour la deuxieme partie , cette exemple renvoie un message pour chaque cellule d'une plage selectionnée dont le format ne correspond pas au type spécifié

Sub TestFormatCellulesDansSelection()
Dim Cell As Range
For Each Cell In Selection
If Not Cell.NumberFormat = "yyyy-mm-dd" Then _
MsgBox "La cellule " & Cell.Address & " n'a pas le format yyyy-mm-dd"
Next Cell
End Sub


bonne soirée
MichelXld

Bonsoir Twuce, Michel,


Michel, tu devances tout le monde aujourd'hui lol !....

Twuce, pour la première question, tu pourrais utiliser la fonction suivante :

Function TestChaine(S As String) As Byte
Dim Chiff As Boolean, Lettr As Boolean
Dim C As Byte
'Chaine vide
If Len(S) < 1 Then
TestChaine = 1
Exit Function
End If
'Chaine numérique
If IsNumeric(S) Then
TestChaine = 2
Exit Function
End If
'Chaine Alphanumérique
For C = 1 To Len(S)
Select Case Asc(Mid(S, C, 1))
Case 48 To 57 'Nombres
Chiff = True
Case Else 'Autres caractères
Lettr = True
End Select
If Chiff = Lettr = True Then
TestChaine = 4
Exit Function
End If
Next C
TestChaine = 3
End Function

Cette fonction renvoie une valeur de 1 à 4 suivant la nature de la chaine testée.

Pour tester la valeur de la cellule A1 par exemple :
MsgBox "Valeur A1 : " & Choose(TestChaine(Range("A1").Text), "Vide", "Numérique", "Alphabétique", "Alphanumérique")



Cordialement,
Didier_mDF