Extraire le mois d'une date

Bonjour

J'ai un tableau Excel, et je voudrais savoir comment je pourrais trouver, dans une colonne, une partie de la valeur d'une cellule au format date (jj/mm/aaaa) donc par exemple le mois (mm) puis inscrire une autre valeur dans la 5ème cases à droite.

Merci pour votre aide

Bonjour,

Voici une petite solution simple mais efficace (testée):

Code:

---

1 2 3 4 5

For i = idebut To ifin If Month(Cells(i, colonne)) = mois Then Cells(i, colonne + 5) = info End If Next i

---

idebut = ligne de début de recherche
ifin = ligne de fin de recherche
colonne = colonne de recherche
mois = mois recherché !! Attention: c'est un entier. La fonction Month() renvoi un entier compris en 1 et 12.
info = ce que tu veux mettre dans la cinqième colonne à droite

J'espère que cela t'aidera :mrgreen:

Bonne journée !!

ps: N'oublie l'aide vba très utile parfois (touche F1).

Salut phal2ip et le forum

Citation:

---

J'ai un tableau Excel, et je voudrais savoir comment je pourrais trouver, dans une colonne, une partie de la valeur d'une cellule au format date (jj/mm/aaaa) donc par exemple le mois (mm) puis inscrire une autre valeur dans la 5ème cases à droite.

---

Je suppose que c'est par VBA ?

Code:

---

Range("A1").Offset(0, 5) = Month(Range("A1")) & " = " & Format(Range("A1"), "mmmm")

---

Mettra "9 = septembre" en F1, si A1 : =Aujoudhui()
A+

Super
ça marche super bien
merci pour votre aide mais maintenant j'ai un autre souci....

Dans un ComboBox, dans la propriété RowSource je voudrais y mettre 2 colonnes accolées de quelques lignes.

J'ai essayé cela :
Element.RowSource = "$A$2:$A$17" & "$B$2:$B$17"

Et cela
Element.RowSource = "$A$2:$B$17"

Mais rien n'y fait cela ne veut pas…

Ta première question étant résolue, veux-tu bien cliquer sur le bouton :resolu:, en bas de discussion et créer une nouvelle discussion pour ton nouveau problème?

Merci