XL 2019 Calcul automatique des nombres des lignes

[bauerjackob]

Bonjour
Je voudrais savoir comment effectuer un calcul automatique dans un autre feuille les nombres des lignes Sans modifier le fichier.
j ai mis un exemple pour quelques lignes. Et dans la feuille A est la base et dans la feuille B le résultat

 

[sylvanu]

Bonjour Bauerjackob,
Un essai en PJ avec cette macro qui s'exécute automatiquement lorsqu'on sélectionne la feuille B :

Sub Worksheet_Activate()
    Dim DL%, DLB%, c
    For Each c In Sheets("A").[A1].CurrentRegion
        If c.Value = "" Then c.Value = "-"
    Next c
    DL = Sheets("A").Range("A65500").End(xlUp).Row
    With Sheets("B")
        .Cells.Clear
        Application.ScreenUpdating = False
        .Range("A1:F" & DL) = Sheets("A").Range("A1:F" & DL).Value
        .Range("E1:E" & DL) = Sheets("A").Range("F1:F" & DL).Value
        .Range("F1:F" & DL).ClearContents
        DLB = .Range("A65500").End(xlUp).Row
        .Range("$A$1:$E$" & DLB).RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5), Header:=xlYes
        .[F1] = "Quantité"
        DLB = .Range("A65500").End(xlUp).Row
        .Range("A1:F" & DLB).Borders.LineStyle = xlThin
        .Columns.AutoFit
        .Range("F2:F" & DLB).FormulaLocal = "=NB.SI.ENS(A!A:A;B!A2;A!B:B;B!B2;A!C:C;B!C2;A!D:D;B!D2;A!F:F;B!E2)"
        .Range("F2:F" & DLB).Value = .Range("F2:F" & DLB).Value
        .Range("F2:F" & DLB).HorizontalAlignment = xlCenter
    End With
End Sub

J'ai quand même touché à la feuille A car la cellule D55 n'avait pas son "-". J'ai donc mis "-" à chaque cellule vide pour bien compter.

 

[djidji59430]

Bonjour à tous,

ou bien avec un TCD

 

[bauerjackob]

Merci bien sylvanu, je vais bosser fort sur vba C'est sympa. Avec TDC aussi ca va mais necessiste bcp de temps

 

[chris]

Bonjour à tous

Avec TDC aussi ca va mais necessiste bcp de temps

De temps pour quoi ? pour calculer ou pour apprendre ?

Une solution en quelques clics via PowerQuery intégré à Excel, actualisable à volonté

 

[bauerjackob]

owerQuery intégré à Excel

Bonjour Bauerjackob,
Un essai en PJ avec cette macro qui s'exécute automatiquement lorsqu'on sélectionne la feuille B :

Sub Worksheet_Activate()
    Dim DL%, DLB%, c
    For Each c In Sheets("A").[A1].CurrentRegion
        If c.Value = "" Then c.Value = "-"
    Next c
    DL = Sheets("A").Range("A65500").End(xlUp).Row
    With Sheets("B")
        .Cells.Clear
        Application.ScreenUpdating = False
        .Range("A1:F" & DL) = Sheets("A").Range("A1:F" & DL).Value
        .Range("E1:E" & DL) = Sheets("A").Range("F1:F" & DL).Value
        .Range("F1:F" & DL).ClearContents
        DLB = .Range("A65500").End(xlUp).Row
        .Range("$A$1:$E$" & DLB).RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5), Header:=xlYes
        .[F1] = "Quantité"
        DLB = .Range("A65500").End(xlUp).Row
        .Range("A1:F" & DLB).Borders.LineStyle = xlThin
        .Columns.AutoFit
        .Range("F2:F" & DLB).FormulaLocal = "=NB.SI.ENS(A!A:A;B!A2;A!B:B;B!B2;A!C:C;B!C2;A!D:D;B!D2;A!F:F;B!E2)"
        .Range("F2:F" & DLB).Value = .Range("F2:F" & DLB).Value
        .Range("F2:F" & DLB).HorizontalAlignment = xlCenter
    End With
End Sub

J'ai quand même touché à la feuille A car la cellule D55 n'avait pas son "-". J'ai donc mis "-" à chaque cellule vide pour bien compter.

Excuse moi, quand jaimerais ajouter une colonne au tableau A ca va canger le code VBA?

 

[bauerjackob]

Bonjour à tous

De temps pour quoi ? pour calculer ou pour apprendre ?

Une solution en quelques clics via PowerQuery intégré à Excel, actualisable à volonté

Desole je ne maitrise pas tres bien le PQ

 

[bauerjackob]

Excuse moi, quand jaimerais ajouter une colonne au tableau A ca va canger le code VBA?

Si on ajoute 3 colonnes au feuille A que ferait je

 

[bauerjackob]

Si on ajoute 3 colonnes au feuille A que ferait je

Si encore devant le texte dans un cellule il y a un "espace" excel considere quoi?

 

[chris]

re

Desole je ne maitrise pas tres bien le PQ

Manifestement le VBA non plus donc match nul...

 

[sylvanu]

Bonsoir tout le monde,

Si on ajoute 3 colonnes au feuille A que ferait je

Si on ajoute des colonnes, évidemment ça change le code.
En PJ avec 3 colonnes supplémentaires.
A noter qu'il faut reprendre la formule en fonction du besoin.

 

[bauerjackob]

Bonsoir tout le monde,

Si on ajoute des colonnes, évidemment ça change le code.
En PJ avec 3 colonnes supplémentaires.
A noter qu'il faut reprendre la formule en fonction du besoin.

MERCI

 

[bauerjackob]

Bonjour
j ai du mal a finir mon tableau avec. J ai rien touché sur l'exemple , j ajoute seulement les données mais ca donne 0 sur tout les quantité. j ai bien verifié par le filtre qu'il ny a plus des "vides' Si les données que j ai inséré comportent d'espace par exemple " Cartable" au lieu de "Cartable" ca pourrait induire la formule en erreur?

 

[bauerjackob]

Sylvanu, jete un oeil sur les 2 fichiers. J ai rien changer sur les codes et les colonnes mais quand j ai mis une données ( Etagere sur emplacement dans vba 2 le resultat est 0

 

[sylvanu]

Bonjour,
Comme dit au message précédent :

A noter qu'il faut reprendre la formule en fonction du besoin.

Donc dans le VBA mettre la formule :

.Range("J2:J" & DLB).FormulaLocal = "=NB.SI.ENS(A!A:A;B!A2;A!B:B;B!B2;A!C:C;B!C2;A!D:D;B!D2;A!I:I;B!I2)"

car les colonnes de recherche ont changées.