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.