Si format de cellule: date, ect

Question

Bonjour, j'utilise If isdate(Range...) = True, ca me dit True quand une cellule est vide en format standard, que faire ? 

Merci !

Polux31 · Answer

Bonjour,

Où est situé ton code ? Peux-tu mettre ta procédure ici (en utilisant les balises qui vont bien avec la petite flèche juste à droite de <> dans le petit bandeau du haut de la réponse)?

Peut-on savoir sur quelle feuille se trouvent tes dates ?

Bref, toutes les infos qui pourraient être susceptibles de nous aider à résoudre ton problème...

;0)
 
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.» 
Nicolas Boileau

hedi · Answer

Je reformule ma question: est ce que isdate est bien ce qu'il faut utiliser ?

Polux31 · Answer

Si tu veux savoir si le contenu de ta cellule est une date, oui c'est bien IsDate(laCellule) qu'il faut utiliser
 
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.» 
Nicolas Boileau

hedi · Answer

Ok, merci polux !

hedi · Answer

Re bonjour, j'ai un programme qui ne fait pas ce qu'il faut, et je ne trouve pas le probleme. Dans le tableau de base (catalogue) on a des achat et des vente, avec des dates de debut de droits et des dates de fin de droits, si on a un titre en achat et qu'on est dans l'intervalle de droits et que le titre n'est pas vendu (on est pas dans l'intervalle de dates (debut-fin pour les ventes)), et qu'on a bien un fomat date pour le titre, en achat et pour toutes les ventes, alors le titre s'affiche dans le nouveau tableau. Je ne peux pas envoyer le tableau de base, donc je voulais savoir si il y a un probleme dans le programme (de plus il est tres lent): Private Sub Workbook_Open()Application.DisplayAlerts = FalseApplication.ScreenUpdating = FalseRange("A2:P5000").ClearDim titre As StringDim wbk1 As WorkbookDim wbk2 As Workbook 'Pr utilisation et mise a jour: activer macros, enregistrer base et relancertitre = "X:\CATALOGUE ZYLO COMPLET (a jour).xlsx"Set wbk1 = ThisWorkbookSet wbk2 = Workbooks.Open(titre)Dim derniere_ligneB As IntegerDim derniere_ligneR As Integerderniere_ligneB = wbk2.Sheets(1).Range("C" & Rows.Count).End(xlUp).RowDim k As IntegerDim g As IntegerFor i = 3 To derniere_ligneBderniere_ligneR = wbk1.Sheets(1).Range("A" & Rows.Count).End(xlUp).Rowk = 0For j = 3 To derniere_ligneBIf IsDate(wbk2.Sheets(1).Range("Z" & i).Value) = True And IsDate(wbk2.Sheets(1).Range("Y" & i).Value) = True ThenIf Date > wbk2.Sheets(1).Range("Z" & i).Value Or Date < wbk2.Sheets(1).Range("Y" & i).Value Thenk = k + 1End IfEnd IfIf IsDate(wbk2.Sheets(1).Range("Z" & i).Value) = True And IsDate(wbk2.Sheets(1).Range("Y" & i).Value) = True ThenIf wbk2.Sheets(1).Range("Y" & i).Value < Date < wbk2.Sheets(1).Range("Z" & i).Value And wbk2.Sheets(1).Range("C" & i).Value = wbk2.Sheets(1).Range("C" & j).Value And wbk2.Sheets(1).Range("B" & j).Value = "VENTE" ThenIf IsDate(wbk2.Sheets(1).Range("Z" & j).Value) = True And IsDate(wbk2.Sheets(1).Range("Y" & j).Value) = True ThenIf wbk2.Sheets(1).Range("Y" & j).Value < Date < wbk2.Sheets(1).Range("Z" & j).Value Thenk = k + 1End IfEnd IfEnd IfEnd IfIf wbk2.Sheets(1).Range("C" & i).Value = wbk2.Sheets(1).Range("C" & j).Value And (IsDate(wbk2.Sheets(1).Range("Z" & j).Value) = False Or IsDate(wbk2.Sheets(1).Range("Y" & j).Value) = False) Thenk = k + 1End IfNextIf k = 0 And IsDate(wbk2.Sheets(1).Range("Z" & i).Value) = True And IsDate(wbk2.Sheets(1).Range("Y" & i).Value) = True And wbk2.Sheets(1).Range("B" & i).Value = "ACHAT" And wbk2.Sheets(1).Range("P" & i).Value <> "NON" Thenwbk1.Sheets(1).Range("A" & derniere_ligneR + 1).Value = wbk2.Sheets(1).Range("C" & i).Valuewbk1.Sheets(1).Range("B" & derniere_ligneR + 1).Value = wbk2.Sheets(1).Range("D" & i).Valuewbk1.Sheets(1).Range("C" & derniere_ligneR + 1).Value = wbk2.Sheets(1).Range("P" & i).Valuewbk1.Sheets(1).Range("D" & derniere_ligneR + 1).Value = wbk2.Sheets(1).Range("Z" & i).Valuewbk1.Sheets(1).Range("E" & derniere_ligneR + 1).Value = wbk2.Sheets(1).Range("G" & i).Valuewbk1.Sheets(1).Range("F" & derniere_ligneR + 1).Value = wbk2.Sheets(1).Range("H" & i).Valuewbk1.Sheets(1).Range("G" & derniere_ligneR + 1).Value = wbk2.Sheets(1).Range("I" & i).Valuewbk1.Sheets(1).Range("H" & derniere_ligneR + 1).Value = wbk2.Sheets(1).Range("J" & i).Valuewbk1.Sheets(1).Range("I" & derniere_ligneR + 1).Value = wbk2.Sheets(1).Range("K" & i).Valuewbk1.Sheets(1).Range("J" & derniere_ligneR + 1).Value = wbk2.Sheets(1).Range("BN" & i).Valuewbk1.Sheets(1).Range("K" & derniere_ligneR + 1).Value = wbk2.Sheets(1).Range("BO" & i).Valuewbk1.Sheets(1).Range("L" & derniere_ligneR + 1).Value = wbk2.Sheets(1).Range("BK" & i).Valuewbk1.Sheets(1).Range("M" & derniere_ligneR + 1).Value = wbk2.Sheets(1).Range("BJ" & i).Valuewbk1.Sheets(1).Range("N" & derniere_ligneR + 1).Value = wbk2.Sheets(1).Range("BI" & i).Valuewbk1.Sheets(1).Range("O" & derniere_ligneR + 1).Value = wbk2.Sheets(1).Range("BF" & i).Valuewbk1.Sheets(1).Range("P" & derniere_ligneR + 1).Value = wbk2.Sheets(1).Range("BU" & i).ValueEnd IfNextwbk2.CloseEnd Sub Merci de votre aide !

