Contenu récent par fil28

Bonjour le Forum, @Staple1600 Merci @Staple1600 pour ton retour '*******************CALULATION OFF********************************************************************************* Application.Calculation = xlCalculationManual With...

Bonjour le forum, @Staple1600, Je vous joins un fichier , Merci encore pour votre aide

Bonsoir @Staple1600 oui effectivement ! Je vais essayer de joindre une vlight demain

J'ai lu des posts avec manual update sur un tcd quelqu un sait comment intégrer cette fonction dans la procédure ?With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Days Overdue") J'ai essayé de le positionner à la fin mais ça n'a pas l'air de fonctionner Merci Philippe

Bonjour le forum, J'ai besoin de vos lumières car je suis bloqué sur une macro. Une valeur est définie par l'utilisateur elle s'appelle JourOver qui est en général aux alentours de 15 Je fais ensuite une boucle sur le pivot table (sur toutes le valeurs de p) Le problème que j'ai c'est que...

Merci Gégé pour ton retour, Les 2 fonctionnent, je mal orthographié un mot du coup ca ne fonctionnait pas :) Bonne journée Philippe

Bonjour le forum, Je sollicite votre aide J'ai le code suivant qui me dit que si ma cellule contient VarStock alors dans une autre cellule j'obtiens Cadrage Stock Var If Feuil13.Cells(i, Memo).Value Like "*Var Stock*" Then Feuil13.Cells(i, OdManuel).Value = "Cadrage Stock Var" Jusque là ca...

Merci MaPomme J'avais pas vu ta réponse !

J'ai essayé ca mais sans succès: Option Explicit Function EPURE$(txt$) Dim tablo, t tablo = [Liste] 'caractères spéciaux For Each t In tablo txt = Application.Trim(Replace(txt, t, Application.VLookup(t, tablo, 2, 0))) Next EPURE = txt End Function

re tout le monde Je pense effectivement qu'il s'agit d'un tableau à 2 dimensions. J'ai modifié via le gestionnaire de nom la plage J'ai essayé de triturer le code mais sans grand succès. Dans l'exemple de Job 75 ex: A chaque fois qu'il trouve un caractère présent dans la liste il ramenait vide...

Bonjour Job75 Autant pour moi il y avait txt = Application.Trim(Replace(txt, t, " ")) j'ai mis : txt = Application.Trim(Replace(txt, t, t.Offset(, 1))) Car je souhaite obtenir la valeur à droite de t (caractère spécial) qui est pour le moment vide Dis autrement je voudrais que à chaque...

Bonjour tout le monde, Je reprends le fil de cette discussion. La fonction dans le fichier "Epure Function" marche très bien mais au lieu de : txt = Application.Trim(Replace(txt, t, t.Offset(, " ")) j'ai mis : txt = Application.Trim(Replace(txt, t, t.Offset(, 1))) pour obtenir la valeur à...

Dernière question, J'aimerais comprendre ce qui ne va pas pas dans le code suivant : Je pense que la double boucle est mal construite mais je ne vois pas d'où ca vient Merci beaucoup Philippe

Bonjour le Forum Job75, Jean-Eric, J'espère que le long week end a été bon ? Merci beaucoup pour vos réponses. Le code Job75 marche très bien. Super !! Je ne connais pas trop PowerQuery ca sera l'occasion que je me documente :) Merci encore Philippe

Bonjour tout le monde, Je suis bloqué sur le problème suivant : J'ai 3 onglets : - "Début" - "Fin" - "Intermédiaire" L'onglet "Intermédiaire" = onglet Fin - Début Dis différemment Intermédiaire doit faire apparaitre les lignes qui sont dans Fin mais qui ne sont pas dans début. Les 3...