Sélectionner le mois dans une date

Bonjour,

a adapter dans une boucle pour votre tableau:

x = Month(Worksheets("feuil1").Range("A1"))

Bonne suite

Merci f894009,

J'ai donc essayer d'utiliser cette ligne.

Je voudrais la comparer au valeur pouvant être prise par les différents mois pour placé la valeur d'une cellule de la ligne avec le mois m'interessant dans une case.

Pour rappel dans ma colonne A se trouve les dates,
VBA m'indique une erreur 13, donc une incompatibilité de type sur ma ligne :

x = Month(Worksheets("Données").Range("A" & j))

Sub pource()

Dim x As Date
Dim i As Integer 'Variable mois'
Dim j As Integer 'Variable ligne'
Dim Dp As Integer 'Variable panne Dépall'
i = 1

For j = 1 To 500
If Worksheets("Données").Range("A" & j) <> " " Then
x = Month(Worksheets("Données").Range("A" & j))
End If

If i = x And Worksheets("Données").Range("C" & j) = "Dépall" And Worksheets("Données").Range("D" & j) = "x" Then
Dp = Dp + Worksheets("Données").Range("F" & j)
End If
Worksheets("Récap").Range("B3") = Dp

Next j

End Sub

Une idée ?

DGVDR

Bonjour,

Dim x As Date Pourquoi??? vous cherchez un mois numerique.

Pour l'erreur 13, je ne sais pas ce qu'il y a dans vos cellules!!!!!!

Bonjour,

J'ai modifié en "Dim x As Integer"

Je rencontre toujours le même problème.

Dans mes cellules, il y a des dates.

DGVDR

Bonjour,

Pour l'erreur 13, je ne sais pas ce qu'il y a dans vos cellules!!!!!! Je redit la meme chose, le fait de changer la definition de x etait pour que votre test sur le mois soit juste.

Si votre cellule a un ou plusieurs espaces, il y a erreur
au moment de l'erreur, verifiez le contenu de la cellule Worksheets("Données").Range("A" & j)

A+