[RESOLU]Total d'une feuille à l'autre sous coditions

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

Ternoise

XLDnaute Occasionnel
Bonjour le Forum,

Une nouvelle fois, j’ai besoin de vous pour la suite de ma machine à gaz !

Dans un classeur, 2 feuilles « RECUP » et « GENERAL »

J’aimerais récupérer dans la feuille « RECUP », le total de certaines colonnes de la feuille « GENERAL »

Pour pas jouer simple, il y a des conditions : les noms des utilisateurs et les dates (début, fin) et mois.

En pièce jointe, le fichier afin de mieux comprendre

Merci de l’aide apportée par les bénévoles de ce forum.

Cordialement
David

PS : Le top du top, serait d’avoir dans un fichier différent pour la feuille « RECUP » mais bon, je ne vais pas faire le gourmand pendant les fêtes !
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : Total d'une feuille à l'autre sous coditions

Re

Voici un exemple sommaire
exempleTCD.jpg
maintenant je t'invite à consulter les nombreux tutoriels relatifs au TCD disponibles sur le web pour ensuite essayer de voir si c'est une piste que tu souhaites creuser ou pas 😉
 

Pièces jointes

  • exempleTCD.jpg
    exempleTCD.jpg
    63.4 KB · Affichages: 83
  • exempleTCD.jpg
    exempleTCD.jpg
    63.4 KB · Affichages: 82
Vote positif 0 Vote négatif
Re : Total d'une feuille à l'autre sous coditions

Bonsoir
Une variante par Formule :
Attention sur ton fichier Onglet "GENERAL"
Modifier en tableau.
Modification de la colonne AMPLI - COEF - EFF
J'ai rajouter des Formules et des Formats personnalisée pour les dates
[h].mm
Attention j'ai modifier des données dans la feuilles GENERAL
Dans la Colonne COEF.
0.90 et non 0,90 ( attention avec les virgules )

Fichier en PJ.
A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Total d'une feuille à l'autre sous coditions

Bonjour le Forum, JM, Regueiro,

JM. : Bon j'ai pu étudier attentivement les TCD. Je ne pense pas que ce soit la meilleur solution pour mon projet car je ne suis pas le seul à utiliser ce classeur. Les autres utilisateurs ont déjà bien du mal a tenir la souris à l'endroit ! donc, il me parait plus simple de faire la méthode à Regueiro.

Par contre cela engendre, apparemment, une modification de mon tableau de base. Et la cela va poser problème !
Comme vous pouvez vous douter, ces données proviennent de ma machine à gaz !

N'est il pas possible de travailler avec ces données tel quel ?

Cordialement
David
 
Vote positif 0 Vote négatif
Re : Total d'une feuille à l'autre sous coditions

Bonjour le Forum,

Voilà, j’ai réussi à faire une version soft de mon classeur afin que vous puissiez voir ce qu’il y a en amont. Au passage, cela peux toujours servir à quelqu’un !

Il reste donc à travailler sur la feuille « RECUP ». Et la j’ai encore besoin de votre aide.

C’est le bilan de toutes les saisies des utilisateurs. Celle-ci sera envoyée au comptable pour rédiger les fiches de salaire !

J’ai donc essayé les TCD mais une version avec formule me conviendrait assez.
La proposition ci dessus, avec formule, fonctionne mais avec une modification du tableau de base, ce qui engendre plein de modification en amont. Avec le temps et le mal à faire tout cela, cela me gène de revoir tout ce code. Un expert fait surement cela en 10 mns mais pour nous, débutant, c’est des jours….et des questions !

J’arrive enfin à la finalité de ce projet qui devait être mis en place pour le début d’année. Bin c’est foutu pour le boss je pense !

Merci de toute aide apportée à cette finalité.

Merci d’avance à toutes les personnes ayant participé à mon projet depuis le début.

Cordialement
David
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Total d'une feuille à l'autre sous coditions

Bonsoir TERNOISE

Par contre cela engendre, apparemment, une modification de mon tableau de base. Et la cela va poser problème !
Comme vous pouvez vous douter, ces données proviennent de ma machine à gaz !

N'est il pas possible de travailler avec ces données tel quel ?
Cliquez pour agrandir...

1.De quel programme reçois-tu ces données ?
2.Le programme en question te génère un fichier excel je suppose.
3.Si c'est le cas tu peux le mettre en forme rapidement avec une macro.

J'ai préparer une macro que tu dois mettre dans tes macros PERSO.
Lorsque tu exportes ton fichier dans Excel je pense qu'il crée uniquement 1 feuille.

La première :
Tu dois te mettre avec ton curseur sur la 1ère cellule.
PHP: 
Sub SélectionTableau()
Dim Plage As Range
Set Plage = Application.InputBox("Sélectionner une Cellule", "SÉLECTION", Type:=8)
For Each Cellule In Plage
        MsgBox "Adresse = " & Cellule.Address & vbCrLf & "Valeur = " & Cellule.Value
Next Cellule
With Selection
.CurrentRegion.Select

    With Selection
    MsgBox Selection.Address
   
    End With
    
End With
ActiveSheet.ListObjects.Add(xlSrcRange, Range(Selection.Address), , xlYes).Name = "Tableau2"
    
    MsgBox "Adresse du Tableau2 : " & vbCrLf & _
    (Range("Tableau2").Address) & vbCrLf & _
    "Mon Tableau2 contient : " & vbCrLf & _
    "Nombre de Lignes : " & (Range("Tableau2").Rows.Count) & vbCrLf & _
    "Nombre de Colonnes : " & (Range("Tableau2").Columns.Count)
End Sub

La 2ème pour mettre en forme certaines colonnes.

PHP: 
Dim Cel As Range
Dim MonTablo As ListObject
Set MonTablo = ActiveWorkbook.ActiveSheet.ListObjects("Tableau2")
With MonTablo
'XX Pour Sélectionner les cellules de la Colonne "DEBUT" Sauf le Titre "DEBUT"
.ListColumns("DEBUT").DataBodyRange.Cells.NumberFormat = "[h]:mm"
.ListColumns("FIN").DataBodyRange.Cells.NumberFormat = "[h]:mm"
.ListColumns("AMPLI.").DataBodyRange.Cells.NumberFormat = "[h]:mm"
.ListColumns("AMPLI.").DataBodyRange.Cells.FormulaR1C1 = "=[@FIN]-[@DEBUT]"

.ListColumns("EFF.").DataBodyRange.Cells.NumberFormat = "[h]:mm"
.ListColumns("EFF.").DataBodyRange.Cells.FormulaR1C1 = "=IF([@DEBUT]<>"""",[@[AMPLI.]]*[@[COEF.]],"""")"


.ListColumns("COEF.").DataBodyRange.Cells.NumberFormat = "0.00"
'XX pour remplacer les virgules par des points
.ListColumns("COEF.").DataBodyRange.Cells.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False



      End With
End Sub
Voilà en espérant que cela marche.
A+
Bonnes Fêtes
 
Vote positif 0 Vote négatif
Re : Total d'une feuille à l'autre sous coditions

Bonjour Regueiro

Non les données proviennent d'un UserForm comme montré dans le post 8

Donc faut-il quand même utiliser cette macro perso ou plutôt changer le code de cet UserForm afin que les données arrivent dans le bon format. Malgré tout, les SOMMEPROD fonctionne à première vue.

En pièce jointe, idem que l'exemple du post 8 mais encore plus allégé (avant les fête, c'est bien !)
Merci de ton aide
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Total d'une feuille à l'autre sous coditions

Bonjour le Forum

Voici la version final qui pose problème de lenteur de calcul suite au 65536 lignes.

Comment alléger tout ceci ?

Merci de votre aide

Cordialement
David

Bonne fête de fin d'année à tous
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Total d'une feuille à l'autre sous coditions

Bonsour®
est-il utile de faire référence à des plages de 65365 lignes vides à 90% ???(*)

grâce à la fonction DECALER, Nommer dynamiquement les plages de la feuille DIRECTION
utiliser ensuite ces noms dans les formules.


