Bonjour,
j'ai un petit souci pour créer une macro avec "countif" !
Dans une feuille, j'ai un tableau dont les colonnes b;c;d sont remplies par des "formula" dès la saisie en "A", et ça fonctionne mais je n'arrive pas à mettre l'équivalent de ça :
=SI(C2="";"";NB.SI(C$2:C2;C2))
=SI(C3="";"";NB.SI(C$2:C3;C3))
=SI(C4="";"";NB.SI(C$2:C4;C4))
et ainsi de suite pour qu'à chaque saisie en "A", j'ai le nombre total de valeur du même critère qui ont déjà été écrite en "C"
voilà la macro :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then If Not (IsEmpty(Target.Value)) Then Range("B" & Target.Row).Value = Now Else Range("B" & Target.Row).ClearContents
If Target.Column = 1 Then If Not (IsEmpty(Target.Value)) Then Range("c" & Target.Row).Formula = "=VLOOKUP(a:a,'4listing'!A2:d15000,4,0)" Else Range("c" & Target.Row).ClearContents
If Target.Column = 1 Then If Not (IsEmpty(Target.Value)) Then Range("d" & Target.Row).Formula = "=VLOOKUP(a:a,'4listing'!A2:e15000,5,0)" Else Range("d" & Target.Row).ClearContents
'If Target.Column = 1 Then If Not (IsEmpty(Target.Value)) Then Range("e" & Target.Row).Formula = "=COUNTIF ..... là je plante !
End Sub
Et voici le tableau :
N° carte Date heure Nom prénom type cours nb de cours
3,02012E+12 15/12/2013 09:06 rameauxjean marie open 12 1
9,78285E+12 15/12/2013 09:06 dupont rémi 1 cours divers 1
3,02012E+12 15/12/2013 09:07 rameauxjean marie open 12 2
9,78285E+12 15/12/2013 09:07 dupont rémi 1 cours divers 2
9,78285E+12 15/12/2013 09:08 dupont rémi 1 cours divers 3
merci du coup de main et bonne journée
j'ai un petit souci pour créer une macro avec "countif" !
Dans une feuille, j'ai un tableau dont les colonnes b;c;d sont remplies par des "formula" dès la saisie en "A", et ça fonctionne mais je n'arrive pas à mettre l'équivalent de ça :
=SI(C2="";"";NB.SI(C$2:C2;C2))
=SI(C3="";"";NB.SI(C$2:C3;C3))
=SI(C4="";"";NB.SI(C$2:C4;C4))
et ainsi de suite pour qu'à chaque saisie en "A", j'ai le nombre total de valeur du même critère qui ont déjà été écrite en "C"
voilà la macro :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then If Not (IsEmpty(Target.Value)) Then Range("B" & Target.Row).Value = Now Else Range("B" & Target.Row).ClearContents
If Target.Column = 1 Then If Not (IsEmpty(Target.Value)) Then Range("c" & Target.Row).Formula = "=VLOOKUP(a:a,'4listing'!A2:d15000,4,0)" Else Range("c" & Target.Row).ClearContents
If Target.Column = 1 Then If Not (IsEmpty(Target.Value)) Then Range("d" & Target.Row).Formula = "=VLOOKUP(a:a,'4listing'!A2:e15000,5,0)" Else Range("d" & Target.Row).ClearContents
'If Target.Column = 1 Then If Not (IsEmpty(Target.Value)) Then Range("e" & Target.Row).Formula = "=COUNTIF ..... là je plante !
End Sub
Et voici le tableau :
N° carte Date heure Nom prénom type cours nb de cours
3,02012E+12 15/12/2013 09:06 rameauxjean marie open 12 1
9,78285E+12 15/12/2013 09:06 dupont rémi 1 cours divers 1
3,02012E+12 15/12/2013 09:07 rameauxjean marie open 12 2
9,78285E+12 15/12/2013 09:07 dupont rémi 1 cours divers 2
9,78285E+12 15/12/2013 09:08 dupont rémi 1 cours divers 3
merci du coup de main et bonne journée
Dernière édition: