Insertion formule Excel dans VBA.

[Barnum]

Bonjour à tous,

Je rencontre qq problemes concernant l'insertion de formule Excel dans mon code VBA.
J'ai parcouru le forum à la recherche d'information, ca m a permis d'avancer et de me debloquer jusqu a un certains points.

L'objectif est d'avoir sur toute la colonne A de mon fichier excel un jour au format date "01/01/2012"
J'aurai besoin de savoir à quel mois cela correspond. La formule Excel "Mois" me va tres bien.
Le soucis est que cela ne fonctionne pas une fois mis dans mon code VBA, dans tous les cas il me remonte fevrier ...

Voici le code:

If (Cells(1, 1).FormulaLocal = "=Mois(cells(1,1)=1") Then
Cells(1, 6).Value = "Janvier"
Else
Cells(1, 6).Value = "fevrier"
endIF

Si vous pouviez m'indiquer comment m en sortir...
Merci d'avance.

 

[Pierrot93]

Re : Insertion formule Excel dans VBA.

Bonjour,

essaye peut être avec la fonction native de vba, exemple ci-dessous à adapter :

If Month(Cells(1, 1)) = 3 Then MsgBox "mars"

bonne journée
@+

 

[Barnum]

Re : Insertion formule Excel dans VBA.

Re bonjour ;
Avant tout merci d'avoir pris le temps de me repondre.
Cela fonctionne parfaitement maintenant.

A bientot et merci encore.

 

[Pierrot93]

Re : Insertion formule Excel dans VBA.

Re,

A noter également la fonction "monthname" te renverra le nom du mois :

MsgBox MonthName(Month(Cells(1, 1)))

 

[Barnum]

Re : Insertion formule Excel dans VBA.

Rebonjour c est encore moi !

Après les jours je tente de gerer les heures. En suivants tes conseils j ai trouver la formule Hour(L,C).
Par contre c est comme si il n'arrivait pas à lire certaines heures entrées dans excel :

Lors que je rentre en cellulle 1,1 : 23:45:00, je m attend a ce qu il execute " cas 1 " et ce n est pas le cas.

If (Hour(Cells(1, 1)) > "23:00:00") And (Hour(Cells(1, 1)) < "00:00:00") Then
Cas 1
Else
Cas 2
Endif

Y a t il une suptilité? j ai pourtant bien mis le format de ma cellulle Excel en format heure HH:MM:SS

 

[Pierrot93]

Re : Insertion formule Excel dans VBA.

Re,

ceci devrait peut être suffire :

If Hour(Cells(1, 1)) >= 23 Then MsgBox "ok sup.."

 

[Pierrot93]

Re : Insertion formule Excel dans VBA.

Re,

regarde peut être aussi cela :

If TimeValue(Cells(1, 1).Text) >= #11:45:00 PM# Then MsgBox "ok sup.."

 

[Barnum]

Re : Insertion formule Excel dans VBA.

Ha bien sur j'y avais pas pensé !
Dès demain matin j'essaye et je te tiens au courant.
Merci encore !!

 

[Barnum]

Re : Insertion formule Excel dans VBA.

Joyeux mardi,
Alors au final pour que cela marche j ai fait : TimeValue(Cells(L, 2).Text) > "23:00:00"

merci 🙂