Discussion :

[Pascalou1983]

Bonjour,
J'ai récupéré un fichier excel que je dois améliorer. Je ne peux donc pas repartir de zéro et je ne sais pas ce qu'a fait le précédent avant moi mais le calendrier créé se comporte bizarrement et je suis bloqué.
Voilà le principe : on définit une date de début ex : A1 = 01/08/2009.
puis par la formule simple B1 = A1 + 1 on définit sur toute la ligne 1 un calendrier.
Le format de date personnalisé utilisé est j/m.
Mon problème est le suivant : lorsque j'utilise la fonction rechercher de Excel ou un find en visual basic, impossible de trouver la cellule dans laquelle il y a une date dont le jour ou le mois est un nombre.
cette ligne de code, renvoie "Nothing" pour Date = 10/08/2009

Code :

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

Set cell_today = Range("1:2").Find(Format(Date, "d/m"), LookIn:=xlValues)

Ex : pour les jours du 1/8 au 9/8, et du 1/9 au 9/9 : pas de problème.
Mais pour du 10/8 au 31/8 et du 10/9 au 31/12, impossible de trouver la cellule.
Je pense bien que celà doit venir d'une propriété de mes cellules, mais franchement je suis largué.
J'ai mis en pièce joiinte le fichier excel.
Merci par avance.
Pascal

[Pascalou1983]

toujours sur le même tableau :
j'ai trouvé un chti problème de plus :

Code :

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

W38=SOMME(W3:W36)

dans cette plage j'ai mit la valeur 10, et devinez quoi !!!
il me met comme résultat : ##
alors encore une fois, comme pour les dates :
si dans ce tableau on fait une addition dont le résultat est supérieur à 9, bein il plante.
Mais bonne blague : si je fais : W39 = W38
il affiche dans la cellule W39 : la valeur "10".
Vraiment je comprends pas ce qu'il a ce tableau.
J'ai rebooté window et tout, mais rein a faire.
Avis à personne inspiré.
Pascal

[ullan]

Bonjour,

Pour la deuxième question : augmenter la largeur de la colonne !

[rjamin]

Bonjour,

Facile c'est la largeur de colonne

A+

[Pascalou1983]

super la deuxième c'était facile, merci.
J'espère que pour le coup des dates ce sera aussi simple.
Merci les gars pour la réactivité.
++

[rjamin]

Re

Je remarque que les cellules sont fusionnées que effectivement la recherche ne fonctionne pas au delà de 9.

J'ai fait un essai en défusionnant quelques cellules la recherche fonctionne alors sur les valeurs > à 9

Pourquoi je l'ignore.

RJ

[Pascalou1983]

Re
toujours aucune idée sur la raison ou un moyen de contourner le problème ?
quand même, si on voit dans une cellule une date, on devrait bien la retrouver par la fonction rechercher !!
c'est horrible tout mon travail bloqué à cause de ça.
Merci pour vos efforts

[rjamin]

Bonjour,

Je viens de nouveau de faire des essais avec Excel2003 et 2007 même problème.

J'ai alors insérer un nouvelle feuille dans votre classeur et créer une série de date de la même façon que vous
J'ai ajouté des colonnes entre chaque valeur de date puis j'ai fusionner et là tout fonctionne normalement.

Je ne crois pas que cela vous aide beaucoup mais je me demande si ce ne serais pas une solution de recréer la feuille. En tout cas une copie de la feuille n'arrange pas le problème j'ai essayé.
Désolé.
RJ

[rjamin]

Bonsoir,

Je viens d'essayer autre chose, si je tape la date dans une des cellules par exemple celle du 12/8 au lieu de la faire calculer, alors pas de problème pour la recherche.

J'ai fait des essais avec les formules RECHERCHEH et INDEX EQUIV et là les valeurs cherchées en fonction des dates (j/m) sont retrouvées normalement.

RJ

[Pascalou1983]

Tout d'abord merci rjamin.
J'ai réussit à réparer mon fichier sans le modifier.
La solution que j'ai adopté c'est :
- dé fusionner les cellules en question, cela ne me posait pas de soucis car le numéro de la colonne ne change pas une fois dé fusioné.
-automatiser le redimensionnement des largeurs de cellule car si la cellule n'est pas assez grande : la valeur apparait :"##" et Excel ne trouve pas la valeur.
Je l'ai automatisé par code et non par les propriétés Excel car si l'utilisateur omet de le faire, rien ne marche bien entendu.
pour cela j'ai rajouté la ligne de code :

Code :

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

Range("F2:IV2").Columns.AutoFit

j'ai voulu automatiser encore mieux en cas de redimensionnement avec :

Code :

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

Range(Cells(6, 2), Cells(colone_fin, 2)).Columns.AutoFit

colonne_fin étant égal au numéro en integer de la dernière colonne de mon calendrier, mais ça ne marchait pas.
alors comme Excel est limité à 256 colonnes, j'ai mit la valeur en fixe.

Bref, tout ça juste à cause de la fonction fusionner de Excel qui semble avoir des bogues.

Allé merci encore