Discussion :

[Potzo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[DeaD78]

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.

[Potzo]

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.

[DeaD78]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A" & i).value

Cela fonctionnera comme ça.

[laetitia]

bonjour Potzo;DeaD78. essai comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Potzo]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[zyhack]

bonjour

le probleme vient de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

regarde bien la syntaxe

soit il faut utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MarcelG]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[MarcelG]

Re,

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

Que pensez-vous de ma solution?

Cordialement.

Marcel

[Potzo]

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 !

[Potzo]

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...

[laetitia]

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

[Potzo]

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

[MarcelG]

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

[laetitia]

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