Discussion :

[teddy72000]

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

[Philippe Tulliez]

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 ?

[teddy72000]

Code :

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

=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.

[Philippe Tulliez]

Bonjour,

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 :

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

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 :

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

=JoinDate(Feuil1!A1:A11)

[teddy72000]

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

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

Code :

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

=JoinDate(Feuil1!A1:A11)

Il renvoi l'erreur #NOM?

[Philippe Tulliez]

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

[teddy72000]

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

[teddy72000]

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

[Philippe Tulliez]

Bonour,

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

Voici les commentaires

Code :

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

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