macro pour ramener éléments d'un fichier selon conditions Résolu

Question

Bonjour, 

Je recherche une solution (macro) afin de ramener différants éléments d'n fichier source (actualisé quatidiennement) vers un autre fichier selon plusieures conditions.

Afin d'être plus claire, je joins les deux fichiers (source et destination) ci-dessous.

Les besoins sont les suivants :

1/si n° COMPTE de DESTINATION existe dans SOURCE et libellé GN = Matière ou autres charges externes ramener "résultat cumulé" dans colonne 1	

2/si n° COMPTE de DESTINATION existe dans SOURCE et libellé GN =tous les autres, ramener "résultat cumulé" dans colonne 2

3/si n° COMPTE de TAB n'existe pas dans SOURCE => insérer ligne dans TBD est ramener N°compte et résultas cumulés dans colonne correspondante	

http://cjoint.com/?3AFjt2mBF2Z
http://cjoint.com/?3AFjuC3q4ny

J'ai bien tenté les recherchev mais popur les conditions si ça se complique !!!

D'avance merci à ceux qui voudront bien s'intéresser à mon problème ; je me tire les cheveux depuis deux jours et ne trouve pas la solution...

geeegeee · Answer

Bonjour,

il y a fonction somme si avec des condition pas necessairement dans la plage de séléction:
source:https://support.microsoft.com/fr-fr/office/somme-si-somme-si-fonction-169b8c99-c05c-4483-a712-1697a653039b?ocmsassetid=hp010342932&correlationid=386ae01e-7953-4a67-abaf-e22e0bc58b55&ui=fr-fr&rs=fr-fr&ad=fr

SOMME.SI, fonction
Afficher toutAfficher tout

Cet article décrit la syntaxe de la formule et l'utilisation de la fonction SOMME.SI dans Microsoft Excel.
Description

La fonction SOMME.SI permet de calculer la somme des valeurs d'une plage qui répond au critère spécifié. Par exemple, supposons que dans une colonne contenant des nombres, vous vouliez uniquement calculer la somme des valeurs supérieures à 5. Vous pouvez utiliser la formule suivante :

=SOMME.SI(B2:B25;">5")

Dans cet exemple, le critère est appliqué aux valeurs calculées. Si vous le souhaitez, vous pouvez appliquer le critère à une plage et calculer les valeurs dans une autre plage. Par exemple, la formule =SOMME.SI(B2:B5;"Jean";C2:C5) calcule uniquement la somme des valeurs de la plage C2:C5, dans laquelle les cellules correspondantes de la plage B2:B5 contiennent le mot « Jean ».

 Remarque   Pour calculer la somme de cellules en fonction de plusieurs critères, voir Fonction SOMME.SI.ENS.
Syntaxe

SOMME.SI(plage;critère;[somme_plage])

