somme de valeurs identiques dans une plage de cellule

[paul87]

bonjour à tous,
Bonjour le Forum,
Dans le petit exemple joint (qui est un brouillon de mon appli)
j'ai besoin de connaitre dans la partie synthèse (tableau du haut)
le nombre de 1 de 2 de 3...jusqu'à 6
qui sont respectivement dans les lignes A C et B D (somme de valeurs identiques dans des plages précises)

Je souhaite faire cela exclusivement en VBA (pas avec NB.SI) car j'ai une grande quantité de plage à sélectionner et je ne sais pas comment determiner plusieurs plages en vb


Merci pour vos conseils

 

[Compte Supprimé 979]

Re : somme de valeurs identiques dans une plage de cellule

Bonsoir Paul87,

Tu peux utiliser la fonction : Nb.Si(Plage;Critère)
Pour A et C :

=NB.SI($B13:$AF13;1)+NB.SI($B22:$AF22;1)

en changeant le critère
ou

=NB.SI($B13:$AF13;COLONNE()-12)+NB.SI($B22:$AF22;COLONNE()-12)

recopie vers la droite

Même chose pour B et D en changeant les plages

A+

 

[Softmama]

Re : somme de valeurs identiques dans une plage de cellule

Bonjour,

une proposition par fonction personnalisée =NbDe(arg1;arg2) ou arg1 est ton numéro de 1 à 6 à compter et arg2 vaut 1 pour chercher dans la zone A et C, ou 2 pour chercher dans la zone C et D :

Function NbDe(t As Integer, AetC_ou_BetD As Byte)
Application.Volatile
Dim Zone1, Zone2 As Range
  Select Case AetC_ou_BetD
    Case 1: Set Zone1 = Range("B13:AF13"): Set Zone2 = Range("B22:AF22")
    Case 2: Set Zone1 = Range("B17:AF17"): Set Zone2 = Range("B27:AF27")
    Case Else: MsgBox "Pour le 2ème argument de la fonction, mettre A pour compter la Zone A et C ou 2 pour compter la zone B et D", , "": Exit Function
  End Select
NbDe = Application.CountIf(Zone1, t) + Application.CountIf(Zone2, t)
End Function

vois le fichier joint.

 

[paul87]

Re : somme de valeurs identiques dans une plage de cellule

bonjour à tous..
et merci pour vos pistes..!!!
mais en fait, ce qu'ai besoin de faire, c'est un planning annuel mais divisé en mois, pour 20 personnes, avec un tableau de synthèse (par personne) pour environ 10 critères de poste de travail (pas de calcul d'heures,...Rtt ..etc...) juste des cumuls sur des items simples.

Donc je me retrouve de fait avec une feuille xls qui doit faire au moins 20*12 lignes (sur 31 colonnes / max 31 jours de W)
avec 12 plages identifiées par personnes...à des endroits différents de ma feuille...

ci joint une capture d'écran de mon appli actuelle
les poste de W sont saisis à l'aide de bouton avec code vb.
ça fonctionne bien...
mais j'ai besoin de rajouter plusieurs collaborateurs ainsi que plusieurs poste de W.

 

[Softmama]

Re : somme de valeurs identiques dans une plage de cellule

Bonjour,

Je ne comprends pas grand chose à ton problème, si ce n'est que tu cherches à totaliser le nbre de fois que tu rencontres une valeur dans une zone fixe mais discontinue. Cette fonction personnalisée le fait... Reste à voir comment tu définis la Zone concernée (soit en la nommant, sans en la définissant dans VBA). Dans l'exemple joint, je l'ai définie par VBA :

Function NbDe(t As Integer)
Application.Volatile
Dim Zone As Range, x As Integer, Tot As Integer

' à adapter...
Set Zone = Union(Range("A1:C4"), Range("A6:B7"), Range("D8:E9"), Range("F3"), Range("F6"))

For x = 1 To Zone.Areas.Count
  Tot = Tot + Application.CountIf(Zone.Areas(x), t)
Next x

NbDe = Tot
End Function

 

[paul87]

Re : somme de valeurs identiques dans une plage de cellule

ok..!!
ça y est.!!
je crois que j'ai pigé..!!
c'est pas trop tôt..😉
je teste et te tiens au courant...
merci !!

 

[paul87]

Re : somme de valeurs identiques dans une plage de cellule

bon..
un petit pb.
j'ai bien créé le module ,
j'ai déterminé mes zones.
mais j'ai une erreur sur l'insertion de formule personnalisée.
ça me propose bien la fonction "NbDe" avec le choix de la cellule de référence
mais après..Erreur..!!
je ne sais pas pourquoi..?

 

[paul87]

Re : somme de valeurs identiques dans une plage de cellule

c'est ok..!!
j'ai changé.

Function NbDe(t As Integer)

par

Function NbDe(t As String)

car mes codes sont des lettres

MERCI ++++++