[Macro VBA]-Totaux et rang (avec condition) automatiques

[pepsas]

Bonjour le Forum

sur la feuille jointe, j'aurais besoin d'aide pour créer une macro permettant

1- le total (en colonne S) à chaque entrée de nombre dans les colonnes n-o-p-q-r .
2- le classement selon la condition catégorie (colonne D) en fin de tableau


Un colistier aurait-il une idée?

merci
pepsas

 

[Paf]

Re : [Macro VBA]-Totaux et rang (avec condition) automatiques

Bonjour

Pas besoin de macro

1- le total (en colonne S) à chaque entrée de nombre dans les colonnes n-o-p-q-r .

en cellule S3 mettre la formule: =SOMME(N3:R3) puis 'tirer' la formule jusqu'au bas du tableau.

2- le classement selon la condition catégorie (colonne D) en fin de tableau

en cellule T3 mettre la formule =SI($D3=T$2;SOMMEPROD(($D$3:$D$62=T$2)*($S$3:$S$62<$S3))+1;"") puis 'tirer' la formule jusqu'en colonne AC, puis 'tirer' l'ensemble jusqu'au bas du tableau.

Si vous tenez absolument à une macro, peut-être un forumeur (forumiste ?) vous aiguillera ?

A+

 

[pepsas]

Re : [Macro VBA]-Totaux et rang (avec condition) automatiques

Bonsoir PAf, le forum

Effectivement avec formule ça fornctionne bien.
mais j'aurais aimé la version macro (procédure évènementielle ?)

merci
pepsas

 

[pierrejean]

Re : [Macro VBA]-Totaux et rang (avec condition) automatiques

Bonjour pepsas

Salut Paf

A tester:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 13 And Target.Column < 19 Then
 For n = 3 To Range("N" & Rows.Count).End(xlUp).Row
 Range("S" & n) = 0
  For m = 14 To 18
    If Cells(n, m) = "" Then
      ajout = 0
    Else
      ajout = Cells(n, m).Value
    End If
    If IsNumeric(ajout) Then Range("S" & n) = Range("S" & n) + ajout
  Next
  ajout = 0
 Next
End If
End Sub

 

[pepsas]

Re : [Macro VBA]-Totaux et rang (avec condition) automatiques

Bonjour Forum, Pierrejean

La macro fonctionne très bien, les totaux et les rangs sont réalisés.
Est ce normal que sur mon ordi c'est assez long (je vous mets le fichier en pj) dès que l'on place une cinquantaine de lignes.
au niveau du total, au lieu de calculer toute la colonne "total" , la ligne correspondante à l entrée de données ,ne pourrait elle pas être uniquement être calculée pour gagner du temps ?


merci à vous
pepsas

 

[pierrejean]

Re : [Macro VBA]-Totaux et rang (avec condition) automatiques

Re

pas regardé ton fichier (manque de temps)
essaie ceci

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 13 And Target.Column < 19 Then
 Range("S" & Target.Row) = 0
  For m = 14 To 18
    If Cells(Target.Row, m) = "" Then
      ajout = 0
    Else
      ajout = Cells(Target.Row, m).Value
    End If
    If IsNumeric(ajout) Then Range("S" & Target.Row) = Range("S" & Target.Row) + ajout
  Next
End If
End Sub

 

[Paf]

Re : [Macro VBA]-Totaux et rang (avec condition) automatiques

Re et bonjour pierrejean

je ne comprend pas bien la nécessité ou l'intérêt d'une macro évènementielle pour mettre à jour la somme de 4 cellules ?

A+

 

[pepsas]

Re : [Macro VBA]-Totaux et rang (avec condition) automatiques

Bonjour Pierrejean, PAf et Forum

merci , c'est beaucoup plus rapide. J'aime .

Pour PAf
L'intêret c'est quand le fichier est utilisé par plusieurs personnes, on est sûr que les formules ne sont pas modifiées
Mais certains diront qu'il suffit de verrouiller les cellules et ça revient au même...


je mets le fichier en pj pour ceux que cela intéresse

pepsas