Indicateur

[adr95]

Bonjour,

Je souhaite créer un indicateur de liste. Plus d'explication dans le fichier Excel.

N'hésitez pas si vous ne comprenez pas.

 

[Compte Supprimé 979]

Re : Indicateur

Bonjour Adr95

Je dois être bête 😛 je n'est rien compris au comment du pourquoi !?

A+

 

[phlaurent55]

Re : Indicateur

Bonjour à tous,

Bonjour Adr95

Je dois être bête 😛 je n'est rien compris au comment du pourquoi !?

A+

Rassures-toi Bruno, tu n'es pas seul à n'avoir rien compris

à+
Philippe

 

[adr95]

Re : Indicateur

Bonjour BrunoM45,

En réalité lorsque je change la cellule A2 les cellules B2 à D2 se mettent vide. Je voudrais créer un compteur qui me dit le nombre de ces cellules que je peux modifier : quand j'ai A en cellule A2 j'ai un choix de liste dans B2 et C2 et dans D2 j'ai rien. Je voudrais donc indiqué combien de cellule peuvent être "modifiable" en l'occurence ici pour A ça serai 2.

J'espère que c'est plus clair

 

[adr95]

Re : Indicateur

Personne n'a d'idée ???

 

[Dugenou]

Re : Indicateur

bonjour,

en B1 : =NB.SI(DECALER(Feuil1!F6:K6;EQUIV($A$2;Criteres;0)-1;);1)
en C1 : =NB.SI(DECALER(Feuil1!F6:K6;EQUIV($A$2;Criteres;0)-1;);2)
en D1 : =NB.SI(DECALER(Feuil1!F6:K6;EQUIV($A$2;Criteres;0)-1;);3)

Cordialement

 

[JCGL]

Re : Indicateur

Bonjour à tous,
Salut Philippe,
Salut Nono,
Salut Dugenou,

Pas certain d'avoir compris non plus mais utilisation de :

=NB(1/FREQUENCE(F6:K6;F6:K6))

Et un RECHERCHEV()

A++ les amis
A + à tous

 

[Si...]

Re : Indicateur

salut Tous

Si... tu veux une macro (en remplacement de la tienne)

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$2" Then
    Dim L As Byte, N As Byte
    With Sheets("Feuil1")
      L = .Columns(3).Find(Target).Row + 3
      If Application.CountIf(.Range("F" & L & ":K" & L), 1) > 0 Then N = N + 1
      If Application.CountIf(.Range("F" & L & ":K" & L), 2) > 0 Then N = N + 1
      If Application.CountIf(.Range("F" & Ll & ":K" & L), 3) > 0 Then N = N + 1
      MsgBox N
    End With
  End If
End Sub