Discussion :

[azure]

Bonjour, ma question est la suivante :
J'ai par ex. une colonne de 100 cellules.
Chaque cellule a une valeur (positive) ou vaut 0.

Je souhaite ensuite "lire" toute la colonne dans une seule cellule, et faire apparaitre les valeurs positives, séparées entre elles par des " ; " (et donc, ignorer tous les 0).

Comment faire ? Merci de m'aider ...

[fring]

Une petite question, via une formule ou un bout de code en VBA ?

Via un bout de code c'est très facilement réalisable, via une formule aucune idée

[Invité]

Bonsoir,

Une fonction perso:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
 
Function groupeChamp(champ)
  Set MonDico = CreateObject("Scripting.Dictionary")
  For Each c In champ
    If c.Value <> 0 And Not MonDico.Exists(c.Value) Then MonDico.Add c.Value, c.Value
  Next c
  temp = MonDico.items
  groupeChamp = Join(temp, ";")
End Function

JB