Copie de dates dans une autre feuille

Bonjour,

Je souhaiterais copier les dates d'une feuille sous plusieurs cellules vers une seule cellule d'une autre feuille (format jj/mm) :

Exemple :

Feuill1

A1 = 10/02/2017
A2= 20/03/2017
A3= 26/08/2017
A4 = vide
A5= vide

Feuill2 :

A1 = 10/02 20/03 26/08

J'ai essayé avec la fonction TEXTE mais lorsque la cellule est vide (exemple : A4 et A5), j'ai une date 00/01 qui s’insère.

Merci pour votre aide

Bonjour,
Si tu nous montrais le code que tu as utilisé, on pourrait mieux t'aider.
Un test logique sur le contenu de la cellule doit pouvoir resoudre ton problème. La question est de savoir que fait-on quand une cellule est vide ?
Un caractère espacé ou rien. Dans ce cas, si une cellule vide se trouve avant ou entre deux cellules remplies, la lecture de la chaîne concaténée ne sera-t-elle pas confuse ?

Code:

---

=TEXTE(Feuil1!A1;"jj/mm")&" "& TEXTE(Feuil1!A2;"jj/mm")&" "& TEXTE(Feuil1!A3;"jj/mm")&" "& TEXTE(Feuil1!A4;"jj/mm")&" "& TEXTE(Feuil1!A5;"jj/mm")

---

Lorsque je saisie cette formule, j'obtiens : 10/02 20/03 26/08 00/01 00/01

Il ne devrait rien y avoir pour les 2 dernières dates et si toutes les cellules sont vide j’obtiens 00/01 00/01 00/01 00/01 00/01

Les cellules vides ne se trouveront jamais entre deux cellules, toujours en fin de colonne.

J'utilise les cellules A1 à A11. Si j'ai 5 dates, les cellules A6 à A11 seront vides.

Bonjour,

Citation:

---

Les cellules vides ne se trouveront jamais entre deux cellules, toujours en fin de colonne.

---

Et bien, c'est encore plus simple à gérer.

[EDIT]
Mais je viens de voir que ce n'est pas du code VBA mais une formule que tu utilises alors que tu es dans la rubrique VBA.
La plage de cellules est-elle de hauteur fixe ?

Eant donné que je pensais que c'était du VBA, voici une fonction que tu peux utiliser soit en VBA soit dans excel comme fonction personnalisée

Code:

---

1 2 3 4 5 6 7 8

Function JoinDate(rng As Range, Optional mask As String = "dd/mm") As String Dim c As Range For Each c In rng JoinDate = JoinDate & format(c, mask) & " " Next JoinDate = Trim(JoinDate) Set c = Nothing End Function

---

Utilisation dans Excel

Code:

---

=JoinDate(Feuil1!A1:A11)

---

Désolé si je me suis trompé de forum !

Par contre j'ai testé la formule dans Excel, ça ne fonctionne pas.

Code:

---

=JoinDate(Feuil1!A1:A11)

---

Il renvoi l'erreur #NOM?

Bonjour,
Il faut placer la fonction dans un module du classeur et celui-ci doit être sauvé sous "Classeur supportant les macros"

Oui je viens de tilter à l'instant !!!

Merci , c'est nickel !!!

Par contre je ne comprend pas trop la fonction, pourrais tu me l'expliquer avec des commentaires en face des lignes de commandes ? merci d'avance

Bonour,

Citation:

---

pourrais tu me l'expliquer avec des commentaires en face des lignes de commandes

---

Voici les commentaires

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Function JoinDate(rng As Range, Optional mask As String = "dd/mm") As String ' Paramètres ' rng (Range) ' Plage de cellules où se trouve les dates ' [mask] (String) ' Format date à renvoyer (par défaut jj/mm) Dim c As Range ' Déclaration de la variable objet For Each c In rng ' Parcourt la collection rng JoinDate = JoinDate & format(c, mask) & " " ' Concaténation des dates au format définit par Mask + caractère espacé Next JoinDate = Trim(JoinDate) ' Supprime les caractères espacés avant et après la chaîne Set c = Nothing End Function

---