Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Problème affichage date (####) et recherche par find et findNext

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

antiphot

XLDnaute Occasionnel
Bonjour à toutes et à tous


Je me trouve confronté à un problème qui je pense dois plus dépendre d'une option d'excel à modifier que d'un problème de code VBA.

J'essaie tout bêtement d'effectuer dans une plage définie une recherche par Find et FindNext sur une date particulière provenant d'une formule pour ensuite masquer la colonne contenant cette date. Tout fonctionne impeccable tant que la largeur de la colonne permet d'afficher la date en entier, mais dans certains cas à la place de la date j'ai des #### à la place. Et dans ce cas la routine échoue.
J'ai bien essayé de trouver une solution sur ce site ou ailleurs mais pour l'instant je n'ai pas trouvé. Alors si quelqu'un peut m'aider, je joins en ce sens un fichier exemple avec le code vba.

Merci par avance
Philippe
 
Re : Problème affichage date (####) et recherche par find et findNext

Bonjour antiphot, le Forum,

En l'absence de fichier:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Columns.AutoFit
End Sub

@+ 😎

EDIT: OUUPS Pierrot93 on s'est croisé 🙂
 
Re : Problème affichage date (####) et recherche par find et findNext

Bonjour antiphot; à tous.

Bon en cochant l'option "ajuster" cela à l'air de fonctionner.

Tu peux aussi utiliser la commande ShrinkToFit avant et après Find. Technique utile aussi bien avec les valeurs numériques qu'avec les dates.

Code:
Range("A:A").ShrinkToFit = True

Range("A:A").Find...(..,xlValues)

Range("A:A").ShrinkToFit = False

Edit: Autre solution : Si les valeurs recherchées ne sont pas le résultat d'une formule, utiliser FIND avec le paramètre xlFormulas au lieu de xlValues réglera le problème causé par l'affichage des "###".



Cordialement

Docmarti
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
12
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…