Discussion :

[dutronephilippe]

Bonjour à tous,

Voilà mon défis, j'ai mis en place une formule (avec des recherchev, fonction si, concatener, stxt) qui marche.

Code :

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

=SI(RECHERCHEV($B23;CONVERT!$1:$1048576;10;FAUX)="CDR";"MAILLING000DTRCDR";SI(RECHERCHEV($B23;CONVERT!$1:$1048576;10;FAUX)="SND";"MAILLING000DTRSND";SI(RECHERCHEV($B23;CONVERT!$1:$1048576;10;FAUX)="ELE";"MAILLING000DTRELE";SI(RECHERCHEV($B23;CONVERT!$1:$1048576;10;FAUX)="FTV";"MAILLING000FTV";CONCATENER(STXT(RECHERCHEV(B23;CONVERT!$1:$1048576;5;FAUX);1;8);RECHERCHEV($B23;CONVERT!$1:$1048576;16;FAUX);RECHERCHEV($B23;CONVERT!$1:$1048576;17;FAUX);"DTR";RECHERCHEV($B23;CONVERT!$1:$1048576;10;FAUX))))))

Vu que je suis débutant en vba, j'ai bidouillé quelque chose (voir ci-dessous) en enregistrant une macro dans laquelle j'ai utilisé la formule sur la feuille et étirée.

Code :

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

1
2
3
4
5
6
7
 Range("C23").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(VLOOKUP(RC2,CONVERT!R1:R1048576,10,FALSE)=""CDR"",""MAILLING000DTRCDR"",IF(VLOOKUP(RC2,CONVERT!R1:R1048576,10,FALSE)=""SND"",""MAILLING000DTRSND"",IF(VLOOKUP(RC2,CONVERT!R1:R1048576,10,FALSE)=""ELE"",""MAILLING000DTRELE"",IF(VLOOKUP(RC2,CONVERT!R1:R1048576,10,FALSE)=""FTV"",""MAILLING000FTV"",CONCATENATE(MID(VLOOKUP(RC[-1],CONVERT!R1:R1048576,5,FALSE),1,8),VLOOK" & _
        "ONVERT!R1:R1048576,16,FALSE),VLOOKUP(RC2,CONVERT!R1:R1048576,17,FALSE),""DTR"",VLOOKUP(RC2,CONVERT!R1:R1048576,10,FALSE))))))"
        Range("C23").Select
    Selection.AutoFill Destination:=Range("C23:C200"), Type:=xlFillDefault
    Range("C23:C200").Select

Je veux que cette formule s'applique à partir de la cellule C23 jusqu'à C200.

Pouvez-vous réussir à programmer cette fonction?
nb: Fichier avec la macro dans "MAJ Classeur1.xls" -> MAJ Classeur1.xls

Merci par avance de votre aide

[Marc-L]

Bonjour, bonjour,

en utilisant l'Enregistreur de macros, le code est fourni sur un plateau !

[keygen08]

Bonjour

En utilisant formulalocal, la formule a utiliser sous VBA reste identique a celle utilisé sur la feuille excel, ce qui donnerait:

Code :

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

1
2
3
Range("C23").Formulalocal = _
=SI(RECHERCHEV($B23;CONVERT!$1:$1048576;10;FAUX)="CDR";"MAILLING000DTRCDR";SI(RECHERCHEV($B23;CONVERT!$1:$1048576;10;FAUX)="SND";"MAILLING000DTRSND";SI(RECHERCHEV($B23;CONVERT!$1:$1048576;10;FAUX)="ELE";"MAILLING000DTRELE";SI(RECHERCHEV($B23;CONVERT!$1:$1048576;10;FAUX)="FTV";"MAILLING000FTV";CONCATENER(STXT(RECHERCHEV(B23;CONVERT!$1:$1048576;5;FAUX);1;8);RECHERCHEV($B23;CONVERT!$1:$1048576;16;FAUX);RECHERCHEV($B23;CONVERT!$1:$1048576;17;FAUX);"DTR";RECHERCHEV($B23;CONVERT!$1:$1048576;10;FAUX))))))
 Range("C23").AutoFill Destination:=Range("C23:C200"), Type:=xlFillDefault

Plus compréhensible lorsque l'on a pas l'habitude d'utiliser VBA. A part les select que j'ai nettoyé, quel est la difficulté que vous rencontré pour rendre cette macro opérationelle.

[dutronephilippe]

Comme mentionné ci-dessus, j'ai utilisé l'enregistreur macro mais elle n'est pas opérationnelle.

Dans le module, lorsque j'exécute le programme (F5), il y a une fenêtre inscrit "Erreur d'exécution '1004': Erreur définie par l'application ou par l'objet".
Lorsque je clique sur "Débogage", ça me surligne en jaune le programme suivant:

Code :

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

1
2
3
    ActiveCell.FormulaR1C1 = _
        "=IF(VLOOKUP(RC2,CONVERT!R1:R1048576,10,FALSE)=""CDR"",""MAILLING000DTRCDR"",IF(VLOOKUP(RC2,CONVERT!R1:R1048576,10,FALSE)=""SND"",""MAILLING000DTRSND"",IF(VLOOKUP(RC2,CONVERT!R1:R1048576,10,FALSE)=""ELE"",""MAILLING000DTRELE"",IF(VLOOKUP(RC2,CONVERT!R1:R1048576,10,FALSE)=""FTV"",""MAILLING000FTV"",CONCATENATE(MID(VLOOKUP(RC[-1],CONVERT!R1:R1048576,5,FALSE),1,8),VLOOK" & _
        "ONVERT!R1:R1048576,16,FALSE),VLOOKUP(RC2,CONVERT!R1:R1048576,17,FALSE),""DTR"",VLOOKUP(RC2,CONVERT!R1:R1048576,10,FALSE))))))"

Merci de voir

[Marc-L]

! Plus pratique pour indiquer le n° d'une ligne en erreur …

Il y a donc une faute dans le code, donc reprendre de zéro depuis la feuille en ré-entrant la formule
tout en utilisant l'Enregistreur de macros …

[dutronephilippe]

Cher Marc,

Je me suis rendu compte qu'il y avait une faute, j'ai refais la manip plusieurs fois mais à chaque fois c'est le même problème.

J'ai mis le fichier avec la macro dans "MAJ Classeur1.xls" juste à l'instant.

Merci