Calculs pour tableaux récapitulatifs

[apt]

Bonsoir à tous,

J'ai des tableaux de données à remplir.

Et j'aimerais faire des calculs pour remplir des tableaux récapitulatifs.

La disposition actuelle des tableaux peut être changée si besoin.

Comment peut-on le faire avec formulaires ou VBA ?

Merci.

 

[tdenfert]

Re : Calculs pour tableaux récapitulatifs

Bonjour,
de mon point de vue il vaudrait mieux avoir une seule grille avec un colonne supplémentairement qui contiendrait la date.
et une seule fiche de recap avec une date de début et une date de fin.

 

[DoubleZero]

Re : Calculs pour tableaux récapitulatifs

Bonjour à toutes et à tous,

La disposition actuelle des tableaux peut être changée si besoin.

Une suggestion dans le fichier joint où seules les colonnes A:E doivent être renseignées.

A bientôt 🙂

 

[apt]

Re : Calculs pour tableaux récapitulatifs

Bonsoir DoubleZero,

Ca marche pour le premier exemple.

Mais pourquoi cette ligne :

Range("Récapitulatif").Value = Range("Récapitulatif").Value

J'aimerais faire les statistiques de ce deuxième exemple en PJ.

 

[DoubleZero]

Re : Calculs pour tableaux récapitulatifs

Bonjour, le Fil, le Forum,

Si le récapitulatif peut être global, il suffit de renseigner les cellules en colonnes A, B, C, D, E, sans ligne vide, et de lancer la macro.

Si, en revanche, le récapitulatif doit s'opérer par date, je ne sais comment procéder.

Quant à cette ligne :

Range("Récapitulatif").Value = Range("Récapitulatif").Value

elle a pour but de transformer les formules en valeurs et peut être supprimée sans problème.

Bon courage et à bientôt 🙂

 

[apt]

Re : Calculs pour tableaux récapitulatifs

Bonsoir DoubleZero,

En premier, je crois que le fichier Lien supprimé et identique à Lien supprimé

On obtient le récapitulatif depuis une feuille BD dont laquelle on saisie périodiquement des nouvelles données.

A la fin, on fait transférer les lignes entrées dans l'onglet récapitulatif en se basant sur le dernier numéro ou code qu'on a déjà inscrit après le dernier transfert.

Par exemple, à la date du 10-01-2012 on a transférer les lignes (N°=1 à N°=5).

Si aujourd'hui on veut transférer ce qu'on a saisi, on devra recopier depuis le N°=6 (Parce que les numéros sont incrémentés à chaque nouvelle entrée).
Le nouveau tableau récapitulatif qui sera créé, contiendra les statistiques des lignes du tableau nouvellement transféré.

 

[DoubleZero]

Re : Calculs pour tableaux récapitulatifs

Bonjour, le Fil, le Forum,

Ci-après, une nouvelle version à tester :

Sub Filtre()
Application.ScreenUpdating = 0
    With Sheets("Temporaire")
        .Visible = True
        .Range("A7:g1000").Clear
        .Range("A1:A2").Value = Sheets("Recapitulatif").Range("G1:G2").Value
        .Range("A1") = "=Recapitulatif!RC[6]"
        .Range("A2") = "=Recapitulatif!RC[6]"
        .Range("H7") = "Récapitulatif au"
        .Range("H8") = "Dernier code"
        .Range("H9") = "Nbre Code"
        .Range("H10") = "Nbre Marié"
        .Range("H11") = "Nbre Célibataire"
        .Range("H12") = "Homme"
        .Range("H13") = "Femme"
        .Range("H14") = "Incomplet "
        .Range("I7") = "=Recapitulatif!R[-5]C[-2]"
        .Range("I8") = "=LOOKUP(9^9,C[-7])"
        .Range("I9") = "=COUNTA(R[-1]C[-8]:R[4991]C[-8])"
        .Range("I10") = "=COUNTIF(C[-5],""Marié"")"
        .Range("I11") = "=COUNTIF(C[-5],""Célibataire"")"
        .Range("I12") = "=COUNTIF(C[-4],""homme"")"
        .Range("I13") = "=COUNTIF(C[-4],""femme"")"
        .Range("I14") = "=COUNTIF(C[-5]:C[-4],""cellule vide !"")"
    End With

