Recuperer la valeur du Mois dans une date

Bonjour,

Mon probleme est relativement simple : j'ai une colone dans laquelle j'ai une serie de date.
je souhaite ecrire dans une colonne le numero du mois correspondant a la date.

J'ai code ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Mois()   Dim C As Range   For Each C In Range(Cells(1, 1) & Cells(Rows.Count, 1).End(xlUp))   NummerMonat = Format(Month(C.Value))   C.Offset(0, 3) = NummerMonat   Next   End Sub

---

Mais cela ne m'affiche qu'une erreur : erreur 1004, l'outil Range n'est pas adapte pour une utilisation globale (traduction depuis l'allemand).

Je suis regulierement confronte a cette erreur, mais je ne sais jamais comment la corriger.

Merci d'avance.

Bonjour,

Tu peux aussi essayer avec le traitement de chaînes de caractères. Tu as un très bon tuto sur ce site (j'ai donné le lien dans un des sujets d'aujourd'hui).

Ca sera peut-être plus simple.

Bonne chance.

Mon probleme est que je suis oblige (je pense) d'utiliser la boucle For Each C in range... puisqu'il faut que je fasse cette operation pour toutes les cellules de la colonne.

Et c'est de cette instruction que mon probleme provient (pour le moment).

Neanmoins la lecture de ce tuto a ete instructif et je t'en remercie.

Pour la boucle, je vois que tu veux boucler sur les cellules de la colonne A :

Code:

---

1 2 3 4 5

Dim i as long   For i = 1 to Range("A65536").End(xlup).row   Next

---

Du coup, au lieu d'écrire C.value, tu peux écrire :

Code:

---

Range("A" & i).value

---

Cela fonctionnera comme ça.

bonjour Potzo;DeaD78. essai comme cela

Code:

---

1 2 3 4 5 6

Sub es() Dim i As Long For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Cells(i, 3) = Month(Cells(i, 1)) Next End Sub

---

ou

Code:

---

Cells(i, 3) = MonthName(Month(Cells(i, 1)))

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Mois2()   Dim i As Long   For i = 1 To Range("A65536").End(xlUp).Row Cells(i, 3).Value = Format(Month(Range("A" & i).Value)) Next       End Sub

---

Ce code marche, j'ai mixe vos deux solutions. Je vous remercie de vos reponses.

Mais si quelqu'un a la reponse concernant ce que j'avais ecris au debut, il est le bienvenue.

bonjour

le probleme vient de

Code:

---

For Each C In Range(Cells(1, 1) & Cells(Rows.Count, 1).End(xlUp))

---

regarde bien la syntaxe

soit il faut utiliser

Code:

---

For Each C In Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1))

---

ou

Code:

---

For Each C In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)

---

Bonjour,

Si tes dates sont dans une même colonne, et sont contigües

Code:

---

1 2 3 4 5

Sub MacroMois() Dim c As Range Set c = Range(Range("B1").End(xlDown), Range("B65536").End(xlUp)).Offset(0, 1) c.Formula = "=MONTH(RC[-1])" End Sub

---

Cordialement

Marcel.

Re,

La précédente réponse était arrivée pendant que je rédigeais.

Que pensez-vous de ma solution?

Cordialement.

Marcel

Ta methode ne m'affiche que des 1 Marcel.

Finalement j'ai pu corriger mon code grace a la correction de zyhack.

Merci a tous en tout cas !

C'est assez etrange.

Ma macro s'execute tres bien dans un fichier test, mais quand je la met dans mon fichier cible, cela m'affiche une erreur comme quoi NummerMonat est une type incompatible...

re, tu as declare comment NummerMonat qui sert a rien d'ailleurs???

Dans mon fichier de test, je ne le declare pas et ca fonctionne.

Mais vu que tu dis que ca ne sert a rien, je viens de l'enlever et ca marche maintenant :)

Effectivement il etait inutile, par contre, je me demande bien comment mon programme s'est mis a ne plus marcher alors que j'ai fait un simple copier/coller et que les colonnes sont les mêmes...

Mais bon, le principal est que ca fonctionne !

Re-merci !

EDIT : Orthographe

Re,

Je me permets de m'imiscer.

J'en reviens au code que je t'ai proposé.
Tes données sont-elles au format date ?
Ici, j'ai pris l'exemple de la colonne B contenant tes dates, mais il faut bien entendu adapter.

J'ai effectué un nouvel essai. Sans problème.

A plus.

Marcel

re, salut marcel je viens de tester chez moi ca marche trés bien