Contenu récent par kevenpom

  1. K

    XL 2010 Champ calculé VBA avec variable complexe

    J'ai honte ;) merci sa fonctionne parfaitement
  2. K

    XL 2010 Champ calculé VBA avec variable complexe

    Voici j'ai réduit au maximum les données. Mon but est simple c'est à chaque mois recalculé les tableaux croisé dynamique car il y a des colonnes qui s'ajoute. Merci pour votre aide :D
  3. K

    XL 2010 Champ calculé VBA avec variable complexe

    Une personne a déjà rencontré ce problème ?
  4. K

    XL 2010 Champ calculé VBA avec variable complexe

    Bonjour, Je souhaite créer un champ calculé avec un variable (string) qui change de mois en mois J'essai en vain de mettre ceci (qui fonctionne parfaitement) ActiveSheet.PivotTables("pvt1").CalculatedFiCalculatedFields.Addelds.Add "$inv - $max", "='2019-02 TOTAL'-'2019-02 $ Final max'", True...
  5. K

    XL 2010 Champs calculé sur une étiquettes de colonne

    voici le fichier merci encore pour l'aide. je fait la difference en pourcentage et en valeur mais je doit le mettre en champs calculé
  6. K

    XL 2010 Champs calculé sur une étiquettes de colonne

    Bonjour, j'ai trouvé beaucoup de réponse sur les champs calculé sur colonne mais avec plusieur etiquette de colonne. Dans mon cas je n'ai que une etiquette de colonne. comment faire pour calculer la difference dans ce cas en champs calculé Merci
  7. K

    Tri numerique alpha avec "-"

    Re : Tri numerique alpha avec "-" Merci, J'essai de comprendre le code de ce fichier qui est magnifique :) sa fonctionne dans le cas des 1x - et 2x - pour les 3x - doit-je rajourté une boucle dans le cas de AER 259-2021-4-5 j'ai un erreur est-ce une erreur qui ce corrige. Merci encore...
  8. K

    Tri numerique alpha avec "-"

    Re : Tri numerique alpha avec "-" bonjour Merci, dans le cas que j'ai des item qui ont 2 "-" comment puis-je procédé AER 2089-12-12S AER 2089-12-16S AER 2089-12-8S AER 2089-16-12S AER 2089-16-16S AER 2089-20-20S AER 2089-2-2S AER 2089-24-24S AER 2089-2-4S AER 2089-4-2S AER 2089-4-4S AER...
  9. K

    Tri numerique alpha avec "-"

    Re : Tri numerique alpha avec "-" Pardon je n'avait pas joint le fichier. Donc le 1206-10s arrive avant le -3s. resultat obtenue AER 1206-10S AER 1206-12S AER 1206-16S AER 1206-3S résultat souhaitez : AER 1206-3S AER 1206-10S AER 1206-12S AER 1206-16S Pareil pour...
  10. K

    Tri numerique alpha avec "-"

    Bonjour à tous, j'ai essayer beaucoup de fichier excel qui triai de valeur. mais je souhaite trier ces valeur Je ne peut pas rajouté de 0 devant le 03s donc a t'il une macro qui permerterai de trier ces valeur pour que le 1206-3s soit en premier. j'ai essayer TriNumerique.xls qui ne...
  11. K

    find dans un tableau()

    Re : find dans un tableau() Je la lisait en ce moment mais, je bug rendu ici Sub cout_dispo() Application.ScreenUpdating = False Dim WS1, WS2 As Worksheet Dim lastrow, lastrow2, Source_inv, Source_decomposition, maxinv, maxdecomp, mondico, i, L, k, m, x, clé, val1, val2, ligne As...
  12. K

    find dans un tableau()

    Re : find dans un tableau() Bonjour ca demeure très long quand même. tablo(i, 2) = Application.Match(Source_decomposition(i, 1), Application.Index(Source_inv, , 1), 0) me donne erreur d'incompatibilité de type 13 avec une dictionnaire peut-être ? Je sais comment la faire pour une...
  13. K

    find dans un tableau()

    Est-il possible de faire un .find dans un tableau qui amméliore la vitesse d'exécution. Merci Dim WS1, WS2 As Worksheet Dim lastrow, lastrow2, Source_inv, Source_decomposition, maxinv, maxdecomp, i, L, k, m, x As Long Set WS1 = ThisWorkbook.Sheets("inv") Set WS2 =...
  14. K

    Macro qui prend plus de 2 jours.

    Re : Macro qui prend plus de 2 jours. Donc je créer un tableau a 2 dimension qui aurait 25600 ligne par plusieur colonne. et le colle a la fin Est-ce que le reste de ma macro est optimisé ou il y aurait possibilité d'optimisé encore. Merci
  15. K

    Macro qui prend plus de 2 jours.

    Bonjour, J'ai réussi a utilise un tableau avec beaucoup de temps, Mais comment faire pour stocker dans un tableau mon Worksheets("decomposition").Cells(m, l).Value = Worksheets("selection").Cells(i, 17).Value pour le coller d'un seul coup a la fin au lieu d'écrire dans chaque cellule a...