Polux31 · Answer

Bonjour,

As-tu passé le code pas à pas pour vérifier si toutes les conditions sont correctes ?

A première vue, il y a des conditions IF plutôt étranges tel que :

If wbk2.Sheets(1).Range("Y" & j).Value < Date < wbk2.Sheets(1).Range("Z" & j).Value Then
k = k + 1
End If

Sans vérifier, il me semble que ça soit vrai quelques soient les valeurs testées !!!

C'est un peu normal que ça rame avec des boucles For Next imbriquées ...

hedi · Answer

Merci Polux, au fait on peut avoir la date du jour qui ne soit pas dans l'intervalle de vente donc ca ne serait pas vrai toujours je pense. Je vais reverifier le code. Merci ^^

hedi · Answer

Fausse joie Polux,

J'ai modifié les 2 lignes ou il y avait ce problème en: rangeY<Date and Date<rangeZ

Mais hélas il y a au moins un titre pour lequel ca ne marche pas, on est dans l'intervalle pour l'achat, il y a plusieurs vente qui sont terminées. On a un OUI en rangeP (pour l'achat). Et le titre ne s'affiche pas :(.

Polux31 · Answer

Je n'ai jété qu'un coup d'oeil rapide et la condition citée plus haut m'a interpelé. Sans possibilité de faire du pas à pas pour vérifier toutes les conditions, il est difficile de voir où est le loup ... sans parler des For ... Next et des IF imbriqués ...

Les conditions de tests énumérées ici sont loin d'être claires ...

hedi · Answer

Bonjour, 

Dit Polux, si je t'envoie les classeurs tu pourrais m'aider ?

Merci, Hedi !

Polux31 · Answer

Bonjour,

Envoie les fichiers en passant par cjoint.com et vient mettre les liens ici. Je regarderai si je peux faire quelque chose.

PS: Je ne prends pas de fichiers compressés.

hedi · Answer

Ok merci Polux. Pour l'instant je ne vois pas par exemple le titre Dekker, qui devrait s'afficher dans dispo

http://cjoint.com/?3AzvD5wpMOm 
http://cjoint.com/?3AzvEV8uKcC

hedi · Answer

Bonjour Polux, je viens aux nouvelles car il me reste que quelques jours pour finir ce programme ^^.

Merci !

Hedi

hedi · Answer

Tres bien, je vais vous faire ca ! Merci Polux.

hedi · Answer

Re, j'ai fait ce que tu voulais et ca marche :o :O, d'où peut venir le probleme alors :s je vais chercher un peu de nouveau.

Merci Polux

hedi · Answer

J'ai rajouté le titre qui pose probleme en copier coller, il ne s'affiche pas, donc voici es liens Polux, le probleme n'est donc pas au niveau du programme apparement.

Merci !

http://cjoint.com/?3ABpONdedlT
http://cjoint.com/?3ABpPd3ppku

hedi · Answer

Bonjour Polux, toujours pas eu le temps ? 

Merci.

Polux31 · Answer

Bonjour,

Il y a des conditions que je ne m'explique pas comme celles ci:

If IsDate(wbk2.Sheets(1).Range("D" & i).Value) = True And IsDate(wbk2.Sheets(1).Range("C" & i).Value) = True Then
If wbk2.Sheets(1).Range("C" & i).Value < Date And Date < wbk2.Sheets(1).Range("D" & i).Value And wbk2.Sheets(1).Range("B" & i).Value = wbk2.Sheets(1).Range("B" & j).Value And wbk2.Sheets(1).Range("A" & j).Value = "VENTE" Then
If IsDate(wbk2.Sheets(1).Range("D" & j).Value) = True And IsDate(wbk2.Sheets(1).Range("C" & j).Value) = True Then
If wbk2.Sheets(1).Range("C" & j).Value < Date And Date < wbk2.Sheets(1).Range("D" & j).Value Then
k = k + 1
End If
End If
End If
End If 

Pourquoi par exemple la date de fin de la ligne 25 doit être égale à la date de fin de la ligne 2 ???

Comme ici wbk2.Sheets(1).Range("B" & i).Value = wbk2.Sheets(1).Range("B" & j).Value And wbk2.Sheets(1).Range("A" & j).Value = "VENTE" Then 

Dans la boucle i = 25 et j = 2 !!!

Sans les conditions et contraintes claires pour savoir ce qu'il faut extraire, je ne peux rien faire de plus...

hedi · Answer

Merci Polux, je te donne les conditions claires, tel que les titres en rouge dans les derniers docs envoyés s'affichent. 

Il faut qu'un titre en achat s'affiche si: on en entre la date de début et de fin, et si le titre apparait en vente on est pas entre la date de début et de fin (pour la vente), ET il faut que les formats soient des dates (pour l'achat, et pour les ventes si il y a), mais cette dernière condition, les formats qui doivent être des dates, on peut s'en passer.

Est ce assez clair ?

Hedi

hedi · Answer

Bonjour, il y a t il un moyen pour accélérer le programme ? Pour l'instant il met 5min.

Mercii

hedi · Answer

Probleme resolu, merci.

hedi · Answer

Bonjour, je dois réaliser un nouveau programme:

on a toujours achats et vente mais il faut que dans une colonne s'affiche les dates de début de dispo et dans l'autre in de dispo.

Par exemple on a un achat de 01/01/14 a 01/01/15 (donc potentiellement dispo) et on a les vente (qui ne peut pas se couper) de 01/02/14 a 01/03/14 et 01/05/14   a 01/06/14, on doit donc avoir les 2 colonnes:

début dispo               fin dispo

01/01/14                   31/01/14
02/03/14                   30/04/14
20/06/14                   01/01/15

Compliqué :s je n'ai pas réussi pour l'instant.

Merci pour un peu d'aide :)

Hedi

hedi · Answer

Bonjour,

je n'ai toujours pas trouvé !

si quelqu'un a une idée sur la structure du programme ce serait gentil :s.

Merci !

Si format de cellule: date, ect - Page 2

Discussions similaires

Newsletters