Microsoft 365 Remplacement poit . par barre / dans date suite extraction (résultat erroné)

sylvanu à dit:

Bonjour Sb_os,
En B2, remplacez RECHERCHEV($A2;'extract 2'!$A:$C;2;0) par :

VB:

=SIERREUR(SUBSTITUE(RECHERCHEV($A2;'extract 2'!$A:$C;2;0);".";"/")*1;"")

et mettre en format date.

Cliquez pour agrandir...

vgendron à dit:

Hello

un exemple de traitement par vba pour la première feuille

VB:

Sub NewFormatDate()
Dim TabDate() As Variant 'on définit un tablo vba
With Sheets("Extract 1") 'dans la feuille "Extract1"
    Fin = .Range("B" & .Rows.Count).End(xlUp).Row 'on récupère le numéro de la dernière ligne non vide de la colonne B
    TabDate = .Range("B5:C" & Fin).Value 'on met les données dans un tablo vba
   
    For i = LBound(TabDate, 1) To UBound(TabDate, 1) 'pour chaque ligne du tablo
        For j = LBound(TabDate, 2) To UBound(TabDate, 2) 'pour chaque colonne du tablo
            TabDate(i, j) = Format(DateSerial(Split(TabDate(i, j), ".")(2), Split(TabDate(i, j), ".")(1), Split(TabDate(i, j), ".")(0)), "dd/mm/yyyy")
            'explication: Split(TabDate,".") ==> la fonction split créer un tableau qu'elle alimente à partir de la date telle que saisie, sépare avec le . comme séparateur
                '==> ca créer donc un tablo de 3 éléments
                'pour récupérer le 1er 2eme ou 3eme élément on écrit (0) (1) (2): un tablo commence à 0
                'on se sert de ces 3 éléments pour recréer une date avec la fonction DateSerial
                'on utilise la fonction "Format" pour afficher la date avec les /
        Next j
    Next i
    .Range("B5:C" & Fin) = TabDate 'on colle le résultat dans la feuille
End With
End Sub

Cliquez pour agrandir...

vgendron à dit:

Hello

un exemple de traitement par vba pour la première feuille

VB:

Sub NewFormatDate()
Dim TabDate() As Variant 'on définit un tablo vba
With Sheets("Extract 1") 'dans la feuille "Extract1"
    Fin = .Range("B" & .Rows.Count).End(xlUp).Row 'on récupère le numéro de la dernière ligne non vide de la colonne B
    TabDate = .Range("B5:C" & Fin).Value 'on met les données dans un tablo vba
   
    For i = LBound(TabDate, 1) To UBound(TabDate, 1) 'pour chaque ligne du tablo
        For j = LBound(TabDate, 2) To UBound(TabDate, 2) 'pour chaque colonne du tablo
            TabDate(i, j) = Format(DateSerial(Split(TabDate(i, j), ".")(2), Split(TabDate(i, j), ".")(1), Split(TabDate(i, j), ".")(0)), "dd/mm/yyyy")
            'explication: Split(TabDate,".") ==> la fonction split créer un tableau qu'elle alimente à partir de la date telle que saisie, sépare avec le . comme séparateur
                '==> ca créer donc un tablo de 3 éléments
                'pour récupérer le 1er 2eme ou 3eme élément on écrit (0) (1) (2): un tablo commence à 0
                'on se sert de ces 3 éléments pour recréer une date avec la fonction DateSerial
                'on utilise la fonction "Format" pour afficher la date avec les /
        Next j
    Next i
    .Range("B5:C" & Fin) = TabDate 'on colle le résultat dans la feuille
End With
End Sub

Cliquez pour agrandir...

Sb_OS à dit:

Bonjour

​

Bonjour Vgendron,

Merci beaucoup pour pour cette proposition qui me va très bien mais je vais opter pour la solution avec la formule que je vais incrémenter dans mon code VBA comme ça je lance à la fois ma recherchev et la modification du format.

Cliquez pour agrandir...