Contenu récent par Gestionnaire_rh

Bonjour, Pour l'erreur, c'est bon, et concernant les feuilles générées, j'ai constaté que la condition n'est pas respectée car elles sont générées même lorsque K < 0. Normalement, le code devrait générer soit la colonne N, soit la colonne O. De plus, le nombre de lignes sur les feuilles...

bien réussi, merci

Bizarrement, cela ne fonctionne pas maintenant. J'ai ajouté mes données sur les feuilles "Balance N", "Balance N-1" et "Paramétrage des leads", mais les nouvelles feuilles ne respectent pas la condition de la colonne K, ceci dit que la feuille générer est vide et le message d'erreur 438 sur la...

Je souhaite avoir des sous-totaux des colonnes 3,5, et 7 selon les valeurs présentes dans la colonne 12 (L), sans passer par onglet données --> Plan --> sous-total. Et pour la fonction index et la colonne 8, je souhaite l'avoir autant qu'identifiant du sous-total. (exemple en image feuille SS).

La dernière version, avec les résultats souhaités, présente un seul problème : remplacer ceci .ShowTotals = True par cela .Subtotal GroupBy:=12, Function:=xlSum, TotalList:=Array(3, 5, 7), Replace:=True, PageBreaks:=False, SummaryBelowData:=True

Les en-têtes de colonnes correspondent aux conditions des sous-totaux. Si k >= 0, la colonne P est copiée vers la colonne L des feuilles de destination. Sinon, la colonne Q est copiée vers la colonne L des feuilles de destination. C'est pour cette raison que j'ai repris la même logique, car il...

Après réflexion, je me suis aperçu que ta remarque était effectivement pertinente. J'ai donc pris le temps de corriger le code comme suit : indexValue = Application.WorksheetFunction.Index(wsParam.Range("H6:H156"), Application.WorksheetFunction.Match(wsBalanceN.Cells(balanceRow, 13).Value...

RE, Je te remercie pour ton retour. Concernant le fichier, il permet de regrouper les comptes comptables par familles pour deux exercices : l'année N et l'année N-1, ce qui est particulièrement utile pour le contrôle et la vérification des écritures avant le dépôt des bilans. Il reste à ajuster...

Je vous remercie pour votre précieuse collaboration et reste à votre disposition pour toute information complémentaire

Je peux fournir tout le code du fichier si cela peut aider à mieux comprendre mon problème.

Bonjour, Mlagré que j'ai retiré beaucoup informations et feulles pour l'alleger, j'arrive tojours pas a joindre le fichier. Malgré le fait que j'ai retiré beaucoup d'informations et de feuilles pour alléger le fichier, je n'arrive toujours pas à le joindre.

bonour Bonjour, ci joint un fichier essai bonjour, J'ai retiré certaines informations de l'entreprise, en espérant que le fichier fonctionne toujours correctement.

Bonjour tous le monde, Je pense avoir bien avancé sur mon sujet, reste juste le tri et sous totaux qui ne fonctionne toujours pas Sub RemplirBalanceAvecFeuilles() Dim wsBalanceN As Worksheet Dim wsBalanceN_1 As Worksheet Dim wsDest As Worksheet Dim i As Long Dim DernLigne As...

Re : Rechercher deux valeurs identiques Bonjour, Peut être avec un sierreur(recherchev(.....);"") Cordialement

Re : Refaire un nouveau tableau selon un critère Bonsoir, sur votre fichier, je vous propose une solution sur la feuille "essai" Cordialement