XL 2013 a partir des donnees d'une feuille effectuer des calculs sur une autre feuille

J

JHA

XLDnaute Barbatruc

• 3 Août 2022

• #2

Bonjour à tous,

Les cellules fusionnées ne sont pas top pour effectuer des calculs. Il y a une colonne supplémentaire masquée "C" pour palier à cela.

A essayer avec nb.si.ens

VB:

=NB.SI.ENS(Tableau1[moisBis];$A2;Tableau1[Categorie];B$1)

JHA

 

Pièces jointes

• fichier courrier.xlsx

  22.9 KB · Affichages: 4

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Août 2022

• #3

Bonsoir jeanluck, JHA,

En général les cellules fusionnées et VBA font très bon ménage.

Voyez le fichier .xlsm joint et cette fonction VBA :

VB:

Function TableauCroise(mois$, categorie$, colMois As Range, colCategorie As Range)
Dim plage As Range
Set plage = colMois.Find(mois, , xlValues)
If plage Is Nothing Then Exit Function
Set plage = Intersect(plage.MergeArea.EntireRow, colCategorie)
TableauCroise = Application.CountIf(plage, categorie) 'NB.SI

Le code doit être placé impérativement dans un module standard.

Formule en B2 de la feuille "Recap" =TableauCroise($A2;B$1;Sheet1!$B:$B;Sheet1!$G:$G)

Bonne nuit.

 

Pièces jointes

• fichier courrier(1).xlsm

  28.1 KB · Affichages: 5

Vote positif 0 Vote négatif

J

jeanluck

XLDnaute Nouveau

• 4 Août 2022

• #4

bjr et vraiment merci beaucoup. mais je n'arrive pas a les traduire en anglais. je suis sur un post en anglais

 

Dernière édition: 4 Août 2022

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Août 2022

• #5

Bonjour jeanluck, le forum,

Notez que si l'on défusionne ou refusionne des cellules en colonne B de la 1ère feuille le tableau des résultats ne se met pas à jour.

Pour remédier à cela il faut forcer le recalcul des fonctions, par exemple avec ce code dans "Recap" :

VB:

Private Sub Worksheet_Activate()
Sheets("Sheet1").[B1] = "" 'force le recalcul des fonctions TableauCroise
End Sub

La macro se déclenche automatiquement quand on active la feuille.

A+

 

Pièces jointes

• fichier courrier(2).xlsm

  29.8 KB · Affichages: 4

Vote positif 0 Vote négatif

J

jeanluck

XLDnaute Nouveau

• 4 Août 2022

• #6

salut, je ne parvient toujours pas

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 4 Août 2022

• #7

Bonjour à tous,

la fonction NB. SI. ENS en français est il me semble COUNTIFS en anglais

JHA

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Août 2022

• #8

La solution que j'ai donnée fonctionne quelle que soit la version Excel.

 

Vote positif 0 Vote négatif

J

jeanluck

XLDnaute Nouveau

• 4 Août 2022

• #9

job75 à dit:

Bonsoir jeanluck, JHA,

En général les cellules fusionnées et VBA font très bon ménage.

Voyez le fichier .xlsm joint et cette fonction VBA :

VB:

Function TableauCroise(mois$, categorie$, colMois As Range, colCategorie As Range)
Dim plage As Range
Set plage = colMois.Find(mois, , xlValues)
If plage Is Nothing Then Exit Function
Set plage = Intersect(plage.MergeArea.EntireRow, colCategorie)
TableauCroise = Application.CountIf(plage, categorie) 'NB.SI

Le code doit être placé impérativement dans un module standard.

Formule en B2 de la feuille "Recap" =TableauCroise($A2;B$1;Sheet1!$B:$B;Sheet1!$G:$G)

Bonne nuit.

Cliquez pour agrandir...

salut, comment traduire en francais cette formule =TableauCroise($A2;B$1;Sheet1!$B:$B;Sheet1!$G:$G)

 

Vote positif 0 Vote négatif

J

jeanluck

XLDnaute Nouveau

• 4 Août 2022

• #10

=TableauCroise, comment l'ecrire en francais

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Août 2022

• #11

TableauCroise est le nom de la fonction, il est inutile de le traduire.

 

Vote positif 0 Vote négatif