VBA: Association + addition des mêmes d'une feuille à l'autre
Résolu
Metaux
Messages postés
47
Date d'inscription
Statut
Membre
Dernière intervention
-
Metaux Messages postés 47 Date d'inscription Statut Membre Dernière intervention -
Metaux Messages postés 47 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- VBA: Association + addition des mêmes d'une feuille à l'autre
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Mkdir vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Vba range avec variable ✓ - Forum VB / VBA
Maintenant j'aurais une autre contrainte à ajouter si je peux me permettre !
J'ai ajouté une colonne '' Matériaux'', dans la feuille ''entrée info'' et des feuilles excel.
Donc sur la feuille ''Entrée info'' lorsque qu'à la colonne '' Matériaux'' c'est écrit : SomABS, Toujours avec le même code, j'aimerais donc que les données soient redirigées vers la feuille du même nom ''SomABS'', si dans la colonne c'est écrit SomPVC, je veux donc que le code inscrive sur la feuille du même nom : SomPVC
https://www.cjoint.com/c/FCxsqTIv6D0
Merci bcp
Modifie ainsi la macro :
Sub transfert() Dim Ligne As Long, lgr As Long 'dernière ligne remplie de la feuille active (Entrée infos) Ligne = ActiveSheet.Columns(4).Find("*", , , , xlByColumns, xlPrevious).Row ' Boucle sur les lignes de la 3° à la dernière For n = 3 To Ligne Total = 0 ' Si cellule en D non vide et que c'est la 1ere fois pour cet item et ce materiau If Range("D" & n) <> "" And Application.WorksheetFunction.CountIfs(Range("D3:D" & n), Range("D" & n), Range("E3:E" & n), Range("E" & n)) = 1 Then ' alors on ajoute la quantité à total Total = Total + Range("F" & n) ' puis on boucle sur les lignes qui suivent jusqu'à la dernière For t = n + 1 To Ligne ' et si c'est le même item on ajoute la quantité au total If Range("D" & t) = Range("D" & n) Then Total = Total + Range("F" & t) Next t nomf = Range("E" & n) ' ligne de l'item dans Sommaire lgr = Sheets(nomf).Columns(2).Find(Range("D" & n), , , xlWhole, xlByColumns, xlPrevious).Row ' On met le total en colonne C de Sommaire Sheets(nomf).Range("C" & lgr) = Total End If Next MsgBox "Transfert des données dans Sommaires effectué" End SubCdlmnt
Via
Seulement, il y a une erreur de type "l'indice n'appartient à la sélection" à la ligne du code VBA qui débute par lgr = ... j'ai donc l'impression qu'il n'est reconnait pas l'écriture des onglets du classeur...
J'apprécie
En faisant des test j'ai remarqué quelque chose que ne fonctionne pas comme prévu
Dans le fichier j'ai fais un exp. avec seulement l'item 45° x 2"
Item Matériaux Qté.
45° x 2" Som ABS 2
45° x 2" SomBNQ 2
45° x 2" Som ABS 2
j'obtiens dans la feuille Som ABS :
Item Matériaux Qté.
45° x 2" Som ABS 6
alors que je devrais obtenir 4,
ET
j'obtiens dans la feuille SomBNQ :
Item Matériaux Qté.
45° x 2" Som ABS 4
alors que je devrais obtenir 2,
Donc dès qu'il rencontre pour une première fois le matériaux, il va additionner toutes les qtés se trouvant sous cette ligne portant le même nom de l'item associé sans se soucier du matériaux
Si tu peux m'aider à corriger ça
Merci BEAUCOUP
https://www.cjoint.com/c/FCyplhvDFJ0