(*)
l'utilisation de formules matricielles sur des plages aussi étendues est très pénalisant...
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Total d'une feuille à l'autre sous coditions

Bonjour Modeste Geedee

Pour l'instant et pour l'exemple, il n'y a pas grand chose dans les plages de la feuille DIRECTION.

Si je nomme une plage allant de 1 à 65365, cela revient il pas à la même chose ?

Fonction DECALER, je vois pas trop comment faire

Un calcul rapide fait apparaitre qu'il y en aura un bon dix mille pour une année.

Une macro n'est elle pas plus adaptée ?

Cordialement
David
 
Vote positif 0 Vote négatif
Re : Total d'une feuille à l'autre sous coditions

Bonsoir à Tous.
Bonsoir Ternoise
J'ai ouvert ton fichier.
Quel Usine à Gaz 😕
Il ma planter le PC.
Je crois que tu compliques la vie.
Tu peux utiliser un USERFORM de Saisie des heures OK.
Ensuite les données de USF vont sur une même feuille.
Après tu travailles avec des filtres selon les personnes et le dates, semaines, mois ou trimestre
A+
Et Bonne Année 2014
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Question Question
Microsoft 365 Remplissage automatique d'une feuille à l'autre
Réponses
2
Affichages
382
Nonoo
N
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
474
fanch55
fanch55
Todre
  • Résolu(e)
Microsoft 365 Remplissage automatique d'une feuille à l'autre
2 3 4
Réponses
58
Affichages
4 K
MALKO
M
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
604
Phil69970
Phil69970
A
  • Résolu(e)
Microsoft 365 programme VBA pour "importer" les valeurs de certaines cellules d'une autre feuille appartenant à une ligne que j'identifie par un n°
2
Réponses
27
Affichages
1 K
arnomorize
A
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
929
Nel'
N
F
  • Question Question
Microsoft 365 liste validation des données qui se réduit après sélection
Réponses
6
Affichages
817
fabchaninarom
F
Nadou69
  • Résolu(e)
XL 2019 Erreur dans ma macro
Réponses
9
Affichages
785
Nadou69
Nadou69
P
  • Question Question
XL 2019 Copier des cellules d'une feuille sur une autre
Réponses
2
Affichages
872
phoceenjo
P
D
  • Question Question
XL 2016 Copier coller en transposant d'une feuille à l'autre
Réponses
3
Affichages
817
job75
job75
L
  • Question Question
XL 2016 Reporter une information d'une feuille à l'autre sur Excel
Réponses
7
Affichages
611
cp4
cp4
chaelie2015
  • Question Question
Autres Pblm format date d'une feuille à l'autre
Réponses
2
Affichages
398
chaelie2015
chaelie2015
N
  • Question Question
XL 2016 Renommer une feuille en fonction d'une cellule d'autre feuille
Réponses
10
Affichages
992
Nando71
N
M
  • Résolu(e)
Microsoft 365 Reporter certaines cellules d'une feuille à l'autre selon une date
Réponses
6
Affichages
1 K
masrino
M
luno123
  • Question Question
XL 2016 Alimenter une feuille à partir de cellules sélectionnées d'une autre feuille
Réponses
3
Affichages
831
C'est papy Mougeot !
C'est papy Mougeot !
C
  • Résolu(e)
XL 2016 Remplir plusieurs feuilles sous conditions en fonction d'une feuille
Réponses
9
Affichages
1 K
Chrisreg
C
M
  • Question Question
XL 2016 copie information d'une feuille à l'autre avec séquence de répétition
Réponses
0
Affichages
590
marc.gilliand
M
C
  • Résolu(e)
Microsoft 365 sous-total dans un tableau croisé dynamique
Réponses
7
Affichages
2 K
cgpa
C
V
  • Résolu(e)
XL 2016 Remplir une feuille à partir des données d'une autre
Réponses
7
Affichages
1 K
vanin
V
F
  • Question Question
Microsoft 365 Importer certaines données d'un ou plusieurs fichiers txt dans des cellules d'une feuille Excel
2
Réponses
19
Affichages
2 K
job75
job75
Retour