pb format date pour formule

[jozerebel]

Bonjour à tous,

J'ai un soucis avec des dates!!!!

Le format est bien celui de "jj/mm/aaaa" mais la macro que j'utilise ne reconnaît pas la saisie comme une date...

Je suis obligée de rentrer dans la cellule, de me mettre au dernier caractère et de taper "entrée" pour que la macro fonctionne...

Comment est-ce possible et que faire pour y remédier?

Voilà la macro:

Sub annees()
Dim Cel As Range
Dim Ar As Range
Dim LesAnnees As Object
Set LesAnnees = CreateObject("Scripting.Dictionary")
For Each Ar In Range("D2😀" & [a65000].End(xlUp).Row).SpecialCells(xlCellTypeConstants, 1).Areas
For Each Cel In Ar
LesAnnees(Year(Cel)) = Year(Cel)
Next Cel
Ar(1).Offset(0, 6).Value = Join(LesAnnees.Items, " et ")
LesAnnees.RemoveAll
Next Ar
End Sub

 

[jozerebel]

Re : pb format date pour formule

Je poste un bour de mon fichier.

Dans la cellule où il y a "Mai 2010", je dois rentrer à l'intérieur et taper entrée pour que ça devienne une date...

Sauf que j'ai 12000 lignes...

Passer par format ne change rien...

Merci pour votre aide.

 

[jeanpierre]

Re : pb format date pour formule

Bonsoir jozerebel,

Une solution :

Tu sasies 1 dans une cellule vide et tu fais un Copier dessus par clic droit.

Tu selectionnes ta plage ou ta colonne et clic droit Collage spécial et tu coches Multiplication.

Te reste à remettre ton Format personnalisé (jj/mm/aaaa) sur l'ensemble de la colonne.

Bonne soirée.

Jean-Pierre

 

[jozerebel]

Re : pb format date pour formule

Bonsoir,

C'est une moitié de solution car quand il n'y a rien ds la cellule il me mets "01/01/1900"...

Une autre solution?

 

[jeanpierre]

Re : pb format date pour formule

Re,

Selection toujours de ta plage et Format/Mise en forme conditionnelle, tu laisses sur La valeur de la cellule est, tu choisis Egal et dans le champ à droite un 0 (zéro) et pour finir dans Format et dans couleur, selectionne le Blanc ou une couleur identique à ton fond de cellule.

Je ne vois rien d'autre pour le moment.

Jean-Pierre

 

[jozerebel]

Re : pb format date pour formule

Merci jean pierre,

Le soucis, c'est que même invisible, il y a une valeur à l'intérieur, et cela fait planter ma macro...

 

[jeanpierre]

Re : pb format date pour formule

Re,

Désolé j'étais resté sur le fichier sans me préoccuper de ta macro du post #1.

Alors modifie comme suit (ligne 8 de la macro décrite plus haut) :

If Cel <> 0 Then LesAnnees(Year(Cel)) = Year(Cel)

En plus de la MFC du post #5.

Jean-Pierre

 

[Cousinhub]

Re : pb format date pour formule

Bonjour,

bonjour, JP

Essaie autre chose, pour voir....

Sélectionne toute la colonne contenant tes dates

Puis Données/Convertir

Etape 1 : S/O
Etape 2 : Décoche tout
Etape 3 : Sélectionne "Date" et JMA

OK

Pour Voir....

Bonne journée