Macro pour rajouter +1

Bonjour le forum

Je cherche une macro pour augmenter de +1 des données

Le fichier joint sera peut-etre plus explicite

Merci

Bonjour,

Je comprend pas trop trop l'intérêt final mais ça correspond au besoin :

Sub INCRE()
[I12].Formula = "=COUNTIF($B12:$F14,$H12)"
[I12:M12].FillRight
[I12:M23].FillDown
End Sub

Cldt,

Bonjour Ergotamine, le forum

Merci pour ta réponse mais ce n'est pas le résultat que j'escomptai, ceci est du certainement a mes mauvaises explications.

j'ai refait un classeur avec quelques explications et rajouté un tableau en dessous qui est le résultat cherché

Merci

Bonjour,

Dans ce moment là par formule en I8 :

=NB.SI(INDIRECT("$B$"&(15-I$7)&":$F$14";VRAI);$H8)

Et du coup une macro qui y place la formule dans tes cellules, même si pour le coup je ne vois pas l'intérêt comme la formule est dynamique

Sub INCRE()
[I8].Formula = "=COUNTIF(INDIRECT(""$B$""&(15-I$7)&"":$F$14"",TRUE),$H8)"
[I8:M8].FillRight
[I8:M19].FillDown
End Sub

Cdlt,

Bonjour Ergotamine, le forum

Merci pour ta réponse.

Je voulais une macro parce que ce tableau est installé a plusieurs endroit, c'est le quinté donc j'ai 3 tableaux

dans le trot 3 dans le plat et 3 dans les haies

De plus quand je rajoute une arrivée est ce que la macro la prend

Dans le fichier joint c'est arreté a la ligne 14 j'ai rajouté une arrivée ligne 15

Le tableau en dessous est le résultat avec la nouvelle arrivée

Merci

Bonjour,

Il serait bénéfique de donner toutes les conditions et pré requis dès le début. Si la colonne B contient les données :

Sub INCRE()
LR = ActiveSheet.Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Row
FORM = "=COUNTIF(INDIRECT(""$B$""&(15-I$7)&"":$F$" & LR & """,TRUE),$H8)"
[I8].Formula = "=COUNTIF(INDIRECT(""$B$""&(15-I$7)&"":$F$" & LR & """,TRUE),$H8)"
[I8:M8].FillRight
[I8:M19].FillDown
End Sub

Cdlt,

Bonjour Ergotamine, le forum

Mes excuses pour effectivement ne pas avoir données toutes les explications dés le début.

J'ai remplacé l'ancienne macro par la nouvelle mais je n'obtiens pas le meme résultat que le tableau du bas

Merci

Bonjour,

Un nouveau test, je n'avais pas adapté la dernière ligne dans l'INDIRECT :

Sub INCRE()
LR = ActiveSheet.Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Row
[I8].Formula = "=COUNTIF(INDIRECT(""$B$""&(" & LR + 1 & "-I$7)&"":$F$" & LR & """,TRUE),$H8)"
[I8:M8].FillRight
[I8:M19].FillDown
End Sub

Cdlt,

Bonjour Ergotamine, le forum

Merci pour ta réponse, c'est parfait, me plus qu'a l'adapter a mon classeur

Merci encore