[résolu]Synthétiser des données sauf quand "zéro"

Y

Yaloo

XLDnaute Barbatruc

• 16 Avril 2014

• #2

Re : Synthétiser des données sauf quand "zéro"

Bonsoir jozerebel,

Il est pas mal ton fichier, mais j'ai un peu de mal a le lire

A+

 

Vote positif 0 Vote négatif

J

jozerebel

XLDnaute Occasionnel

• 16 Avril 2014

• #3

Re : Synthétiser des données sauf quand "zéro"

quelle buse je suis!!

Fichier joint...

 

Pièces jointes

• Classeur1.xlsx

  8.3 KB · Affichages: 46
• Classeur1.xlsx

  8.3 KB · Affichages: 45
• Classeur1.xlsx

  8.3 KB · Affichages: 45

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 16 Avril 2014

• #4

Re : Synthétiser des données sauf quand "zéro"

Bonsoir,
pour WE :

Code:

=SOMME.SI(B1:L1;"WE";A1:K1)

Je te laisse adapter pour JVF.
A+

Edit : pour avoir tout dans la même cellule :

Code:

=SOMME.SI(B1:L1;"WE";A1:K1)&" WE"&" + "&SOMME.SI(B1:L1;"JVF";A1:K1)&" JVF"

 

Dernière édition: 16 Avril 2014

Vote positif 0 Vote négatif

J

jozerebel

XLDnaute Occasionnel

• 16 Avril 2014

• #5

Re : Synthétiser des données sauf quand "zéro"

Salut David,

hélas,cela ne semble pas correspondre à mes attentes. Je ne souhaite afficher que ce qui est différent de 0. or, ta formule me renvoie "0 WE" quand il n'y a pas de WE.

Une idée?

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 16 Avril 2014

• #6

Re : Synthétiser des données sauf quand "zéro"

Re jozerebel, bonsoir David,

Voir avec cette fonction personalisée

VB:

Function Vac()
Dim i, j&, c&
Application.Volatile
j = [XFD1].End(xlToLeft).Column
For c = 1 To j Step 2
  Debug.Print Cells(1, c) & " " & Cells(1, c + 1) & " + "
  If Cells(1, c) <> 0 Then i = i & Cells(1, c) & " " & Cells(1, c + 1) & " + "
Next
Vac = Left(i, Len(i) - 2)
End Function

A te relire

Martial

 

Pièces jointes

• jozerebel.xlsm

  15.5 KB · Affichages: 33
• jozerebel.xlsm

  15.5 KB · Affichages: 35
• jozerebel.xlsm

  15.5 KB · Affichages: 33

Vote positif 0 Vote négatif

J

jozerebel

XLDnaute Occasionnel

• 16 Avril 2014

• #7

Re : Synthétiser des données sauf quand "zéro"

Salut Yaloo,

merci pour ta contribution!

comment adapter ta formule si j'ai plusieurs lignes (étirer vers le bas)?

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 16 Avril 2014

• #8

Re : Synthétiser des données sauf quand "zéro"

Re,

jozerebel à dit:

quelle buse je suis!!
Fichier joint...

Cliquez pour agrandir...

Quel bel oiseau, la Ce lien n'existe plus

Bin! tout dépends de ton vrai fichier, le mieux serait que tu nous mettes ton fichier définitif afin que l'on puisse soit par formule soit par macro te résoudre ton problème.

A+

Martial

 

Vote positif 0 Vote négatif

J

jozerebel

XLDnaute Occasionnel

• 16 Avril 2014

• #9

Re : Synthétiser des données sauf quand "zéro"

Re,


ci-joint fichier attendu!

d'avance merci.

 

Pièces jointes

• Classeur2.xlsx

  8.7 KB · Affichages: 36
• Classeur2.xlsx

  8.7 KB · Affichages: 36
• Classeur2.xlsx

  8.7 KB · Affichages: 36

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 16 Avril 2014

• #10

Re : Synthétiser des données sauf quand "zéro"

Voici avec ton fichier précédent :

VB:

Function Vac(Zone As Range)
Dim i, j&, c&
 Application.Volatile
 j = Zone.Row
For c = 1 To 12 Step 2
   Debug.Print Cells(1, c) & " " & Cells(1, c + 1) & " + "
   If Cells(j, c) <> 0 Then i = i & Cells(j, c) & " " & Cells(j, c + 1) & " + "
Next
If i <> "" Then Vac = Left(i, Len(i) - 2) Else: Vac = ""
End Function

A te relire

Martial

 

Pièces jointes

• jozerebel.xlsm

  16 KB · Affichages: 40
• jozerebel.xlsm

  16 KB · Affichages: 40
• jozerebel.xlsm

  16 KB · Affichages: 38

Vote positif 0 Vote négatif

J

jozerebel

XLDnaute Occasionnel

• 17 Avril 2014

• #11

Re : Synthétiser des données sauf quand "zéro"

Salut Yaloo,

petit souci avec la macro formule.

Lorsque je change d'onglets et que je revalide une autre cellule, les résultats de la formule-macro s'effacent et je suis obligé de revalider et étirer la formule...

As-tu uns idée du pb?

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 17 Avril 2014

• #12

Re : Synthétiser des données sauf quand "zéro"

Bonsoir jozerebel,

Comme ça je ne vois pas, n'as-tu pas une macro évènementielle sur cette feuille ?

A+

 

Vote positif 0 Vote négatif

J

jozerebel

XLDnaute Occasionnel

• 18 Avril 2014

• #13

Re : Synthétiser des données sauf quand "zéro"

Salut Yaloo,

non, pas de macro évènementielle.

Ci-joint fichier que tu m'as transmis avec problème quand une formule de la feuille 2 fait référence à une des cellules avec la macro-formule (effacement du contenu).

merci pour ton aide.

 

Pièces jointes

• jozerebel2.xlsm

  16.2 KB · Affichages: 28
• jozerebel2.xlsm

  16.2 KB · Affichages: 28
• jozerebel2.xlsm

  16.2 KB · Affichages: 28

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 18 Avril 2014

• #14

Re : Synthétiser des données sauf quand "zéro"

Bonsoir jozerebel,

C'est normal que ça plante tu as inséré une colonne à gauche, donc ça change la donne.
Fais un essai avec le fichier ci-dessous, cela devrait fonctionner.
Ta formule de recherchev n'était pas correcte, je l'ai modifié aussi.

A+

Martial

 

Pièces jointes

• jozerebel2.xlsm

  16.1 KB · Affichages: 28
• jozerebel2.xlsm

  16.1 KB · Affichages: 35
• jozerebel2.xlsm

  16.1 KB · Affichages: 35

Vote positif 0 Vote négatif

J

jozerebel

XLDnaute Occasionnel

• 19 Avril 2014

• #15

Re : Synthétiser des données sauf quand "zéro"

Salut Yaloo,

Merci! tt est ok!

Bon we

 

Vote positif 0 Vote négatif