Formater cellule

Le
jean-luc Guitard
Bonjour,
Ne peut-on pas faire plus simple pour formater une cellule sans être obligé de sélectionner la cellule
une instruction dans le genre Format :
ici je cherche le nombre de mois entre 2 dates
Juste un tout petit problème peut on arrondir au mois supérieur s'il y a un 1 mois et 18 jours de différence il indique
1 mois
peut on avoir 2 mois

MaDate = CDate(Sheets(1).Cells(i, 12).Value)
If IsDate(MaDate) Then
NbreMois = DateDiff("m", MaDate, Now)
Sheets(2).Cells(j, 7).Value = NbreMois
Sheets(2).Cells(j, 7).Select
Selection.NumberFormat = "General"
End If
merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
DanielCo
Le #23074591
Bonjour.
MaDate = CDate(Sheets(1).Cells(i, 12).Value)
If IsDate(MaDate) Then
With Sheets(2).Cells(j, 7)
.Value = DateDiff("m", MaDate, Now)
.NumberFormat = "General"
End With
End If
Cordialement.
Daniel


Bonjour,
Ne peut-on pas faire plus simple pour formater une cellule sans être obligé
de sélectionner la cellule
une instruction dans le genre Format :
ici je cherche le nombre de mois entre 2 dates
Juste un tout petit problème peut on arrondir au mois supérieur s'il y a un 1
mois et 18 jours de différence il indique 1 mois
peut on avoir 2 mois

MaDate = CDate(Sheets(1).Cells(i, 12).Value)
If IsDate(MaDate) Then
NbreMois = DateDiff("m", MaDate, Now)
Sheets(2).Cells(j, 7).Value = NbreMois
Sheets(2).Cells(j, 7).Select
Selection.NumberFormat = "General"
End If
merci
LSteph
Le #23074801
Bonjour,

Ecris directement:

Sheets(2).Cells(j, 7).NumberFormat = "General"


L'instruction select est presque toujours parfaitement inutile

Sheets(2).Cells(j, 7).Select
Selection.NumberFormat = "General"



'LSteph

On Feb 1, 10:39 am, "jean-luc Guitard"
Bonjour,
Ne peut-on pas faire plus simple pour formater une cellule sans être  obligé de sélectionner la cellule
une instruction dans le genre Format :
ici je cherche le nombre de mois entre 2 dates
Juste un tout petit problème peut on arrondir au mois supérieur s'il y a un 1 mois et 18 jours de différence il indique
1 mois
peut on avoir  2 mois

    MaDate = CDate(Sheets(1).Cells(i, 12).Value)
           If IsDate(MaDate) Then
               NbreMois = DateDiff("m", MaDate, Now)
               Sheets(2).Cells(j, 7).Value = NbreMois
               Sheets(2).Cells(j, 7).Select
               Selection.NumberFormat = "General"
    End If
merci
michel ou sam
Le #23074791
Bonjour,
pour l'arrondi tu as peut être intéret à compter les jours et à arrondir
nbjours/30

NbreMois = Round(DateDiff("d", MaDate, Now) / 30)

Michel

"jean-luc Guitard" 4d47d4b4$0$5403$
Bonjour,
Ne peut-on pas faire plus simple pour formater une cellule sans être
obligé de sélectionner la cellule
une instruction dans le genre Format :
ici je cherche le nombre de mois entre 2 dates
Juste un tout petit problème peut on arrondir au mois supérieur s'il y a
un 1 mois et 18 jours de différence il indique 1 mois
peut on avoir 2 mois

MaDate = CDate(Sheets(1).Cells(i, 12).Value)
If IsDate(MaDate) Then
NbreMois = DateDiff("m", MaDate, Now)
Sheets(2).Cells(j, 7).Value = NbreMois
Sheets(2).Cells(j, 7).Select
Selection.NumberFormat = "General"
End If
merci
Péhemme
Le #23074841
Bonjour Jean-Luc,

Un truc comme cela ?
MaDate = CDate(Sheets(1).Cells(i, 12).Value)
If IsDate(MaDate) Then
NbreMois = DateDiff("m", MaDate, Now)
With Sheets(2).Cells(j, 7)
.Value = CLng(Format(Evaluate("int(" & NbreMois & "/0.5)*0.5"),
"0"))
.NumberFormat = "General"
End With
End If
Bonne journée
Michel


"jean-luc Guitard" news:4d47d4b4$0$5403$
Bonjour,
Ne peut-on pas faire plus simple pour formater une cellule sans être
obligé de sélectionner la cellule
une instruction dans le genre Format :
ici je cherche le nombre de mois entre 2 dates
Juste un tout petit problème peut on arrondir au mois supérieur s'il y a
un 1 mois et 18 jours de différence il indique 1 mois
peut on avoir 2 mois

MaDate = CDate(Sheets(1).Cells(i, 12).Value)
If IsDate(MaDate) Then
NbreMois = DateDiff("m", MaDate, Now)
Sheets(2).Cells(j, 7).Value = NbreMois
Sheets(2).Cells(j, 7).Select
Selection.NumberFormat = "General"
End If
merci
michdenis
Le #23075031
Bonjour Michel,

En vba, il vaut mieux utiliser Application.Round() au lieu de Round()

Exemple :
En VBA
x = Round(2.5, 0) retourne 2

Feuille de calcul :
=Arrondi(2,5;0) retourne 3

Il y a au moins une formule qui ne dit pas la vérité !
;-))

MichD
--------------------------------------------
Publicité
Poster une réponse
Anonyme