Probleme avec code VBA

Question

BONSOIR J'AI PLUSIEURS CLASSEUR EXCEL QUI CONTIENNENT PLUSIEURS FEUILLE ET JE VOUDRAI FAIRE UN RÉCAPITULATIF DE CERTAINE CELLULES DANS UN AUTRE CLASSEUR. EXEMPLE :

CLASSEUR 1 / FEUILLE (FICHE DE SALAIRE) CELLULE G42 G41 G40 G39

CLASSEUR 2 / FEUILLE (FICHE DE SALAIRE) CELLULE G42 G41 G40 G39

CLASSEUR 3 / FEUILLE (FICHE DE SALAIRE) CELLULE G42 G41 G40 G39

DANS LE CLASSEUR RÉCAPITULATIF SUR LA FEUIL1 JE VEUX FAIRE

LA SOMME DE G42 EN A1

LA SOMME DE G40 EN A2

LA SOMME DE G39 EN A3

J'AI TROUVE UN CODE QUI MARCHE TRÈS BIEN MAIS IL FAUT LE REFAIRE POUR CHAQUE CELLULE Y A T IL UN MOYEN POUR FAIRE QU'UN SEUL CODE POUR TOUTE LES CELLULES.

LE CODE EST EN PIÈCE JOINTE

MERCI

16paie-2016.xlsm (20.16 Ko)

MFerrand · Answer

Si tu pouvais éviter de tout écrire en majuscules, c'est tout à fait contraire à la convivialité.....

MFerrand · Answer

C'est mieux...!

D'abord pourquoi 3 classeurs ? Rien n'empêche les 3 feuilles concernées (et les suivantes) d'être dans le même classeur. Cela faciliterait pas mal d'opérations.

[Note bien qu'ensuite je te dirai peut-être : pourquoi 12 feuilles alors qu'une feuille de stockage et une feuille d'affichage suffisent... mais chaque chose en son temps ]

Ensuite tu trouves un code, fait certainement pour autre chose (ou si un tel code pour un simple addition, par quelqu'un qui fume la moquette en même temps que le VBA... ). Donc si vraiment faut en passer par VBA, est-ce vraiement utile de se compliquer encore plus, avec le risque d'avoir ultérieurement des effets imprévus...

Enfin, un code qu'il faudrait réitérer pour chaque cellule, ça n'existe pas ! c'est qu'on ne sait pas faire et que le code est inadapté.

Outre, la question de feuilles dispersées dans différents classeurs, avoir les cellules qu'on compte utiliser ultérieurement regroupées :

42 41 40 ou 41 40 39 ou 42 40 38 ... serait trop simple ! C'est sans doute pour donner des exercices un peu consistants aux intervenants dans les forums...

Comment construire une macro pour faire une addition ? Il faudra recueillir les résultats : on va donc prévoir un tableau à 3 éléments puisque 3 résultats.

Pour faire l'addition de nombres de 3 classeurs distincts il faut ouvrir les classeurs tour à tour : on va donc faire un tableau des noms de classeurs pour les traiter en boucle.

On suppose que le vice n'a pas été poussé jusqu'à fourrer tous ces classeurs en différents points du disque dur ! Et que les 4 sont dans le même dossier.

Une fois le classeur ouvert, on récupère les valeurs à additionner, qu'on additionne dans chaque élément du tableau prévu pour ça, puis on le referme. Et on le fait aussi avec une boucle qui va faire se succéder 42, 40, 39 ! Non mais !

Il ne reste plus qu'à affecter les résultats, dans une plage dont les cellules sont contiguës ! Miracle !

Cela donne quelque chose comme ça :

Sub Sommes()
    Dim T(2), fich, chemin$, f%, i%
    chemin = ThisWorkbook.Path & "\" 'en supposant tous les classeurs dans même dossier
    fich = Array("nomClasseur1", "nomClasseur2", "nomClasseur3")
    Application.ScreenUpdating = False
    For f = 0 To 2
        Workbooks.Open chemin & fich(f) & ".xlsx" 'si listage fichiers n'intègre pas extension
        With ActiveWorkbook.Worksheets("FICHE DE SALAIRE")
            For i = 0 To 2
                T(i) = T(i) + .Cells(42 - i - IIf(i > 0, 1, 0), 7).Value
            Next i
        End With
        ActiveWorkbook.Close False
    Next f
    ActiveSheet.Range("A1:A3").Value = Application.Transpose(T)
    Application.ScreenUpdating = True
End Sub

Intestable dans le fichier fourni, qui ne contient rien.

Mais même si une macro comme celle-ci est simple, il tout de même bien plus intelligent de se mettre en situation de s'en passer.

Cordialement.

MFerrand · Answer

Tu te moques de qui ? Relis ton premier post sur le sujet ! Je t'ai exprimé que je ne trouvais pas ton organisation très heureuse ni optimale, mais j'ai répondu à ta demande en te fournissant une macro réalisant ce que tu demandais, exactement et dans les moindres détails. Alors, si tout d'un coup ce n'est plus les même cellules qui sont concernées, eh bien tu adaptes. Si tu veux qu'on te demande l'emplacement des classeurs sans l'avoir exprimé jusqu'ici, tu écris la ligne pour ça, c'est pas bien compliqué. Et pour couronner tu veux que les classeurs se ferment sans sauvegarde... alors que c'est déjà ce qui se passe... Tu n'as pas lu, tu n'as pas compris, tu n'as pas essayé... !? Et tu reviens avec : Parce que le précédent ne l'était pas ! Et le prochain le sera peut-être encore plus ? J'entends travailler sur des données et des indications précises, pas dans le vague ni dans des situations qui se modifient en permanence. Je crois que je vais cesser de répondre aux demandes des gens qui commencent par "par exemple", cela paraît être un indice qu'ils ne savent pas vraiment ce qu'ils veulent...

MFerrand · Answer

Je te la remets aménagée avec les nouvelles adresses et un dispositif transposable dans toutes situations : Sub Sommes() Dim T(4), fich, chemin$, lig, col, f%, i% chemin = ThisWorkbook.Path &amp; "\" 'en supposant tous les classeurs dans même dossier fich = Array("nomClasseur1", "nomClasseur2", "nomClasseur3") lig = Array(2, 2, 2, 3, 3) col = Array(2, 4, 6, 1, 4) Application.ScreenUpdating = False For f = 0 To 2 Workbooks.Open chemin &amp; fich(f) &amp; ".xlsx" 'si listage fichiers n'intègre pas extension With ActiveWorkbook.Worksheets("FICHE DE SALAIRE") For i = 0 To 2 T(i) = T(i) + .Cells(lig(i), col(i)) Next i End With ActiveWorkbook.Close False Next f With ActiveSheet For i = 0 To 4 .Cells(lig(i), col(i)) = T(i) Next i End With Application.ScreenUpdating = True End Sub...

MFerrand · Answer

Je ne comprends pas ta question. Les tableaux ici servent à adresser des cellules qui ne forment pas une plage...