La syntaxe de la fonction SOMME.SI comporte les arguments suivants :

    plage    Obligatoire. Plage de cellules à calculer en fonction du critère. Les cellules de chaque plage doivent être des nombres ou des noms, des matrices ou des références contenant des nombres. Les valeurs vides ou textuelles ne sont pas prises en compte.
    critère    Obligatoire. critère, exprimé sous forme de nombre, d'expression, de référence de cellule, de texte ou de fonction qui définit les cellules à ajouter. Par exemple, l'argument critère peut être exprimé sous l'une des formes suivantes : 32, ">32", B5, 32, "32", "pommes" ou AUJOURDHUI().

 Important   Tous les critères textuels et tous les critères qui contiennent des symboles mathématiques ou logiques doivent être placés entre guillemets ("). En revanche, les guillemets ne sont pas nécessaires pour les critères numériques.

    plage_somme    Facultatif. Cellules réelles à ajouter, si vous voulez ajouter d'autres cellules que celles qui sont spécifiées dans l'argument plage. Si l'argument plage_somme est omis, Excel ajoute les cellules spécifiées dans l'argument plage (les cellules auxquelles s'applique le critère).

 Remarques 

    Vous pouvez utiliser les caractères génériques point d'interrogation (?) et astérisque (*)  dans l'argument critère. Le point d'interrogation correspond à un caractère quelconque et l'astérisque correspond à une séquence de caractères quelconque. Pour rechercher réellement un point d'interrogation ou un astérisque, tapez un tilde (~) devant ce caractère.

Remarque

    La fonction SOMME.SI renvoie des résultats incorrects lorsque vous l'utilisez pour mettre en correspondance des chaînes comportant plus de 255 caractères avec la chaîne #VALEUR!.
    L'argument plage_somme ne doit pas nécessairement avoir la même taille et la même forme que l'argument plage. Les cellules effectivement additionnées sont déterminées en utilisant la cellule supérieure gauche de l'argument plage_somme comme cellule de début, puis en incluant les cellules dont la taille et la forme correspondent à l'argument plage. Par exemple :

Playa2 · Answer

Merci pour tous ces éléments mais la fonction somme si ne m'est pas utile, je parlais de la fonction SI pour plusieurs conditions => j'ai trouvé la solution en utilisant loa fonction OU.

Le vrai problème que je rencontre est de ramener le résult cumulé dans la bonne colonne en fonction du N° de compte...

A +

Playa2 · Answer

Bonjour,

J'ai un pEu avancé avec les recherchesv mais c'est très lourd, je pense qu'il doit y avoir beaucoup plus simple, quelqu'un pourrait-il m'aider svp ???
Voilà la macro à ce jour :
 Columns("A:A").Select
    Selection.Insert Shift:=xlToRight
    Columns("G:G").Select
    Selection.Copy
    Columns("A:A").Select
    ActiveSheet.Paste
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Windows("source ep.xls").Activate
    Windows("resultats destnation.xls").Activate
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 27
    ActiveWindow.ScrollColumn = 28
    ActiveWindow.ScrollColumn = 29
    ActiveWindow.ScrollColumn = 33
    ActiveWindow.ScrollColumn = 34
    ActiveWindow.ScrollColumn = 35
    ActiveWindow.ScrollColumn = 34
    ActiveWindow.ScrollColumn = 33
    ActiveWindow.ScrollColumn = 32
    ActiveWindow.ScrollColumn = 28
    ActiveWindow.ScrollColumn = 27
    Range("AQ14").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(C[-42],'[source ep.xls]Feuil1'!R1:R65536,1,FALSE)"
    Selection.AutoFill Destination:=Range("AQ14:AQ125"), Type:=xlFillDefault
    Range("AQ14:AQ125").Select
    ActiveWindow.SmallScroll Down:=-84
    Range("AR14").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(C[-43],'[source ep.xls]Feuil1'!R1:R65536,17,FALSE)"
    Selection.AutoFill Destination:=Range("AR14:AR125"), Type:=xlFillDefault
    Range("AR14:AR125").Select
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.SmallScroll Down:=-75
    Range("AS14").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(C[-44],'[source ep.xls]Feuil1'!R1:R65536,6,FALSE)"
    Selection.AutoFill Destination:=Range("AS14:AS125"), Type:=xlFillDefault
    Range("AS14:AS125").Select
    ActiveWindow.SmallScroll Down:=-42
    Range("AU14").Select
    ActiveCell.FormulaR1C1 = _
        "=OR(RC[-2]=""matières"",RC[-2]=""autres charges externes"")"
    Selection.AutoFill Destination:=Range("AU14:AU125"), Type:=xlFillDefault
    Range("AU14:AU125").Select
    ActiveWindow.SmallScroll Down:=-66
    Range("AF15").Select
    ActiveCell.FormulaR1C1 = "=IF(R[-1]C[15]=TRUE,R[-1]C[12],0)"
    Selection.AutoFill Destination:=Range("AF15:AF54"), Type:=xlFillDefault
    Range("AF15:AF54").Select
    Selection.AutoFill Destination:=Range("AF15:AF124"), Type:=xlFillDefault
    Range("AF15:AF124").Select
    ActiveWindow.SmallScroll Down:=-60
    Range("AG15").Select
    ActiveCell.FormulaR1C1 = "=IF(R[-1]C[14]=FALSE,RC[11],0)"
    Range("AG15").Select
    Selection.AutoFill Destination:=Range("AG15:AG125"), Type:=xlFillDefault
    Range("AG15:AG125").Select
    ActiveWindow.SmallScroll Down:=-75
End Sub

Par ailleurs, je viens de m'apercevoir que l'on pouvait voter, est-il possible de le faire une fois la question résolue afin de remercier ceux qui m'ont déjà aidé?

Le Pingou · Answer

Bonjour,
Je vais regarder ce qu'il est possible de faire.

Avec quelques valeurs dans les 2 fichiers (correspondent à l'explication) ce serait plus facile de vous comprendre et vous donner une solution... !
  
Salutations. 
Le Pingou

Playa2 · Answer

Merci de vous préoccuper de mon problème.

En fait ma macro fonctionne ( pour les point 1 et 2 suivants) mais je pense qu'il existe une solution plus simple pour arriver au même résultat.
Par contre je bute sur le point 3 (insertion ligne)

Les besoins sont les suivants : 
1/si n° COMPTE de DESTINATION existe dans SOURCE et libellé GN = Matière ou autres charges externes ramener "résultat cumulé" dans colonne 1 
2/si n° COMPTE de DESTINATION existe dans SOURCE et libellé GN =tous les autres, ramener "résultat cumulé" dans colonne 2 
3/si n° COMPTE de TAB n'existe pas dans SOURCE => insérer ligne dans TBD et ramener N°compte et résultas cumulés dans colonne correspondante 

Les fichiers ci-dessous ont les éléments (les 4 lignes de source sont à ramener dans destination)
http://cjoint.com/?3AFjt2mBF2Z 
http://cjoint.com/?3AFjuC3q4ny 

D'avance merci beaucoup et bon we

Le Pingou · Answer

Bonjour,
J'ai déjà parcouru vos 2 fichiers, les explications (1 à 3) ne sont pas identiques à celle du fichier [Destination] c'est pourquoi je vous demande  de mettre les valeurs sources aussi au bon emplacement du fichier de destination ... est-ce possible ... !
Si vous avez créé une macro il serait bien de la mettre avec votre fichier, car  il suffit peut-être de l'adapter ..... !

Playa2 · Answer

Bonjour,

Je vous joins les deux fichiers avec les éléments et les macros (petites têtes rouges).

Merci d'avance des infos et aides que vous pourriez m'apporter.


http://cjoint.com/?3BejGbcGHvm
http://cjoint.com/?3BejGSvuG7J

ps : ne pas mettre à jour les liaisons à l'ouverture du fichier destination

Playa2 · Answer

annule et remplace le fichier destination
http://cjoint.com/?3BeooY2A1HW

Le Pingou · Answer

Bonjour, 
Il n'y a aucune concordance entre les données des 2 classeurs, impossible de contrôler le cas 1 et 2 ! 
Pourquoi vous ne mettez pas les données qui correspondent aux 3 cas dans le fichier source ? Il devrait y avoir les données des cas 1 et 2 pour pouvoir adapter votre code de manière correct..... ! 
Et enfin celle du cas 3 qui correspondent au code qui n'existe pas dans le fichier de destination. 
Ou bien je dois les inventer moi-même.... ! 
  
  
Salutations. 
Le Pingou

Playa2 · Answer

http://cjoint.com/?3BfjU2vcaS8 (source)
http://cjoint.com/?3BeooY2A1HW
(destination)

Voilà pour les cas 1 et 2  : ça fonctionne bien mais il y a un nouveau problème => dans le cas où un code est présent sur plusieures lignes dans la source (ex ligne 106 et 107), il faudrait cumuler les montants en colonne 1 de destination. Là, j'avoue n'avoir trouvé aucune solution.

Pour le cas 3, il faut ramener les lignes, dont les n°comptes n'apparaissent pas dans destination, dans une nouvelle feuille =>je n'ai toujours pas trouvé comment procéder !!!

J'espère vous avoir, cette fois, apporté tous les éléments nécessaires...

Vous priant de m'en excuser et vous remerciant par avance de vos lumières,

A bientôt.

Le Pingou · Answer

Bonjour,
Merci à première vue c'est bon cette fois.
Une précision pour le point 3, vous dites : il faut ramener les lignes, dont les n°comptes n'apparaissent pas dans destination, dans une nouvelle feuille

Est-ce que cela veut dire :
.- toutes les données d'une ligne dans les colonnes correspondante au titre ... ?
.- dans une nouvelle feuille identique à [TdB PROJETS  VAD 2012] mais vide   ?

Playa2 · Answer

Bonjour,

Les lignes (source) dont les n° de compte ne sont pas dans destination doivent être copier-coller dans un nouveau fichier telles que (présentation fichier source).

Par ailleurs, pensez-vous qu'il soit possible de cumuler les montant dans un même cellule (ex lignes 106 et 107) ???

D'avance merci de votre réponse.

Le Pingou · Answer

Bonjour,
Merci, patience pour la suite.

Le Pingou · Answer

Bonjour,
Pour information, j'ai eu un contre temps ce sera pour demain dans la journée.

Le Pingou · Answer

Bonjour,
Je vous laisse découvrir ma proposition, il suffit de déclencher la procédure par clic sur le bouton de commande sur la feuille du classeur [Playa2_ccm_destination.xls].
Le 2 fichiers sont dans le ZIP: https://www.cjoint.com/?3BguyUv6n4c
J'espère que cela vous conviendra... !

Playa2 · Answer

Bonjour et merci beaucoup pour cette proposition. 

Elle fonctionne très bien, sauf pour le cas 3 où la macro bloque =>  
Erreur d'exe '1004' : la méthode 'SaveAs' de l'objet'_'Workbook' a échoué 

La ligne suivante est surlignée dans la macro : 
ActiveWorkbook.SaveAs Filename:=rep & "\Playa2_nouveau.xls", _ 
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _ 
        ReadOnlyRecommended:=False, CreateBackup:=False

Pour les cas 1 et 2, c'est ok dans vos fichiers mais lorsque j'applique la même macro(copier-coller) dans mon fichier, j'ai le message d'erreur suivant : 
Erreur d'exe "9" : L'indice n'appartient pas à la sélection 

Et la ligne suivante est surlignée dans la macro :  
Set wbdes=workbooks(desti) 

J'ai bien tenté de modifier (desti) mais sans succès !!! 

Si vous préférez ne pas passer trop de temps sur ce problème, pouvez-vous uniquement m'indiquer la  commande permettant de cumuler les montants à ramener dans les cellules ainsi que la commande permettant de copier-coller les lignes ??? 

D'avance MERCI.

Le Pingou · Answer

Bonjour,
Merci  pour l'information.
C'est bizarre cet erreur, avez-vous bien enregistré les 2 classeurs dans le même répertoire, sur le bureau par exemple ... Oui / Non   ?
Qu'elle est la version MS Office  ... ?

Playa2 · Answer

Bonjour,

Je confirme l'enregistrement des 2 fichiers sur le bureau et je travaille sur excel 2002 c'est peut-être la raison ???

Sinon pour les lignes :
Set wbdes = Workbooks(desti)
Set wbsou = Workbooks(source)

Comment dois-je inscrire les noms de mes fichiers ? (résultats destination) et (source ep) ne fonctionnent pas...

D'avance merci.

Le Pingou · Answer

Bonjour,
Merci.
J'aimerais pour commencer régler le problème de l'enregistrement du cas 3. 
Pouvez-vous réaliser ceci :
Ouvrir le fichier source [Playa2_ccm_source_ep_05022013.xls] / Activer  l'enregistreur de macro (icône en bas à gauche) / clic droit sur la feuille [Feuil1] et choisir [Déplacer ou copier...] / dans classeur choisir (nouveau classeur)  et cocher la case [Créer une copie) puis sur OK / vous avez un nouveau classeur vous faite [enregistrer sous] par exemple sur le bureau et vous donnez un nom / clic enregistrer. Pour terminer vous fermer l'enregistreur de macro.
Vous mettez le classeur [Playa2_ccm_source_ep_05022013.xls] sur  https://www.cjoint.com/ et poster le lien.
Note : je vous expliquerez l'autre problème après .... !

Playa2 · Answer

Hello,

je suis désolée mais je ne trouve pas l'enregistreur de macro (icône en bas à gauche) !!!

J'ai tenté dans la barre d'outil visual basic mais sans succès...

HELP HELP

Le Pingou · Answer

Bonjour,
J'ai pensé que sous Excel 2002 il y avait aussi l'icône, alors vous procédez comme  pour la : Macro enregistrée le 04/02/2013 par RATP .... !

Playa2 · Answer

Vous allez me prendre pour un boulet mais pouvez-vous me dire ce que vous voulez exactement ?

D'après ce que je comprends, vous attendez votre fichier sourcePlaya2_ccm_source_ep_05022013.xls sous le nom que je compte utiliser.

Est-ce bien cela ???

Le Pingou · Answer

Bonjour,
Dans le but d'obtenir le code généré par votre version Excel 2002 , j'aimerais que vous enregistrer une nouvelle macro avec l'enregistreur selon les opérations que j'ai mentionné.
Le procéder est le même que pour la macro  que pour celle que vous avez dans le poste : https://forums.commentcamarche.net/forum/affich-27033919-macro-pour-ramener-elements-d-un-fichier-selon-conditions#3
Ensuite vous mettez le classeur [Playa2_ccm_source_ep_05022013.xls] sur https://www.cjoint.com/ et poster le lien.

Playa2 · Answer

Voilà,

J'espère que c'est bien ce que vous attendiez :

http://cjoint.com/?3BiotUsagVc

Cdlt.

Le Pingou · Answer

Bonjour,
Non ce n'est pas cela, de ce fait je me demande d'où sort la macro que vous avez présenté là : https://forums.commentcamarche.net/forum/affich-27033919-macro-pour-ramener-elements-d-un-fichier-selon-conditions#3

Eh bien je vous propose d'essayer avec la version suivante : https://www.cjoint.com/?3BioVhQF46H

Playa2 · Answer

Merci pour la proposition, toujours ok pour cas 1 et 2 mais problème pour le cas 3 => Erreur d'exe "13" et la ligne surlignée est la suivante : 
If CInt(Application.Version) < 12 Then 

Par ailleurs, je vous joins le fichier avec ma macro modifiée entre-temps sans le cumul des matières et autres charges bien entendu (clic sur rectangle jaune). 
http://cjoint.com/?3BipJGYuP00 
http://cjoint.com/?3BipQFlfZoX

De plus la demande a changée, les lignes à copier-coller dans un nouveau fichier sont celles du fichier destination pour lesquelles les colonnes 1 et 2 (surlignées jaune) sont vides... 

Désolée, je viens juste d'avoir l'info, 

Encore un grand merci pour votre aide

Le Pingou · Answer

Bonjour, 
Maintenant je veux savoir exactement la valeur qui se trouve dans le code [Application.Version], pour se faire, vous lancer la procédure et dès l'apparition du message vous cliquez sur débogage, sélectionner (Application.Version) et il devrait apparaitre une valeur.... Que vous me transmettez... j'attends... ! 
Je veux aussi la réponse à ceci : Non ce n'est pas cela, de ce fait je me demande d'où sort la macro que vous avez présenté là : https://forums.commentcamarche.net/forum/affich-27033919-macro-pour-ramener-elements-d-un-fichier-selon-conditions#3 
  
  
Salutations. 
Le Pingou

Playa2 · Answer

La valeur est "10.0".

La macro postée plus haut dont vous parlez a été remplacée par celle que je vous est postée à l'instant. Elle n'existe donc plus.

Cordialement.

Playa2 · Answer

Voilà le bon lien :
http://cjoint.com/?3BiqgektOF2

Pardon

Playa2 · Answer

Quand je clic sur[CInt(Application.Version)]  : 
j'ai le message suivant : Cint(ApplicationVersion) = <Incompatibilité de type> mais pas de valeur.

Quant-à la macro, c'est bien moi qui l'est créee en allant dans outil,macro, nouvelle macro...

Le Pingou · Answer

Bonjour,
Quand je clic sur[CInt(Application.Version)]  : 

j'ai le message suivant : Cint(ApplicationVersion) = <Incompatibilité de type> mais pas de valeur.

Je pense que c'est dû à la version 2002 qui ne prend pas en charge la fonction [CInt], comme je veux que cela fonctionne je vais chercher l'équivalent.

Le Pingou · Answer

Bonjour, 
Merci d'essayer en remplacant le [CInt(Application.Version)] par [Val(Application.Version)]   
  
  
Salutations. 
Le Pingou

Le Pingou · Answer

Bonjour,
Je suppose que la procédure fonctionne avec le remplacement de [CInt] par [Val] en conséquence ma proposition selon votre modification pour le cas 3.
Les 2 classeurs en ZIP : https://www.cjoint.com/?3Biw1ndcxaO

Playa2 · Answer

Bonjour Le Pingou,

Cette fois la macro fonctionne très bien jusqu'au point 3; merci beaucoup !!!

Cependant, lorsque je l'applique à mon fichier, j'ai toujours le même problème sur le point 1 : erreur d'exe "9" : l'indice n'appartient pas à la sélection.
Et surligne : Set wbdes = Workbooks(desti)

Savez-vous comment je dois écrire "résultats destination" et "source ep" ???

D'avance merci.

Playa2 · Answer

En fait, j'ai solutionné le problème précédent (il suffisait de mettre des guillemets).

Par contre je recontre le nouveau problème suivant sur le point 3 : erreur d'exe "1004" : l'indice portant ce nom est introuvable et la ligne surlignéé : ActiveSheet.Shapes.Range(Array("CmdeTrait")).Delete

Avez-vous la soluttion ???

D'avance merci.

Playa2 · Answer

Hello, 

J'ai copier-coller votre macro que j'ai renommée Macro4. J'ai créer un nouveau bouton auquel j'ai affecté "Macro4" ai modifié la macro de cette façon : ActiveSheet.Shapes.Range(Array("macro4")).Delete et ai cliqué sur mon bouton. 

Malheureusment, j'obtiens toujours le message d'erreur  erreur d'exe "1004" : l'indice portant ce nom est introuvable et la ligne surlignéé : ActiveSheet.Shapes.Range(Array("Macro4")).Delete  

Ai-je bien compris votre précédent message ???

Par ailleurs, le nouveau fichier créer pour ramener les lignes comporte toutes les lignes du fichier destination et non pas uniquement celles vides en colonne 1 et 2 comme recherché !!! Comment puis-je modifier cela ???

D'avance merci.

Le Pingou · Answer

Bonjour,
Eh bien, le nom de votre bouton n'est pas celui de la macro, ce sont 2 objets différents. Chercher le nom attribué à votre bouton ....... Vous sélectionnez le bouton et le nom devrait se trouver dans la fenêtre à gauche de la barre des tâches ...!

Pour le nouveau fichier créé : je viens de contrôler et il y a uniquement les lignes dont les valeurs sont vides pour les colonnes 1 et2.

Playa2 · Answer

J'ai suivi vos instructions (clic droit sur mon bouton) et en haut à gauche (nom de cellule) est indiqué Groupe 24, j'ai donc fait un copier-coller de ce nom et ai modifié la macro :
ActiveSheet.Shapes.Range(Array("Groupe 24")).Delete

Cependant, je reçois toujours le même message d'erreur !!!

Par ailleurs, j'ai vérifié et pour le cas 3 c'est ok, désolée !!!

Tous est donc parfait à part le petit soucis dit plus haut...

Playa2 · Answer

Hello, J'ai résolu le problème de nom de bouton !!! A présent j'ai un nouveau message d'erreur : erreur exe "13" Incompatibilité de type et la ligne surlignée : If .Cells(c, gnma) <> "" Or .Cells(c, gnsn) <> "" Then Cdlt.

Le Pingou · Answer

Bonjour,
Oui c'est une petite erreur de ma part une mauvaise valeur.
Merci de remplacer 2 par 14 dans la ligne ....
Doit- être : For c = nbli To 14 Step -1

Playa2 · Answer

OK merci, on a bien passé ce cap mais maintenant j'ai le même problème sur la ligne suivante à savoir erreur d'exe "13" Incompatibilité de type et la ligne surlignée : If .Cells(c, gnma) <> "" Or .Cells(c, gnsn) <> "" Then Je suis désolée mais comme je ne comprends pas la macro, je n'arrive pas a régler les problèmes par moi-même !!! De plus, avec le fichier source que nous avons partagé, votre macro s'applique parfaitement => je ne comprends pas pour quelles raisons elle pose problème sur une autre fichier... Cdlt.

Le Pingou · Answer

Bonjour,
Je vous l'ai déjà mentionné avec ceci :
Note: J'ai vu votre dernier message et si vous modifier le code je n'ai aucune chance de vous aider sans avoir la procédure complète (donc une copie de la procédure que vous avez modifier.. !)

Playa2 · Answer

Bonjour, Voici la macro à ce jour : Sub EP() Dim wbdes As Object, wbsou As Object Dim cel As Variant Set wbdes = Workbooks("resultats destination") Set wbsou = Workbooks("source ep") shde = ActiveSheet.Name ' **** traitement cas 1 et 2 (GN = "matières" OU "autres charges externes" montant en colonne [AF] si non [AG] gnma = Columns("AD").Column: gnsn = Columns("AE").Column mcgnma = 0: mcgnsn = 0 Application.ScreenUpdating = False With wbdes.Sheets(shde) nbli = .Cells(Columns(1).Cells.Count, 1).End(xlUp).Row For Each cel In .Range("A14:A" & nbli) nbcpt = WorksheetFunction.CountIf(wbsou.Sheets(1).Range("A:A"), cel.Value) If nbcpt > 0 Then Set result = wbsou.Sheets(1).Range("A:A").Find(What:=cel.Value, LookIn:=xlValues) If nbcpt = 1 Then If result.Offset(0, 5) = "Matières" Or result.Offset(0, 5) = "Autres charges externes" Then ' MsgBox "le code GN: " & result.Offset(0, 5) Cells(cel.Row, gnma) = result.Offset(0, 16).Value Else ' MsgBox "le code GN: " & result.Offset(0, 5) Cells(cel.Row, gnsn) = result.Offset(0, 16).Value End If Else For c = 1 To nbcpt If result.Offset(0, 5) = "Matières" Or result.Offset(0, 5) = "Autres charges externes" Then ' MsgBox "le code GN: " & result.Offset(0, 5) mcgnma = mcgnma + result.Offset(0, 16).Value Else ' MsgBox "le code GN: " & result.Offset(0, 5) mcgnsn = mcgnsn + result.Offset(0, 16).Value End If Set result = wbsou.Sheets(1).Range("A:A").FindNext(after:=result) Next c Cells(cel.Row, gnma) = mcgnma: Cells(cel.Row, gnsn) = mcgnsn mcgnma = 0: mcgnsn = 0 End If End If Next cel End With Application.ScreenUpdating = True ' **** traitement cas 3, nouveau classeur avec données n°compte non présent dans destination repertoire = wbdes.Path wbdes.Sheets(shde).Copy If Val(Application.Version) < 12 Then ActiveWorkbook.SaveAs Filename:=repertoire & " ouveau_desti.xls" Else ActiveWorkbook.SaveAs Filename:=repertoire & " ouveau_desti.xls", _ FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False End If ActiveSheet.Shapes.Range(Array("essai")).Delete Application.ScreenUpdating = False Set wbdes = ActiveWorkbook With wbdes.Sheets(1) nbli = .Cells(Columns(1).Cells.Count, 1).End(xlUp).Row For c = nbli To 14 Step -1 If .Cells(c, gnma) <> "" Or .Cells(c, gnsn) <> "" Then .Rows(c).Delete End If Next c End With MsgBox "Le traitement du cas 3 est terminé, nouveau classeur créé." Application.ScreenUpdating = True Set wbdes = Nothing Set wbsou = Nothing Set result = Nothing End Sub En gras la ligne sur laquelle la macro bloque avec le message d'erreur d'exe "13" Incompatibilité D'avance merci.

Le Pingou · Answer

Bonjour, Dans cette boucle : For c = nbli To 14 Step -1 If .Cells(c, gnma) <> "" Or .Cells(c, gnsn) <> "" Then .Rows(c).Delete End If Next c Disposition correcte : For c = nbli To 14 Step -1 If .Cells(c, gnma) <> "" Or .Cells(c, gnsn) <> "" Then .Rows(c).Delete End If Next c

Playa2 · Answer

Bonjour et merci pour cette réponse,

La donne a changé car j'ai du créer deux autres macros qui se lancent avant la votre ; du coup des montants viennent s'afficher sur des n° compte "avenir" ce qui ne devrait pas être le cas.

Je pense qu'une modification de votre macro doit être apportée mais je n'ai auncune idée de la façon de procéder.

Je vous joins donc les différentes sources pour les 3 macros (boutons 1 - 2 -3 en haut à gauche) ainsi que le fichier destination final (j'ai tenté d'oter le maximum d'info pour ne pas trop alourdir le fichier tout en laissant les éléments dont vous pouvez avoir besoin).

http://cjoint.com/?3BnlyzoexRf
http://cjoint.com/?3BnlzkeiJMy
http://cjoint.com/?3BnlzOd8vxK
http://cjoint.com/?3BnlA42ZBgF

Je suis désolée de ce contretemps et vous remercie une fois de plus du temps que vous voudrez bien me consacrer.

Cdlt.

Le Pingou · Answer

Bonjour, 
Je vais regarder ce qu'il est possible de faire. A première il y a des opérations à double et inutile et un nombre de module qui non rien à faire là. En plus une à deux procédures qui doivent être transformé car issu de l'enregistreur de macro donc mauvais lors d'une répétition des codes. 
  
  
Salutations. 
Le Pingou

Le Pingou · Answer

Bonjour,
Dans un premier temps j'ai besoin de comprendre à quoi sert ceci : La donne a changé car j'ai du créer deux autres macros qui se lancent avant la votre   ?

Le Pingou · Answer

Bonjour,
En étudiant votre feuille [TRAVAIL] du classeur [resultats_destination] je me pose de sérieuses questions.
Pourquoi utilisez 2 macros pour insérer des fonctions [RECHERCHEV()] alors qu'il suffit de le créer une seul fois dans la feuille et c'est tout. 
La seul qui se justifie et celle qui traite les colonnes [AD:AE] pour pouvoir obtenir le cumul des [Résultat cumulé] selon besoin.

J'ai essayé de lancer la procédure 1, 2 puis 3 et aucunes fonctionne tout simplement parce ce que les noms des classeurs utiliser dans vos procédure ne corresponde aux fichiers que vous avez mis à disposition (exemple : [resultats_destination] différent de [resultats destination].
Dans mon exemple du début j'avais obligé de passer par un formulaire de saisi des noms des classeurs pour éviter ces problèmes de la sorte que la procédure travail toujours avec les bonnes références.

Playa2 · Answer

Bonjour Le Pingou,

Je vais tenté de répondre à vos différentes questions en étant la plus claire possible :

1/ La donne a changé : en fait je vous ai informé de ce fait uniquement pour que vous ayez tous les éléments - la 1ère macro ramenant des numeros de comptes tels que Avenir que vous n'aviez pas jusqu'alors,

2/ Il est vrai que les recherchev auraient pu être traités en une seule macro mais la demande était d'avoir une macro par source différente,

3/ En ce qui concerne le nom des fichiers qui ne correspondent pas et qui empêchent les macros de fonctionner => je ne comprends pas car je n'ai aucun problème sur mon poste.

Espérant avoir répondu au mieux,

Cdlt.

P.S : A ce stade, le plus important pour moi est d'arriver à cumuler les montants dans les bonnes colonnes et que le montant total des 2 colonnes (réalisé 2012) correspondent au total de la source.

Le Pingou · Answer

Bonjour,
Précision :
1/ la 1ère macro ramenant des numeros de comptes tels que Avenir que vous n'aviez pas jusqu'alors,
Ma question était : pourquoi une macro alors qu'il suffit d'écrire directement la fonction sur la feuille et c'est tout ?

2/ Il est vrai que les recherchev auraient pu être traités en une seule macro mais la demande était d'avoir une macro par source différente,
Ma question était : pourquoi une macro alors qu'il suffit d'écrire directement la fonction sur la feuille et c'est tout ?

3/ En ce qui concerne le nom des fichiers qui ne correspondent pas et qui empêchent les macros de fonctionner => je ne comprends pas car je n'ai aucun problème sur mon poste.Lorsque le fichier transmis a pour nom : [source_gisor.xls] et que dans votre code [Sub GISORS()] vous avez la référence du classeur :[source gisor.xls] comme le nom est différent (manque le [_]), la fonction ne trouve pas le classeur ...tourne un certain temps ....sans aucun résultats. 

En plus vous ne répondez pas à ceci : Dans mon exemple du début j'avais obligé de passer par un formulaire de saisi des noms des classeurs pour éviter ces problèmes de la sorte que la procédure travail toujours avec les bonnes références.

Playa2 · Answer

Hello,

Je vais vous répondre point par point :

1/ En effet, les recherchev ne nécessitent pas de macro, cependant la première opération consistant à un copier-coller du n° FOP sur lequel s'appuit les recherchev, et la demande d mon supérieurs étant de faire une macro ; j'ai donc bêtement répondu à l'attente.

2/CF. Réponse ci-dessus

3/ Peut-être le problème vient-il de cjoint.com car sur mon ordi les noms des fichiers et dans les macros sont les mêmes => que puis-je faire pour vous faciliter la tâche ???

4/Je n'ai malheureusement pas de réponse à vous donner ; je n'ai apporté, dans votre macro, que les modifications dont nous avions parler suite aux erreurs  d'exe !!!

N'hésitez pas à me faire les demandes dont vous avez besoin afin de résoudre ces problèmes.

Cdlt.

P.S : un grand merci pour votre patience, j'ai bien conscience que je vous facilite pas la tâche !!!

Le Pingou · Answer

Bonjour,
Une question de principe : est-ce que au départ la feuille [Travail] du classeur [resultat destination] doit être vide ....Oui / Non
Si Oui alors on le charge avec les valeurs du classeur [source gisor.xls] puis [source cp invest.xls] et en dernier avec les valeurs, selon N°compte du classeur [source ep.xls] ....est-ce correct ...Oui / Non

Le Pingou · Answer

Bonjour,
La dernière du soir, j'ai l'impression que pour les données de [source gisor.xls] à reprendre dans [resultat destination] la fonction (Recherchev) est inutile car vous copier toute les lignes donc il suffit de copier colonne par colonne sur la bonne position ...
Qu'en pensez-vous ... ?

Playa2 · Answer

Bonjour,

Tout d'abord un grand merci pour votre aide ; en effet, à ce jour tout fonctionne parfaitement.

J'ai simplement dû faire une macro qui supprime les données ramenées d'EP à la fermeture de DESTINATION pour éviter que les montants se cumulent et donnent des résultats faux.

Je vais tout de même répondre à vos questions car il me semble que c'est le minimum :

Question 1 et 2 : oui et oui
Pour ce qui est de copier-coller à la place de recherv, je suis d'accord mais j'ai préféré la recherchev pour éviter un éventuel décallage...

Bonne soirée à vous et encore un grand merci, je n'y serais pas arrivée sans votre aide !!!

Le Pingou · Answer

Bonjour,
Merci, entre temps j'ai préparé une solution qui fait le tout en une seule fois.
Un petit détail à régler, dans la soirée ce sera prêt.
Au passage à quoi servent les fonction dans les colonne [I, M, W:AC, AI :AM] .... ?

Le Pingou · Answer

Bonjour,
La proposition promise : https://www.cjoint.com/?3Bpu2AhMA9e
Vous ouvrez les 4 classeurs (rien de plus) et déclencher la procédure avec le bouton.
Bonne découverte.

Macro pour ramener éléments d'un fichier selon conditions

56 réponses

Votre réponse

Discussions similaires

Newsletters