Macro Format date

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
R

roidurif

XLDnaute Occasionnel
Bonjour

Comment retranscrire en Macro qui verifie si :

- Le format date "début et fin" est jj/mm/aaaa => si Faux "Numéro célulle" dans onglet feuil2 (Format date jj/mm/aaaa)

- Si date manquante dans date début et Fin => Si vrai "Numéro célulle" dans onglet feuil2 (Numéro client manquant)

- Date début doit être identique et la date de Fin aussi => Si faux "Numéro célulle" dans onglet feuil2 (Incohérence date)

- Si numéro client est renseigné, alors la date début et Fin est obligatoire => Si faux "Numéro célulle" dans onglet feuil2

Merci
 

Pièces jointes

Trier par date Trier par votes
Re : Macro Format date

Bonjour,

Dans la macro contrôle Sub Test2() 'Contrôle Format Date et Client
il y'a un script qui dit :
- La Date de début doit être identique sur l'ensemble de la colonne BB et la date de Fin doit être identique sur l'ensemble de la colonne BC
=> Si Faux indiquer le "Numéro célulle" dans onglet feuil2 (Incohérence date)


Cela fonctionne, mais lorsque par exemple je fais un copier / coller de date d'un fichier vers celui-ci, malgré les dates identique en début et date de fin et le bon format date jj/mm/aaaa bien sur, en lançant la macro, il détecte des date incohérentes.

Pour que cela fonctionne, je dois valider chaque cellule par la touche "entrée", du coup la date s'aligne de la gauche vers droite de la celulle.
Et en relançant la macro ca marche bien.

Je vois pas comment corriger cela, dans le fichier que j'ai joins, j'ai fais le copier/coller, merci de votre aide

Code :

If x <> Sheets(DATA).Cells(2, x.Column) Then Sheets(CONTROLE).Cells(11, 256).End(xlToLeft).Offset(0, 1) = x.Address(REF_ABS, REF_ABS) 'Incoherence date
Next
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Macro Format date

Bonjour,

Cas
Les erreurs sont détectées en BB4 à B19 et de BC4 à BC19 pour des "Dates Incohérentes" dans la feuil2 car il s agit d un copier /coller. ( La macro pense que ce ne se sont pas les même date identique dans la colonne BB et BC)

Tu verras que les date en BB2 BB3 et BC2 BC3 ont été validé en appuyant sur la touche entrée pour forcer la sate.

Je sais pas si c'est possible car j ai pas eu de réponse à mon précédent post?


Dites moi si ya une solution a me proposer pour forcer le format ou si tu as autre chose a me proposer pour ameliorer cela.. je suis partent


Merci d avance
Cdt
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro Format date

Bonjour

roidurif à dit:
Bonjour,

Cela fonctionne, mais lorsque par exemple je fais un copier / coller de date d'un fichier vers celui-ci, malgré les dates identique en début et date de fin et le bon format date jj/mm/aaaa bien sur, en lançant la macro, il détecte des date incohérentes.
Cliquez pour agrandir...

