Discussion :

[doudou8mc]

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

[diude54]

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

Code :

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

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

[diude54]

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

Code :

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

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

[doudou8mc]

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 :

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

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

[mercatog]

Un exemple avec double boucle

Code :

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

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

[doudou8mc]

c bon je l'ai . excuse