Formules à transformer en VBA

Le 09/11/2015 à 14:08

Bonjour,

Pour faire suite à mon post https://forum.excel-pratique.com/post402172.html:

je suis en train de faire une macro avec une formule s'appliquant à partir d'une autre feuille (même classeur).

La feuille sur laquelle je souhaite appliquer ma formule est appellée "Commission Report".

Les données que j'utilise sont sur la feuille "Admin Tool PDF".

La formule que je souhaite utiliser est:

Cellule (i , colonne 1) = GAUCHE("'Admin Tool PDF'!A";CHERCHE("(";'Admin Tool PDF'!A;1)-1)

Elle doit s'appliquer jusqu'à avoir parcouru toutes les cellules de la premieres colonne de la feuille Admin Tool PDF

J'ai créé la boucle pour aller jusqu'à la dernière cellule remplie de ma feuille "Admin Tool PDF", mais impossible de trouver la bonne syntaxe pour appliquer la formule."

auquel a répondu h2so4:

Bonjour

Cellule (i , colonne 1) = GAUCHE("'Admin Tool PDF'!A[i]";CHERCHE("(";'Admin Tool PDF'!A[i];1)-1)

essaie ceci

with sheets("admin tool PDF")
sheets("commission report").cells(i,1)=left(.cells(i,1),instr(.cells(i,1),"(")-1)
end with

j'ai une nouvelle question:

J'ai beaucoup de formules à appliquer dans le même style. Si je comprends bien, je dois transformer toutes mes formules excel en instructions VBA.

Y a t il un moyen simple?

Parmi les formules longues que j'ai à appliquer:

Cellule (i , colonne 2) = GAUCHE(DROITE('Admin Tool PDF'!A[i];NBCAR('Admin Tool PDF'!A[i])-CHERCHE("(";'Admin Tool PDF'!A[i];1));CHERCHE(")";DROITE('Admin Tool PDF'!A[i];NBCAR('Admin Tool PDF'!A[i])-CHERCHE("(";'Admin Tool PDF'!A[i];1)))-1)

Cellule (i, colonne 5) = GAUCHE(DROITE('Admin Tool PDF'!C[I];NBCAR('Admin Tool PDF'!C[I])-CHERCHE("(";'Admin Tool PDF'!C[I];1));CHERCHE(")";DROITE('Admin Tool PDF'!C[I];NBCAR('Admin Tool PDF'!C[I])-CHERCHE("(";'Admin Tool PDF'!C[I];1)))-1)

Cellule (i, colonne 7) = CONCATENER(SI(ESTERREUR(GAUCHE(GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1));CHERCHE(",";GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1));1)-1));"0";GAUCHE(GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1));CHERCHE(",";GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1));1)-1));GAUCHE(SI(ESTERREUR(DROITE(GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1));NBCAR(GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1)))-CHERCHE(",";GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1));1)));GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1));DROITE(GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1));NBCAR(GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1)))-CHERCHE(",";GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1));1)));CHERCHE(".";SI(ESTERREUR(DROITE(GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1));NBCAR(GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1)))-CHERCHE(",";GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1));1)));GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1));DROITE(GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1));NBCAR(GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1)))-CHERCHE(",";GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1));1)));1)-1)*1;",";DROITE(SI(ESTERREUR(DROITE(GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1));NBCAR(GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1)))-CHERCHE(",";GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1));1)));GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1));DROITE(GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1));NBCAR(GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1)))-CHERCHE(",";GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1));1)));NBCAR(SI(ESTERREUR(DROITE(GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1));NBCAR(GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1)))-CHERCHE(",";GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1));1)));GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1));DROITE(GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1));NBCAR(GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1)))-CHERCHE(",";GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1));1))))-CHERCHE(".";SI(ESTERREUR(DROITE(GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1));NBCAR(GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1)))-CHERCHE(",";GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1));1)));GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1));DROITE(GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1));NBCAR(GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1)))-CHERCHE(",";GAUCHE('Admin Tool PDF'!E[I];CHERCHE(" ";'Admin Tool PDF'!E[I];1));1)));1)))*1

Cellule (i, colonne 11) = CONCATENER(ANNEE(J[i]);SI(MOIS(J[i])<4;"Q1";SI(MOIS(J[i])<7;"Q2";SI(MOIS(J[i])<10;"Q3";"Q4"))))

