vba - filtrer les éléments de la date

Bonjour, est-il possible a partir d'une date au format dd/mm/yyyy de recuperer seulement l'année et de recuperer le mois et l'année.

merci de votre reponse.

Bonjour

Le format de la date n'influe pas. Une date est un nombre, quel que soit le format d'affichage utilisé.

Comme tu es dans le forum VBA, je suppose que c'est par vba...
Les fonctions Month et Year permettent cela.

Exemple de code qui renvoie l'année de la date système

Code:

---

MsgBox Year(Date())

---

Cela étant, si ta date est une chaine de caractères, tu dois utiliser les fonctions
Left(...), Mid(...) ou Right pour extraire les caractères souhaités.

Code:

---

right(Madate,4)

---

renverra une chaine représentant le millésime,

Code:

---

mid(MaDate,4,2)

---

renverra le mois, sur base du format présenté dans ta question...

A toi de voir en fonction de ton cas

merci de ta reponse,

j'essaie les indications que tu me donnes...
voila le code :

Code:

---

1 2 3 4 5 6

Private Sub CommandButton1_Click() Dim madate As Variant madate = Sheets("sheet2").Range("f2").Text Sheets("sheet2").Range("f26").Value = right(madate, 4) Sheets("sheet2").Range("f27").Value = Mid(madate, 4, 2) End Sub

---

la valeur dans la cellule F2 est 15/02/2008
Donc j'aimerais recuperer dans la cellule F26, la valeur 02/2008
et dans la celluel F27 la valeur 2008

Mais les resultat que j'ai sont 02/01/1900 pour F26 et 30/06/1905 pour F27.

Bonjour,

Car tes cellules sont dans un format donné qui n'est pas du texte, vois comme ceci :

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() Dim madate As Variant madate = Range("f22").Text Range("f26:f27").NumberFormat = "@" Range("f26").Value = Right(madate, 4) Range("f27").Value = Mid(madate, 4, 2) End Sub

---

ou pour obtenir vraiment ce que tu demandes ci-dessus ;)

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() Dim madate As Variant madate = Range("f22").Text Range("f26:f27").NumberFormat = "@" Range("f26").Value = Right(madate, 7) Range("f27").Value = Right(madate, 4) End Sub

---

cordialement,

Didier

merci ça marche.

et pour info, comment on recupere le mois seulement.

et peux-tu m'expliquer ce que c'est le "@" j'aimerai comprendre un peu plus le programme au lieu de copier les lignes.

merci

En toute logique, regardes la déclaration de variable et la modif du code, en faisant F1 sur les mots clefs, tu auras des compléments.

La réponse pour le mois était d'ailleurs fournie dans le post détaillé de Pierre ;)

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CommandButton1_Click() Dim madate As String   madate = CStr(Range("f22")) Range("f26:f28").NumberFormat = "@" Range("f26").Value = Right(madate, 7) Range("f27").Value = Right(madate, 4) Range("f28").Value = Mid(madate, 4, 2) End Sub

---

Ta soif de comprendre est positive, une lecture attentive est déjà un bon départ ;) Je te rajoute des liens à suivre, il y aura de quoi faire :D

Rajout :

Le plus important est dans la première phrase de Pierre :

Citation:

---

Le format de la date n'influe pas. Une date est un nombre, quel que soit le format d'affichage utilisé.

---

Dans Excel (pas vba) fait F1 et tapes date, vois à à propos....

Citation:

---

Microsoft Excel enregistre les dates sous la forme de nombres séquentiels appelés numéros de série. Par défaut, le 1er janvier 1900 correspond au numéro de série 1, et le 1er janvier 2008 correspond au numéro de série 39448 parce que 39 448 jours se sont écoulés depuis le 1er janvier 1900. Excel enregistre les heures sous la forme de fractions décimales parce que l'heure est considérée comme une partie de la journée.etc.... (à lire si on veut comprendre le comportement logique d'Excel sur les dates ;) )

---

Sinon voir ce qui t'interesse dans :

http://dolphy35.developpez.com/article/outlook/vba/

http://mhubiche.developpez.com/vba/f...ions/datetime/


http://jeannot45.developpez.com/arti...personnalises/


cordialement,

Didier

merci beaucoup