traduction macro en VBA

Version imprimable

22/12/2020, 08h43
Edoiuard

traduction macro en VBA

Bonjour,

Je cherche à transposer la macro suivante en VBA :

Code:

=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
22/12/2020, 14h19
Invité

Citation:

Envoyé par Edoiuard

Bonjour,

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

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:

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.