date texte

porcinet82

XLDnaute Barbatruc

• 4 Novembre 2008

• #2

Re : date texte

Salut,

Je pense que c'est tout simplement du au fait qu'un des postes possède une version anglais (d'ou le yyyy) et l'autre une version francaise (aaaa).

Essais avec ceci :

Code:

If Application.LanguageSettings.LanguagePreferredForEditing(msoLanguageIDFrench) Then
    a = texte(A1, "mmmm/yyyy")
Else
    a = texte(A1, "mmmm/aaaa")
End If

@+

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 4 Novembre 2008

• #3

Re : date texte

Bonjour,

Une solution simple consiste à formater la cellule au format nombre Excel.
Voir fichier joint

 

Pièces jointes

• Classeur1.xls

  13.5 KB · Affichages: 52
• Classeur1.xls

  13.5 KB · Affichages: 54
• Classeur1.xls

  13.5 KB · Affichages: 56

Vote positif 0 Vote négatif

dhiouf

XLDnaute Occasionnel

• 4 Novembre 2008

• #4

Re : date texte

bonjour porcinet82
il ya une erreur dans ton code, voir fichier joint

 

Pièces jointes

• Classeur1.xls

  22.5 KB · Affichages: 45
• Classeur1.xls

  22.5 KB · Affichages: 45
• Classeur1.xls

  22.5 KB · Affichages: 48

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 4 Novembre 2008

• #5

Re : date texte

re,

Mon code était un exemple !!! 😉
Tu avais mis le bout de code texte(A1, "mmmm/yyyy") donc je l'ai repris pour exemple, mais c'est à toi de modifier avec ton code...

@+

 

Vote positif 0 Vote négatif

dhiouf

XLDnaute Occasionnel

• 4 Novembre 2008

• #6

Re : date texte

excusé moi porcinet82 j'ai pas bien compris, peux tu me donner un bout de fichier exemple
Merci

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 4 Novembre 2008

• #7

Re : date texte

re,

Essais comme ceci :

Code:

Private Sub CommandButton1_Click()
If Application.LanguageSettings.LanguagePreferredForEditing(msoLanguageIDFrench) Then
    Range("A1").FormulaR1C1 = "=TEXT(R[0]C[8]," & """" & "mmmm/aaaa" & """" & ")"
Else
    Range("A1").FormulaR1C1 = "=TEXT(R[0]C[8]," & """" & "mmmm/yyyy" & """" & ")"
End If
End Sub

Pour la formule, R correspond à la ligne (la première ligne étant 0) et C correpondant à la colonne (la colonne A valant 0).

@+

 

Vote positif 0 Vote négatif

dhiouf

XLDnaute Occasionnel

• 4 Novembre 2008

• #8

Re : date texte

Merci beaucoup porcinet82, ça marche

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 4 Novembre 2008

• #9

Re : date texte

Re,

Ci-joint une solution sans Macro.
Voir 2eme solution

 

Pièces jointes

• Classeur1.xls

  13.5 KB · Affichages: 53
• Classeur1.xls

  13.5 KB · Affichages: 54
• Classeur1.xls

  13.5 KB · Affichages: 55

Vote positif 0 Vote négatif