1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

XL 2016 association de chiffre + date

Discussion dans 'Forum Excel' démarrée par MICHAEL, 3 Décembre 2018.

  1. MICHAEL

    MICHAEL XLDnaute Occasionnel

    Inscrit depuis le :
    11 Août 2006
    Messages :
    207
    "J'aime" reçus :
    1
    Bonjour!

    en A1 (fonction aujourd'hui)
    en A2 (format date): un chiffre de 1 à 31

    je souhaiterais associé ce chiffre (A2) avec le n° du mois A1.

    Merci de votre aide
     
  2. Chargement...

    Discussions similaires - association chiffre date Forum Date
    Association de chiffres suivant plusieurs critères Forum Excel 25 Avril 2013
    Problème de macro lors de l'association à un bouton Forum Excel 10 Octobre 2018
    association excel word Le salon de XLD 25 Mars 2018
    association un fichier excel avec word Forum Excel 25 Mars 2018
    XL 2016 Association d'une valeur à une colonne Forum Excel 18 Novembre 2017

  3. Modeste geedee

    Modeste geedee XLDnaute Barbatruc

    Inscrit depuis le :
    8 Mars 2012
    Messages :
    6463
    "J'aime" reçus :
    791
    Sexe :
    Masculin
    Utilise:
    Excel 2007 (PC)
    ???
    =A2 &"/"& MOIS(A1)
     
  4. MICHAEL

    MICHAEL XLDnaute Occasionnel

    Inscrit depuis le :
    11 Août 2006
    Messages :
    207
    "J'aime" reçus :
    1
    bonjour,
    merci de votre proposition.
    celle ci fonctionne. Cependant je suis obligé de passer par une troisieme cellule dans laquelle
    je rentre le chiffre de 1 à 31.
    or, je souhaitais rentrer ce chiffre en A2 simplement.
    pensez vous que cela soit possible?
     
  5. Modeste geedee

    Modeste geedee XLDnaute Barbatruc

    Inscrit depuis le :
    8 Mars 2012
    Messages :
    6463
    "J'aime" reçus :
    791
    Sexe :
    Masculin
    Utilise:
    Excel 2007 (PC)
    =TEXTE(DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI());A2);"jj/mm")
    attention à la cohérence pour nbr maxi de jours selon mois
     
  6. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    25765
    "J'aime" reçus :
    2191
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    Bonjour MICHAEL, Modeste geedee,

    Fichier joint avec cette macro (clic droit sur l'onglet et Visualiser le code) :
    Code (Text):
    Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False 'désactive les évènements
    If Not IsDate([A1]) Then [A1] = "=TODAY()"
    If IsDate([A2] & "/" & Month([A1]) & "/" & Year([A1])) Then
        [A2] = "'" & [A2] & "/" & Month([A1])
    Else
        If Not Intersect(Target, [A2]) Is Nothing Then [A2] = ""
    End If
    Application.EnableEvents = True 'réactive les évènements
    End Sub
    A+
     

    Pièces jointes:

  7. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    25765
    "J'aime" reçus :
    2191
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    Re,

    Dans ce fichier (2) l'entrée en A2 est transformée en date au format jj/mm :
    Code (Text):
    Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False 'désactive les évènements
    If Not IsDate([A1]) Then [A1] = "=TODAY()"
    If IsDate([A2].Value2 & "/" & Month([A1]) & "/" & Year([A1])) Then
        [A2] = DateSerial(Year([A1]), Month([A1]), [A2])
    Else
        If Not Intersect(Target, [A2]) Is Nothing Then [A2] = ""
    End If
    Application.EnableEvents = True 'réactive les évènements
    End Sub
    A+
     

    Pièces jointes:

  8. MICHAEL

    MICHAEL XLDnaute Occasionnel

    Inscrit depuis le :
    11 Août 2006
    Messages :
    207
    "J'aime" reçus :
    1
    Bonjour,
    je vais essayer cela et vous remercie de votre aide.
    cordialement
     

Partager cette page