Cellule (i, colonne 12) = CONCATENER(SI(ESTERREUR(GAUCHE(GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1));CHERCHE(",";GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1));1)-1));"0";GAUCHE(GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1));CHERCHE(",";GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1));1)-1));GAUCHE(SI(ESTERREUR(DROITE(GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1));NBCAR(GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1)))-CHERCHE(",";GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1));1)));GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1));DROITE(GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1));NBCAR(GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1)))-CHERCHE(",";GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1));1)));CHERCHE(".";SI(ESTERREUR(DROITE(GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1));NBCAR(GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1)))-CHERCHE(",";GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1));1)));GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1));DROITE(GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1));NBCAR(GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1)))-CHERCHE(",";GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1));1)));1)-1)*1;",";DROITE(SI(ESTERREUR(DROITE(GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1));NBCAR(GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1)))-CHERCHE(",";GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1));1)));GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1));DROITE(GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1));NBCAR(GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1)))-CHERCHE(",";GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1));1)));NBCAR(SI(ESTERREUR(DROITE(GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1));NBCAR(GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1)))-CHERCHE(",";GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1));1)));GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1));DROITE(GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1));NBCAR(GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1)))-CHERCHE(",";GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1));1))))-CHERCHE(".";SI(ESTERREUR(DROITE(GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1));NBCAR(GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1)))-CHERCHE(",";GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1));1)));GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1));DROITE(GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1));NBCAR(GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1)))-CHERCHE(",";GAUCHE('Admin Tool PDF'!H[I];CHERCHE(" ";'Admin Tool PDF'!H[I];1));1)));1)))*1

Cellule (i, colonne 19) = SI('Admin Tool PDF'!O[i]="Paid";'Admin Tool PDF'!M[i];"")

Les autres formules sont plus ou moins des variations de celles ci, j'ai commencé mais je me perds...

Merci beaucoup pour le coup de main,

Xavier.

Le 09/11/2015 à 14:18

BOnjour

tu aurais du rester sur l'autre post.....

là faut fournir un fichier exemple et dire ce que tu recherche avec cette formule

Fred

Le 09/11/2015 à 14:31

Je viens d'éditer le message, désolé, je pensais que c'était mieux de séparer les sujets.

Xavier

Le 09/11/2015 à 14:41

re

tu ne fourni toujours pas un fichier test,... je ne suis pas sur que tu auras beaucoup de réponses sans cela..

pas besoin de fournir un fichier complet, seulement quelques lignes en ayant supprimer les données qui peuvent être sensibles..

j'ai bien compris qu'il faut faire une boucle jusqu’à la dernière ligne mais que cherche tu exactement

fred

Le 09/11/2015 à 14:52

Et voila!

9test.xlsx (26.74 Ko)
Le 09/11/2015 à 15:31

Re voici une proposition

pour lancer la macro crt+MAJ+R

reste deux formules a mettre en place pour les colonnes K et T (colonnes 11 et 20)

mais j'ai plus le temps sortie d’école des enfants...

fred

12test.xlsm (37.67 Ko)
Le 09/11/2015 à 16:00

Merci beaucoup!!

Je vais essayer de faire les deux formules restantes tout seul, je posterai ce que j'arrive à faire.

Xavier.

Le 09/11/2015 à 17:35

Je pense que tout ça marche, mais j'ai tout de même un soucis.

Les données extraites ont parfois dans la date un format qui n'est pas reconnu comme tel.

Est ce que vous avez une solution?

Je vous joins le fichier modifié.

Merci!

Xavier.

8test.xlsm (39.92 Ko)
Le 09/11/2015 à 17:46

re

là comme ça je ne vois pas... a priori cette "date " est au format texte... je ne vois pas comment remplacer cela part une vrai date.

Peut-etre que quelqu'un pourra te repondre

fred

Le 12/11/2015 à 15:23

Bonjour,

je crois que je commence à m'en sortir. Mais je bute sur une erreur quand la colonne K n'a pas de parenthèse dans la cellule.

J'ai essayé avec un iserror, mais je ne sais pas comment l'utiliser exactement.

Quelqu'un aurait un conseil?

Je pense faire une concatenation quand la cellule est en texte pour la reafficher en date, si vous avez une formule facile, je suis preneur .

Merci!

Xavier.

8test.xlsm (32.32 Ko)
Rechercher des sujets similaires à "formules transformer vba"