Pour faciliter la compréhension j'ai modifié la procédure en rajoutant un MSGBOX.
Code: 
Sub Test2() 'Contrôle Format Date et Client
MonMax = Application.Max(Sheets(DATA).Range("BB65536").End(xlUp).Row, Sheets(DATA).Range("BC65536").End(xlUp).Row)
For Each x In Sheets(DATA).Range("BB2:BC" & MonMax)
    If x = "" Or x = 0 Then
    Sheets(CONTROLE).Cells(10, 256).End(xlToLeft).Offset(0, 1) = x.Address(REF_ABS, REF_ABS) 'Date manquante
    Select Case MsgBox("" _
                       & vbCrLf & "" _
                       & vbCrLf & "" _
                       , vbOKCancel Or vbExclamation Or vbDefaultButton1, Application.Name)
    
        Case vbOK
    
        Case vbCancel
    
    End Select
    
    Select Case MsgBox("Date manquante (1)" _
                & vbCrLf & "" & x _
                & vbCrLf & "" & x.Address(REF_ABS, REF_ABS) _
                & vbCrLf & "" & x _
                , vbOKCancel Or vbExclamation Or vbDefaultButton1, Application.Name)
        Case vbOK
    
        Case vbCancel
            Exit Sub
    End Select
    
    
     End If
    If x.NumberFormat <> "m/d/yyyy" Then
    Sheets(CONTROLE).Cells(8, 256).End(xlToLeft).Offset(0, 1) = x.Address(REF_ABS, REF_ABS) 'Format date
     Select Case MsgBox("Incohérence de date (2)" _
                & vbCrLf & "" & x.NumberFormat _
                & vbCrLf & "" & x _
                & vbCrLf & "" & x.Address(REF_ABS, REF_ABS) _
                & vbCrLf & "" & x _
                , vbOKCancel Or vbExclamation Or vbDefaultButton1, Application.Name)
              Case vbOK
    
        Case vbCancel
            Exit Sub
    End Select
                
    End If
    If x <> Sheets(DATA).Cells(2, x.Column) Then
    Select Case MsgBox("Incohérence de date (3)" _
                & vbCrLf & "" & x _
                & vbCrLf & "" & x.NumberFormat _
                & vbCrLf & "" & x.Address(REF_ABS, REF_ABS) _
                & vbCrLf & "différent de " _
                & vbCrLf & "" & Sheets(DATA).Cells(2, x.Column) _
                & vbCrLf & "" & Sheets(DATA).Cells(2, x.Column).NumberFormat _
                & vbCrLf & "ligne 2 et colonne " & x.Column _
                & vbCrLf & "" _
                , vbOKCancel Or vbExclamation Or vbDefaultButton1, Application.Name)
            Case vbOK
    
        Case vbCancel
            Exit Sub
    End Select
    Sheets(CONTROLE).Cells(11, 256).End(xlToLeft).Offset(0, 1) = x.Address(REF_ABS, REF_ABS) 'Incoherence date
    End If
Next

For Each x In Sheets(DATA).Range("A2:" & Sheets(DATA).Range("A65536").End(xlUp).Address)
    If x = "" Or x = 0 Then Sheets(CONTROLE).Cells(9, 256).End(xlToLeft).Offset(0, 1) = x.Address(REF_ABS, REF_ABS) 'N° client manquant
    If x <> Sheets(DATA).Cells(2, x.Column) Then Sheets(CONTROLE).Cells(12, 256).End(xlToLeft).Offset(0, 1) = x.Address(REF_ABS, REF_ABS) 'Incohérence N° client
Next
Call CtrlPrix
End Sub

En transformant les dates en valeur numérique on obtient
39814,00
39814,00
01/01/2009
01/01/2009
Les deux premières lignes sont des dates les suivantes sont des chaines de caractères, d'où problème.

JP
 
Vote positif 0 Vote négatif
Re : Macro Format date

Bonjour

roidurif à dit:
Comme cela je pense

If IsDate(target) Then Sheets(CONTROLE).Cells(11, 256).End(xlToLeft).Offset(0, 1) = x.Address(REF_ABS, REF_ABS) 'Incoherence date
Next

merci
Cliquez pour agrandir...

Il vaut mieux prévenir que guérir.
exemple de macro
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
'Dim flag As Boolean
'Option Explicit

If Target.Count > 1 Then Exit Sub
Dim dl1 As Long ' dernière ligne
With Sheets(Target.Worksheet.Name)
dl1 = .Range("bb65536").End(xlUp).Row
        Application.EnableEvents = False
        Target.NumberFormat = "m/d/yyyy"
        If Not Intersect(Target, Range("bb2:bb" & dl1)) Is Nothing Then
            If Not IsDate(Target.Value) Then
                Call MsgBox("Vous devez inscrire une date sous la forme jj/mm/aaaa", vbInformation, Application.Name)
        Target.Value = ""
        End If
        Application.EnableEvents = True
    End If
