Discussion :

[Betos]

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 :

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

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.

[Invité]

Bonjour,

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

Code :

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

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

[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

[Invité]

Bonjour,

Voir le fichier joint.

[Menhir]

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.

[Betos]

Bonjour,

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

pouvez vous m'aider ?

Merci
Betos

[Invité]

Bonjour,

Mettez un fichier non confidentiel en ligne (avec votre macro...).