problème recuperation date

Bonjour,

je realise une macro en vba , et pour une instruction je voudrais que mon indice "i" vérifie une valeur date sous format : 01/02/2009; je voudrais que mon indice verifie uniquement la partie "/02/2009" (le mois et l'année,le jour importe peu).l'instruction est du type:if cells (i,2) = .../02/2009quel est la syntaxe pour qu'il zappe le jour ? j'ai essayé ",' #, mais c'est pas ça .

merci d'avance

Il y a un moyen plus corect mais en utilisant split ça devrait le faire:

Code:

---

1 2 3 4 5 6

Dim tableau   Tableau=split(tadate,/) if cells(i,2).value= "/" & Tableau(1) & "/" & Tableau(2) then ... end if

---

J'ai retrouvé la technique pour extraire le mois, le jour ou l'année d'une date:

Code:

---

1 2 3 4 5 6 7

Sub test() Dim D As Date D = CDate(Cells(4, 2).Value) If Month(CDate(Cells(4, 3).Value)) = Month(D) And Year(CDate(Cells(4, 3).Value)) = Year(D) Then Cells(5, 3).Value = Day(D) End If End Sub

---

Bonjour,
je cherche à réaliser une macro qui parcours une colonne d'un tcd contenant des dates sous format "11/02/2009" ; puis à chaque fois que l'indice "i" tombe sur une date correspondant au mois de janvier 2007 par exemple, elle récupère la valeur de la colonne d'à côté et elle la cumule à la prochaine valeur de janvier 2007.Quand je lance la macro , message d'erreur type " dépassement de capacité", ou bien "incompatibilité de type" et le débogueur souligne la ligne du "if ...month(cdate....)".
Quelqu'un peut-il rectifier ma macro ou proposer une autre solution??

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub kk() Dim z As Byte, c As Long c = 0   For i = 5 To 100 If Month(CDate(Cells(i, 1))) = 1 And Year(CDate(Cells(i, 1))) = 2007 Then z = Cells(i, 2) + c c = z End If Next i Cells(5, 4) = z End Sub MERCI

---

Un exemple avec double boucle

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim i As Integer, j As Integer Dim LastLig As Long, cumul As Double   LastLig = Range("A65536").End(xlUp).Row For j = 1 To 12 Range("D" & j + 1).Value = MonthName(j) 'Tableau cumul de D2 à E13 cumul = 0 'Mois dans colonne A et effectis dans colonne B For i = 4 To LastLig 'Données commence de la ligne 4 If Month(Range("A" & i)) = j Then cumul = cumul + Range("B" & i) Next i Range("E" & j + 1).Value = cumul Next j

---

Essai comme ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub kk() Dim z as Variant Dim i as Long   z = 0   For i = 5 To 100 If Month(CDate(Cells(i, 1))) = 1 And Year(CDate(Cells(i, 1))) = 2007 Then z = Cells(i, 2) + z 'Inutile de passer par c End If Next i Cells(5, 4).value = z End Sub

---

re bonjour,

à l'execution il y a toujours le meme problème :"incompatibilité de type"; le débogueur me souligne la partie

"if month(cdate (cells(i,1)))=1 and year(cdate(cells(i,1)))=2007 then .."je ne comprends pas ou est l'erreur dans cette ligne.

HELP!!
merci

Je viens de tester ce code chez moi et je n'ai eu aucun problème.
J'ai ajouter une mSgBox pour controler.
Est tu sur que dans ta colonne A de la ligne 5 à 100 tu ai des infos qui sont sous la forme 02/01/2007

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub kk() Dim z As Variant Dim i As Long   z = 0   For i = 5 To 100 MsgBox (Month(CDate(Cells(i, 1))) & " / " & Year(CDate(Cells(i, 1)))) If Month(CDate(Cells(i, 1))) = 1 And Year(CDate(Cells(i, 1))) = 2007 Then z = Cells(i, 2) + z 'Inutile de passer par c End If Next i Cells(5, 4).Value = z End Sub

---

toujours le même message:"erreur exécution 13; incompatibilité de type".
Oui dans la colonne A les dates sont sous format 01/02/2007.
Le débogueur me souligne toujours la ligne du "if month(cdate(cells(......))).

Je ne vois pas d'erreur dans mon code.

Pourrai tu faire un copier coller de l'ensemble de ton code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub kk()   Dim z As Variant     z = 0   For i = 5 To 100   If Month(CDate(Cells(i, 1))) = 1 And Year(CDate(Cells(i, 1))) = 2007 Then z = Cells(i, 2) + z 'Inutile de passer par c End If Next i Cells(5, 4).Value = z     End Sub

---

Comme tu vois c'est le même ; bizarre que ça marche chez toi et pas moi.

:tagcode:

Je viens de retester ton code chez moi sous excel 2003.
Aucun Problème
Je te joins mon fichier

Bizarre? Je te joins le fichier sur lequel je bosse .Je cherche à récupérer toutes les dates de 2007 et les ventiler par mois dans le tableau à coté du tcd (copie d'une partie du tcd) tout en cumulant les valeurs relatives à chaque mois de l'année 2007.

A terme je devrait faire ça pour chaque année, mais si ça marche pour 2007 , alors il n'y aura plus de problème pour le reste .

En tout cas merci pour ta disponibilité.

Je viens d'ouvrir ton fichier et j'ai testé, encore une fois je n'ai pas eu de problème.
Ensuite j'ai fait une petite modif sur ton code pour remplir tous les mois d'un seul coup ainsi que toutes les années:
Il rempli janvier à decembre pour 2007 et ensuite fait de même sur la ligne suivante pour 2008 et ainsi de suite jusqu'a 2010.:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub kk()   Dim z As Variant Dim i As Long, j As Long, lig As Long, l As Long   lig = 5 For l = 2007 To 2010 For j = 1 To 12 z = 0 For i = 3 To Range("A65536").End(xlUp).Row If Month(CDate(Cells(i, 1))) = j And Year(CDate(Cells(i, 1))) = l Then z = Cells(i, 2) + z 'Inutile de passer par c End If Next i Cells(lig, j + 4).Value = z Next j lig = lig + 1 Next l   End Sub

---

Bonjour,

merci beaucoup pour le code ; mais malheureusement ça ne marche toujours pas.L'erreur est toujours au niveau de la ligne :

Code:

---

if Month(cdate(cells(i,1))))=1 and year(cdate(cells(i,1)))=2007

---

Je ne comprends pas pourquoi il ne prend pas en compte cette condition;
Autre précision , les données sont importées d'un CRM et je les mis dans un TCD sur excel; je ne sais pas si ça y joue.

Je pense que le problème vient du fait que les données que j'essaie de traiter via la macro sont dans un TCD; car ton code fonctionne quand je copie les données du TCD ds un tableau normal coome ds le fichier que je t'ai envoyé.


Merci

En fait , j'ai essayé le code vec le fichier que je t'ai envoyé et effectivement ça a l'air de fonctionner.Seulement,les données dates et nbre de clients que je dois traitées sont dans un TCD (dont les données sont importées)et pas dans un tableau comme je te l'ai envoyé dans le fichier.Le même code marche quand les données sources sont ds un tablo ;et bugg quand c'est un TCD.

Le TCD n'a rien à voir dans cela si tes données sont effectivement des dates! ci-joint exemple

pourrais-tu me mettre le code que tu as fait avec ce TCD ??

merci bcp

c bon je l'ai . excuse