Correction de résultats des formules en VBA

[apt]

Bonsoir à tous,

En pièce jointe, j'aurais aimé corriger les résultats obtenus dans les feuilles "B" et "M"

En feuille "B", les dernières dates ne sont pas extraites d’une manière correcte

En feuille "M", s'il n y a pas de date à extraire, j'aimerais éviter d'avoir un tel résultat : 00/01/1900 00:00

S’il y a d’autres idées à me proposer ou des possibilités de peaufiner le code, quelles les bienvenues.

Merci.

 

[CHALET53]

Re : Correction de résultats des formules en VBA

Bonjour,

J'ai des problèmes pour ouvrir ton fichier
Fichier pas fiable ou corrompu

a+

 

[apt]

Re : Correction de résultats des formules en VBA

Bonsoir CHALET53,

Je viens de le télécharger et de l'ouvrir normalement !

Le nombre de téléchargements est de 11 fois...

 

[Dranreb]

Re : Correction de résultats des formules en VBA

Bonsoir.
Ouais, le SI ne tolère pas bien le matriciel. Ceci donne le résultat attendu:

=MAX((sRéférence=$A4)*(sEtat="B")*sDate)

Par ailleurs dans Outils, Option, onglet Affichage, rubrique Fenêtres, décocher Valeurs zéro évite l'affichage des dates nulles.
Cordialement.

 

[apt]

Re : Correction de résultats des formules en VBA

Bonjour Dranreb,

Les dates sont corrigées maintenant.

Merci bien.

Seulement, j'aimerais trouver le bon code pour insérer une date depuis mon UserForm dans la colonne D.

J'ai utilisé ceci :

.Cells(x, 4) = IIf(TbxDate.Value = "", Now(), TbxDate.Value)
.Cells(x, 4) = Format(.Cells(x, 4), "dd/mm/yyyy hh:mm")

Et puis j’ai essayé :

.Cells(x, 8).NumberFormat = "m/d/yyyy"
.Cells(x, 8) = Format(CDate(IIf(TbxDate.Value = "", Now(), TbxDate.Value)), "dd/mm/yyyy  hh:mm")

Mais le format de la date est toujours un texte !!?

Je crois qu'il manque quelque chose pour corriger le problème de date sous forme de texte dans la colonne D.