Sheets("Temporaire").Select
Sheets("BD").Columns("A:F").AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=Range("Temporaire!Criteres"), CopyToRange:=Range("A7:F7"), _
    Unique:=False

Range("A7").CurrentRegion.Replace What:="", Replacement:="cellule vide !"
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
Range("A7").CurrentRegion.Replace What:="cellule vide !", Replacement:=""
Range("H7").CurrentRegion.Borders.Weight = xlHairline
Range("H7:I7").Interior.ColorIndex = 6
Columns("G:G").Delete Shift:=xlToLeft
Range("A7").CurrentRegion.Cut
    With Sheets("Recapitulatif")
        .Select
        .Range("Dernière_ligne").Insert Shift:=xlDown
        .Range("Dernière_ligne").Cut Destination:=Range("Dernière_ligne").Offset(1, 0)
        .Columns("F:F").Clear
        .Cells.EntireColumn.AutoFit
        .Range("G2").Select
    End With
Sheets("Temporaire").Visible = False
Application.ScreenUpdating = -1
End Sub

A bientôt 🙂

 

[apt]

Re : Calculs pour tableaux récapitulatifs

Bonjour DoubleZero,

Je viens de voir ton code et je vias le tester.

En attendant voila un nouvel essai.

Reste seulement de trouver le bon compte des "Incomplets"

 

[DoubleZero]

Re : Calculs pour tableaux récapitulatifs

Bonjour, le Fil, le Forum,

... Reste seulement de trouver le bon compte des "Incomplets"

La version 03 a-t-elle été testée ? Les "incomplets" sont pris en compte. A titre d'exemple, lancer la macro pour la journée du 15/01/2012...

A bientôt 🙂

 

[apt]

Re : Calculs pour tableaux récapitulatifs

Bonsoir DoublZero,

Les "incomplets" sont pris en compte. A titre d'exemple, lancer la macro pour la journée du 15/01/2012...

Ca a donné un nombre de 4 (Le nombre de vides), or qu'il fallait donner un 2 (2 lignes incomplets).

 

[DoubleZero]

Re : Calculs pour tableaux récapitulatifs

Bonjour, apt, le Forum,

Si tu observes bien ton fichier déposé en #1 :

- Incomplet : 1, pour le premier tableau ;
- Incomplet : 4, pour le second tableau.

Dans ces conditions 🙄...

Et que fait-on si seule une rubrique n'est pas renseignée ?

A bientôt.

 

[apt]

Re : Calculs pour tableaux récapitulatifs

Salut,

On devra calculer le nombre de lignes incomplètes.

Dans l'exemple #1, la ligne avec le code 1004 (1 ligne) est incomplète dans le premier tableau.

Dans le deuxième tableau, les lignes avec le code 1010, 1011, 1012 et 1013 (4 lignes) sont incomplètes.

S'il y a une seule information manquante, on considérera que la ligne est incomplète.

Voila 😉

 

[DoubleZero]

Re : Calculs pour tableaux récapitulatifs

Re-bonjour,

Je passe le relais à qui voudra bien le prendre.

A bientôt.

 

[apt]

Re : Calculs pour tableaux récapitulatifs

Bon, en attendant d’autres intervenants, je te remercie de ton aide.

Bonne soirée 🙂

 

[apt]

Re : Calculs pour tableaux récapitulatifs

Bonsoir,

En fait, le comptage des lignes vides ne prenait pas en compte la colonne F que j'ai récement ajouté.

Ca marche maintenant.

Merci encore DoubleZero.