Sélectionner le mois dans une date
DGVDR
-
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je cherche à sortir des chiffres mois par mois en automatique à partir d'un tableau.
Je voudrais donc trouver une astuce vba pour pour sélectionner et extraire le mois dans une date au format JJ/MM/AA. Ces dates ce trouvant dans la colonne "A" de mon tableau?
Quelqu'un aurait une idée du code à utiliser ?
DGVDR
Je cherche à sortir des chiffres mois par mois en automatique à partir d'un tableau.
Je voudrais donc trouver une astuce vba pour pour sélectionner et extraire le mois dans une date au format JJ/MM/AA. Ces dates ce trouvant dans la colonne "A" de mon tableau?
Quelqu'un aurait une idée du code à utiliser ?
DGVDR
A voir également:
- Sélectionner le mois dans une date
- Convertir trimestre en mois - Forum Excel
- Excel mois en lettre ✓ - Forum Excel
- Youtube premium 2 mois gratuit - Accueil - TV & Vidéo
- 600h en mois ✓ - Forum Bureautique
- Sélectionner du texte dans un 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+
