Afficher numéro du mois

XL 2007 VBA Bonjour a tous et toutes, forum bonjour,

Dans une colonne de F2:F27 que j'ai mise au format DATE " mercredi 14 mars 2001 "

Comment SVP afficher en cellule F28 le numéro du mois en VBA

Merci a vous et bon Lundi de Pâques a tous le monde

Raymond

Bonjour,

Le code suivant donne le n° du mois :

nummois = Month(cellule_de_la_date)

Salut Raja

Merci pour ta reponse rapide mais vois si tu veux bien le code

j'ai essayer mais ca bug

suis pas trop baleze en VBA j'apprends

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Nummois: Dim Cel As Range
      With Target

For Each Cel In Range([F2], [F27].End(xlUp))
Nummois = Month(Cel)                        '<<<<<<<<<<<<<< se mets en jaune bug
MsgBox Nummois

Next Cel
End With
End Sub

Merci bien de regarder si tu as le temps

A plus tard bon app

Raymond

Re,

Sans le fichier en support, ton code me servira pas à grand chose pour tester et ainsi debugger. Envoi ton fichier avec.

re salut

Merci pour ta reponse

C'est un bout de code que je voulais essayer avant de voir si je peux l'integrer a mon programme, Mais déja la ca marche pas

merci d'avoir lu mon post

A plus tard

Raymond

Bonjour tous,

Qu'est ce que vient faire ce With Target ???

Essaye plutôt comme ça:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Nummois, Cel As Range

For Each Cel In Range([F2], [F27].End(xlUp))
Nummois = Month(Cel)
MsgBox Nummois
Next Cel

End Sub

J'ai pas gardé ton SelectionChange non plus, car les essais vont vite t'énerver sinon...

Bonjour Sylvain, bonjour forum,

Merci pour ta reponse, c'est gentil, j'ai essayer ca fonctionne.

Mais j'ai une erreur d'execution "13" avec incompatibilité de type en fin de lecture a chaque essai

et je souhaiterai STP l'affichage dans la cellule F28

Excuse moi d'avoir tarder mais je suis un coup "achat voiture"

Merci bon app et bonne journée

Raymond

Bonjour,

Comment SVP afficher en cellule F28 le numéro du mois en VBA

En F28 tu veux afficher le numéro du mois de quelle cellule sachant que tes dates vont de F2 à F27 si je lis ton code.

A te relire

Dan

Edit Dan :

Essaie ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
'Macro modifiée Dan
If Not Intersect(Target, Range("F2:F27")) Is Nothing Then
If IsEmpty(Target) Then End
Range("F28") = Month(Target)
End If
End Sub

Amicalement

Dan

Bonjour Dan forum

Merci Dan tu as lu dans mes pensées, c'est bien comme cela que je voulais pour l'affichage en F28.

MAIS ca bug a ce code

Range("F28") = Month(Target) 

, ca s'affiche bien mais a un moment ca bug

erreur d'execution 13 incompatibilité de type

si je mets SelectionChange ca fait pareil

qu'il y ai une ligne vide OU pas ca fait pareil aussi, je parle dans la plage F2:F27

Voila, merci bon continuation a plus je vais chercher d'ou ca provient

te dit a plus tard

Raymond

re,

Vérifie que le format de tes cellules entre F2 et F27 est bien un format de date.

Dans le cas contraire il faut savoir ce que tu as comme format. Peut être un personnalisé ?

A te relire

Dan

RE Dan

Je t'envoie mon fichier "essai date.xlsm" peut etre ca sera plus facile

En tout cas merci bien

Raymond

https://www.excel-pratique.com/~files/doc2/Essai_date.xlsm

Re Dan

J'ai essayer de t'envoyer mon fichier mais j'ai du me gourer c'est pas grave il contient en fait juste ton dernier code tu peux l'effacer svp

sinon pour repondre a ta question

la colonne F2:F27 est au format jjjj jj mmmm aaaa

j'ai essayer d'autres format mais le souci est le meme

merci a toi au plaisir de te relire

Ray