Discussion :

[Edoiuard]

Bonjour,

Je cherche à transposer la macro suivante en VBA :

Code formule :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(DROITE(GAUCHE(D2;8);2)="--"; GAUCHE( SI(D2="";"";MAJUSCULE(Retirer_Accents(STXT(D2;CHERCHE("--";D2)+2;4) & "_" & JOUR(date) & MOIS(date) & DROITE(ANNEE(date);2) & Q2 & A2))) ;20); GAUCHE(SI(D2="";"";MAJUSCULE(Retirer_Accents(STXT(D2;CHERCHE("@@";D2)+2;4) & "_" & JOUR(date) & MOIS(date) & DROITE(ANNEE(date);2) & Q2 & A2)));20))

d'avance merci

EM

[Invité]

Bonjour,

Regardez ce qu'a écrit Philippe TULLIEZ dans ce billet : https://www.developpez.net/forums/bl...re-vba-part-2/

[EricDgn]

Bonjour,

La formule m'étonne un peu.

Déjà DROITE(GAUCHE(D2;8);2) cela correspond à STXT(D2;6;2).

De même JOUR(date) & MOIS(date) & DROITE(ANNEE(date);2) pourrait sans doute est remplacé par TEXTE(date;"aammjj"). Pour des questions de tri, il est en général préférable d'utiliser an-mois-jour que jour-mois-an.

Cela dit, pour ce que j'ai imparfaitement compris, j'ai l'impression que la formule devrait ressembler à ceci en VBA:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Function DQA(rD As Range, rQ As Range, rA As Range, laDate as Date)
    Dim sD As String, sDateQA As String
    sD = rD.Value
    If sD = "" Then
        DQA = ""
    Else
        sDateQA = "_" & Format(laDate, "yymmdd") & rQ.Value & rA.Value
        If Mid(sD, 6, 2) = "--" Or Mid(sD, 6, 2) = "@@" Then
            DQA = Retirer_Accents(Mid(sD, 9, 4) & sDateQA)
        Else
            DQA = "?"
        End If
        DQA = UCase(DQA)
    End If
End Function

Cordialement.