Pour le fun : Nb valeurs

Jocelyn

XLDnaute Barbatruc

• 30 Juin 2013

• #2

Re : Pour le fun : Nb valeurs

Bonjour le Forum,
Bonjour l'ami R@chid,

une solution par sommeprod un peu cappilotractée et moi aussi juste pour le fun

Code:

=SOMMEPROD((((MOD(LIGNE(Zone);2)=0)*(MOD(COLONNE(Zone);2)=0))+((MOD(LIGNE(Zone);2)=1)*(MOD(COLONNE(Zone);2)=1)))*(ESTNUM(Zone)))

Amicalement

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 30 Juin 2013

• #3

Re : Pour le fun : Nb valeurs

Bonjour,
Jocelyn, très belle...
Oui c'est toujours pour le fun c'est juste pour jouer un peu avec Excel...
@ + +

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 30 Juin 2013

• #4

Re : Pour le fun : Nb valeurs

Bonjour aussi à tout le Forum,
Une solution par macro différente de Jocelyn,
Bruno

 

Pièces jointes

• Nb_Valeurs (1).xls

  39 KB · Affichages: 48

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 30 Juin 2013

• #5

Re : Pour le fun : Nb valeurs

Bonjour R@chid.
Je te propose ce code à mettre dans un module ordinaire:

VB:

Option Explicit

Function NbValDamier(Plage As Range, Optional ByVal Impair As Long = 0) As Long
Dim T() As Variant, L As Long, C As Long
T = Plage.Value
For L = 1 To UBound(T, 1): For C = 1 To UBound(T, 2)
   If (L + C) Mod 2 = Impair Then If Not IsEmpty(T(L, C)) Then NbValDamier = NbValDamier + 1
   Next C: Next L
End Function

Ceci rend en effet 119 :

Code:

=NbValDamier(Zone)

Edit: J'aurais du me douter qu'il y aurait foule pour répondre à R@chid !

 

Dernière édition: 30 Juin 2013

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 30 Juin 2013

• #6

Re : Pour le fun : Nb valeurs

Bonjour @ tous,
Salut Dranreb...

J'aurais du me douter qu'il y aurait foule pour répondre à R@chid !

Cliquez pour agrandir...

Pourquoi mon ami??? j'avais rien à faire alors j'ai décidé de jouer avec les amis...
Un bon début vers le VBA... 😛🙂
@ + +

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 30 Juin 2013

• #7

Re : Pour le fun : Nb valeurs

Bonjour à tous,

autre proposition par formule :

Code:

=SOMMEPROD(((Zone*(MOD(COLONNE(Zone);2)=MOD(LIGNE(Zone);2)))>0)*1)

eric

edit: tant qu'il n'y a pas de 0 dans la plage bien sûr

 

Dernière édition: 30 Juin 2013

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 30 Juin 2013

• #8

Re : Pour le fun : Nb valeurs

Bonjour Rachid

Un essai avec fonction personnalisée

NB:Elle prend en compte la position de la zone . Si on devait généraliser reviens nous le dire
NB bis : Compte tenu de tes capacités en formule , je ne doute pas qu tu puisses la traduire en formule pure (a partir de ligne() et colonne())

Edit: Arf je suis sérieusement à la bourre sur ce coup !!!!!

 

Pièces jointes

• Nb_Valeurs.xlsm

  16.3 KB · Affichages: 44

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 30 Juin 2013

• #9

Re : Pour le fun : Nb valeurs

Bonjour @ tous,
Salut Eriiic,
Idem sauf que j'ai fait un peu longue avec LIGNE(INDIRECT()) pour éviter le cas de suppression ou de l'ajout d'une colonne ou ligne...
@ + +

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 30 Juin 2013

• #10

Re : Pour le fun : Nb valeurs

Re,

pour éviter le cas de suppression ou de l'ajout d'une colonne ou ligne...

Cliquez pour agrandir...

Je suis encore loin d'avoir tous les réflexes, ça ne m'a même pas effleuré l'esprit... ;-)
Mais du fait de la plage nommée on n'est pas un peu à l'abri ?

eric

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 30 Juin 2013

• #11

Re : Pour le fun : Nb valeurs

Bonjour les amis,

Je suis encore loin d'avoir tous les réflexes, ça ne m'a même pas effleuré l'esprit... ;-)
Mais du fait de la plage nommée on n'est pas un peu à l'abri ?

Cliquez pour agrandir...

Je parle de l'ajout suppression au dessus ou à gauche de la zone...
tu peux insérer une ligne au dessus ou une colonne à gauche pour tester d’où l’intérêt de d'utiliser souvent LIGNE(INDIRECT("1:"&LIGNES(ZONE)))
@ + +

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 30 Juin 2013

• #12

Re : Pour le fun : Nb valeurs

Bonjour R@chid, Jocelyn et les autres,

Une fonction VBA :

Code:

Function Compte(zone As Range)
Dim ncol%, i&, p As Byte, j%
ncol = zone.Columns.Count
For i = 1 To zone.Rows.Count
  p = i Mod 2
  For j = 1 To ncol
    If zone(i, j) <> "" Then Compte = Compte + IIf(p, j Mod 2, 1 - (j Mod 2))
  Next
Next
End Function

Fichier joint.

A+

 

Pièces jointes

• Nb_Valeurs(1).xls

  41 KB · Affichages: 36

Dernière édition: 30 Juin 2013

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 30 Juin 2013

• #13

Re : Pour le fun : Nb valeurs

Bonjour @ tous,
Merci pour vos participations,
j'ai bien aimé les propositions en VBA, mais j'ai encore du temps pour bien comprendre.
Encore pour le fun sur ce fil...
@ + +

 

Vote positif 0 Vote négatif

Regueiro

XLDnaute Impliqué

• 30 Juin 2013

• #14

Re : Pour le fun : Nb valeurs

Bonjour le Forum
Voilà ma petite contribution.
2 variantes

Function NbSiCouleurFond(champ As Range, couleurFond, condition)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Interior.ColorIndex = couleurFond Then
If Evaluate(Str(c.Value) & condition) Then
If IsNumeric(c.Value) Then temp = temp + 1
End If
End If
Next c
NbSiCouleurFond = temp
End Function

Cliquez pour agrandir...

Résultat en "N4"

Sub compte()
Dim c, temp
temp = 0
For Each c In [Zone]
If c.Interior.ColorIndex = 40 Then
If Evaluate(Str(c.Value) & condition) Then
If IsNumeric(c.Value) Then temp = temp + 1
End If
End If
Next c
Range("N7").Value = temp
MsgBox temp
End Sub

Cliquez pour agrandir...

Résultat en "N7"
Bon dimanche

 

Pièces jointes

• Nb_Valeurs(1).xlsm

  22.5 KB · Affichages: 37

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 30 Juin 2013

• #15

Re : Pour le fun : Nb valeurs

Re,

Ma solution VBA simplement traduite en formule Excel (matricielle) :

Code:

=SOMME((Zone<>"")*SI(MOD(LIGNE(Zone)-LIGNE(INDEX(Zone;1;1))+1;2);MOD(COLONNE(Zone)-COLONNE(INDEX(Zone;1;1))+1;2);1-MOD(COLONNE(Zone)-COLONNE(INDEX(Zone;1;1))+1;2)))

Fichier joint.

A+

 

Pièces jointes

• Nb_Valeurs par formule(1).xls

  37 KB · Affichages: 39

Vote positif 0 Vote négatif