Fontion listes sans vides

largoj · 20 Décembre 2014

Bonjour,

J'ai un fichier contenant des dates à sélectionner. Lorsque les jours sont saisis au format date, en col. D2, impossible de les faire apparaitre avec un format personnalisé : jjj jj mmmm aa en colonne C2, qui est saisie avec une fonction matricielle: "listes sans vides".
pour moi il est important que le jour, la date et l'année apparaissent dans la colonne "listes sans vides";

Quelqu’un aurait-il une solution pour résoudre mon problème.
Ci-joint un fichier

D'avance merci.

largoj

BOISGONTIER · 20 Décembre 2014

Re : Fontion listes sans vides

Bonsoir,

-Il y a un premier pb: les dates en D3,D4,.. ne sont pas des vraies dates (ce sont des chaînes de caractères)
-Remplacer la fonction ListeSansVides par :

Code:

Function ListeSansVides(champ As Range, Optional fmt As String)
  Application.Volatile
  temp = champ.Value
  Dim b()
  ReDim b(1 To Application.Caller.Rows.Count)
  n = 0
  For Each c In temp
    If c <> "" Then
      n = n + 1
      If IsMissing(fmt) Then
        b(n) = c
      Else
        b(n) = format(c, fmt)
      End If
    End If
  Next
  ListeSansVides = Application.Transpose(b)
End Function

=ListeSansVides(A2:A23;"ddd dd mmmm yy")

JB

R@chid · 20 Décembre 2014

Re : Fontion listes sans vides

Bonsoir @ tous,
pourquoi pas, en D3 :

Code:

=D2+1

@ tirer vers le bas

puis en C2 :

Code:

=SIERREUR(PETITE.VALEUR(SI(F$2:F$212=VRAI;D$2:D$212);LIGNES($2:2));"")

@ valider par Ctrl+Shift+Enter
@ tirer vers le bas

@ + +

largoj · 20 Décembre 2014

Re : Fontion listes sans vides

Merci infiniment Boisgontier;
C'est exactement ce que je souhaitais obtenir.
C'est un réel plaisir d'être aidé par vous. je suis fan de votre site qui est une véritable mine.
Merci encore.Cordialement,

largoj

largoj · 20 Décembre 2014

Re : Fontion listes sans vides

Merci beaucoup aussi pour cette réponse R@chid. Elle me convient également.

Cordialement,

largoj

Fontion listes sans vides

largoj

XLDnaute Nouveau

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

R@chid

XLDnaute Barbatruc

largoj

XLDnaute Nouveau

largoj

XLDnaute Nouveau

Discussions similaires