VBA enregistrement Macro

Version imprimable

Bonjour a tous,
Tout d'abord je vous remercie d'avance de votre aide.

Je ne suis pas un top en VBA j'essai de optimiser mon travail au quotidien avec certains macro.

J'ai un problème avec un code, je ne peu pas lancer ma macre car le code ci-dessous a une problème mais j'arrive à savoir le quelle.

En résumé je dois: prendre les 3 premiers lettres de la colonne "Q" et selon le nom, changer soit promo, regular dans la colonne "E" mais il ne marche pas, la macro ce stopp et me dis que il y a erreur dans l'objet...

le code ci-dessous:
Code:

1 2 3 Range("E2").Select ActiveCell.FormulaR1C1 = _ "=IF(LEFT(RC[12],3)=""PFR"",""Promo"",IF(LEFT(RC[12],3)=""RFR"",""Regular"",IF(LEFT(RC[12],3)=""PAT"",""Promo"",IF(LEFT(RC[12],3)=""RAT"",""Regular"",IF(LEFT(RC[12],3)=""PBE"",""Promo"",IF(LEFT(RC[12],3)=""RBE"",""Regular"",IF(LEFT(RC[12],3)=""PDE"",""Promo"",IF(LEFT(RC[12],3)=""RDE"",""Regular"",IF(LEFT(RC[12],3)=""PES"",""Promo"",IF(LEFT(RC[12],3)=""RES"",""Regular"",IF RC[12],3)=""MFR"",""Promo 992"","""")))))))))))"
à savoir que le fichier peu contenir grand nombre de lignes à traiter. 20.000 minimum

Je vous remercie de votre temps et votre conseil.

Betos.

Citation:

Envoyé par Betos

Bonjour,

Pour vous éviter les cachets d'aspirine, vous pourriez tester cette fonction (à mettre dans un module standard) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Function CodePromo(ByVal Chaine3Caracteres As String) As String
 
    CodePromo = ""
    Select Case Mid(Chaine3Caracteres, 1, 3)
           Case "PFR", "PAT", "PBE", "PDE", "PES"
                CodePromo = "Promo"
           Case "RFR", "RAT", "RBE", "RDE", "RES"
                CodePromo = "Regular"
           Case "MFR"
                CodePromo = "Promo 992"
    End Select
 
End Function

Pièce jointe 366943

09/04/2018, 11h09
Betos

Bonjour,

Non, la code ne marche pas en module standard... ou j'ai mal copié.. mais il marche pas.

il faut ajouter autre chose? genre sub end sud? même si je souhaite ajouter à une macro déjà faites?

Merci de votre retour
Betos
09/04/2018, 11h20
Invité

Citation:

Envoyé par Betos

Bonjour,

Voir le fichier joint.
09/04/2018, 11h22
Menhir

Citation:

Envoyé par Betos

il faut ajouter autre chose? genre sub end sud ? même si je souhaite ajouter à une macro déjà faites ?

Ca s'utilise comme une fonction Excel.
Voir la copie d'écran qu'à présenté Eric et qui est très explicite.
03/05/2018, 16h43
Betos

Bonjour,

Je n'arrive pas à mettre dans ma macro cette code...

pouvez vous m'aider ?

Merci
Betos
03/05/2018, 19h29
Invité

Citation:

Envoyé par Betos

Bonjour,

Mettez un fichier non confidentiel en ligne (avec votre macro...).
07/05/2018, 16h24
Betos

1 pièce(s) jointe(s)

Pièce jointe 377745

Bonjour le voici...

Merci à vous tous
07/05/2018, 17h03
Invité

Citation:

Envoyé par Betos

Bonjour,

C'est sûr que cela ne pouvait pas fonctionner....

A tester.
07/05/2018, 17h50
Betos

Merci de votre retour,

Quand je lance la macro tout fonctionne sauf la Formule...

même si aprex je fait =CodePromo(Q2) Je pensé que la formule de s'integre à mes fichiers...

Help ^¨(
07/05/2018, 18h25
Invité

Citation:

Envoyé par Betos

Voir le module 2.
11/05/2018, 13h52
Betos

Merci,

ça marche, j'avais pas compris qu'il faut chercher la Formule

Merci à tous de votre aide

Betos