VBA rechercher remplacer

[2b7a]

bonjour à toutes et tous,

Dans un fichier, j'utilise le "nom" des semaines pour alimenter des stats.
Mais ce nom est différent d'un système à un autre pour les 10 premières semaines de l'année
Pour le 1er, j'aurai un affichage : 201201
Pour le 2e, l'affichage est : 20121

Dans une feuilles, j'ai fait une correspondance : 1e col 201201 et 2e col 20121
Quelle macro pour aller de l'une à l'autre si dans mon fichier elle rencontre la 1ère hypothèse ?

D'avance, merci pour votre aide

Joëlle

 

[PrinceCorwin]

Re : VBA rechercher remplacer

Bonjour,

Essai ceci, si cela te convient :
A mettre en D26

=SI(DROITE(D27-1;1)<>"0";SUBSTITUE(D27-1;"0";"";2);D27-1)

Dans cette formule, je n'est pas gérer le fait que l'on peut arriver à l'année N-1...
Bonne journée

 

[2b7a]

Re : VBA rechercher remplacer

Bonjour,

Essai ceci, si cela te convient :
A mettre en D26

=SI(DROITE(D27-1;1)<>"0";SUBSTITUE(D27-1;"0";"";2);D27-1)

Dans cette formule, je n'est pas gérer le fait que l'on peut arriver à l'année N-1...
Bonne journée

Merci beaucoup PrincCorwin
ça fonctionne .. mais partiellement

En effet, le but est que cette automatisation s'applique à l'année entière. Or là, ça ne fonctionne plus dès que l'on arrive à 201210 ... qui s'affiche -1

En fait, il faut une formule qui change (par exemple) 201201 en 20121 mais qui conserve ensuite 201210, 201211 etc... c'est juste les 9 premières semaines de chaque année qui me posent problème