Sélectionner le mois dans une date
Fermé
DGVDR
-
Modifié par DGVDR le 13/05/2013 à 10:43
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 14 mai 2013 à 08:51
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 14 mai 2013 à 08:51
A voir également:
- Sélectionner le mois dans une date
- Ajouter 6 mois à une date excel ✓ - Forum Excel
- Formule excel si date supérieur à une autre date ✓ - Forum Excel
- Publipostage date en anglais ✓ - Forum Excel
- Publipostage date inversée ✓ - Forum Word
- Passé cette date - Forum Logiciels
5 réponses
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 702
Modifié par f894009 le 13/05/2013 à 11:51
Modifié par f894009 le 13/05/2013 à 11:51
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
DGVDR
Messages postés
158
Date d'inscription
vendredi 10 août 2012
Statut
Membre
Dernière intervention
20 juillet 2015
13 mai 2013 à 16:01
13 mai 2013 à 16:01
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
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 702
13 mai 2013 à 18:10
13 mai 2013 à 18:10
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!!!!!!
DGVDR
Messages postés
158
Date d'inscription
vendredi 10 août 2012
Statut
Membre
Dernière intervention
20 juillet 2015
14 mai 2013 à 08:39
14 mai 2013 à 08:39
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
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 702
Modifié par f894009 le 14/05/2013 à 08:59
Modifié par f894009 le 14/05/2013 à 08:59
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+
