A voir également:
- Sélectionner le mois dans une date
- Publipostage date inversée ✓ - Forum Word
- Convertir trimestre en mois - Forum Excel
- Formule excel date + 6 mois - Forum Excel
- Formation 600 heures en mois ✓ - Forum Bureautique
- Selectionner texte sur pdf - Guide
5 réponses
Bonjour,
a adapter dans une boucle pour votre tableau:
x = Month(Worksheets("feuil1").Range("A1"))
Bonne suite
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))
Une idée ?
DGVDR
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!!!!!!
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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+
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+