'flag = False
End With

End Sub


Pour transformer les dates qui sont alignées à gauche il faut sélectionner la zone puis utiliser l'option convertir du menu Données.

JP
JP

JP
 
Vote positif 0 Vote négatif
Re : Macro Format date

Bonjour,

ce code ci dessous permet de contrôler si la celulle est au format date "m/d/yyy" mais je remarque qu'il ne controle pas comment est saisie une date.
Exemple le fait d'écrire 1204/2009 au lieu 12/04/2009, c'est pareil pour lui, alors que ça devrait être faux

Code: 
If x.NumberFormat <> "m/d/yyyy" Then Sheets(CONTROLE).Cells(8, 256).End(xlToLeft).Offset(0, 1) = x.Address(REF_ABS, REF_ABS)

Merci d'avance
Codialement
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Question Question
Microsoft 365 Est-il possible de concaténer dans une formule ?
Réponses
4
Affichages
566
Cougar
C
Titof06
  • Résolu(e)
XL 2019 Fonction "Find" qui ne fonctionne pas selon le format de cellule
Réponses
12
Affichages
464
Titof06
Titof06
R
  • Question Question
Microsoft 365 Import .txt au format date
Réponses
14
Affichages
587
dysorthographie
dysorthographie
C
  • Question Question
Autres macros Excel
7 8 9
Réponses
134
Affichages
5 K
Phil69970
Phil69970
M
  • Question Question
Microsoft 365 [Résolu] Date 00/01/1900
Réponses
3
Affichages
418
Marboi
M
C
  • Question Question
XL 2013 rechercher la dernière date
Réponses
4
Affichages
383
candido57
C
C
  • Question Question
Microsoft 365 format date
Réponses
3
Affichages
239
Dudu2
Dudu2
L
  • Question Question
Microsoft 365 Calcule entre plusieurs périodes
2
Réponses
24
Affichages
640
Lemtosh
L
V
  • Question Question
Autres Traitement des formats date
Réponses
8
Affichages
478
VIARD
V
Jelose
  • Question Question
Microsoft 365 Modèle de facture avec macro
2
Réponses
18
Affichages
1 K
Jelose
Jelose
S
  • Résolu(e)
Microsoft 365 Format date
Réponses
6
Affichages
453
Sylvia57
S
O
  • Question Question
Autres recopie de cellules selon la date
Réponses
3
Affichages
377
olivier Clech
O
S
  • Résolu(e)
Microsoft 365 Choisircols et ajout de colonne
Réponses
14
Affichages
594
AtTheOne
AtTheOne
D
  • Question Question
Microsoft 365 Code VBA pour date DD/MM/YYYY
Réponses
6
Affichages
655
Staple1600
Staple1600
D
  • Résolu(e)
Microsoft 365 recherche avec critères date début et fin
Réponses
3
Affichages
283
dd_76
D
M
  • Résolu(e)
Microsoft 365 Impression Userform en format paysage + Envoyer l'imprime écran du Userform par courriel
2
Réponses
17
Affichages
1 K
patricktoulon
patricktoulon
A
  • Question Question
Microsoft 365 Macro pour recherche de cellules entre 2 fichiers Excel
Réponses
7
Affichages
553
AtTheOne
AtTheOne
R
  • Résolu(e)
XL 2019 détection de dates sur la base de 2 tableaux
Réponses
2
Affichages
680
rh.finances
R
N
  • Question Question
XL 2021 Sauvegarde onglet
Réponses
10
Affichages
880
nano33320
N
anthoYS
  • Résolu(e)
Microsoft 365 Programme de lecture d'un très gros livre (3 différents livres par semaine et un chapitre de chaque par jour)
2
Réponses
18
Affichages
1 K
crocrocro
C
Retour