date texte

[dhiouf]

Bonjour
j'ai un problème avec = texte(A1,"mmmm/yyyy), chez moi pas de problème, mais lorsque j'utilise mon fichier sur un autre Pc il faut changer la formule:
= texte(A1,"mmmm/aaaa").
Merci d'avance

 

[porcinet82]

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 :

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

@+

 

[Catrice]

Re : date texte

Bonjour,

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

 

[dhiouf]

Re : date texte

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

 

[porcinet82]

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...

@+

 

[dhiouf]

Re : date texte

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

 

[porcinet82]

Re : date texte

re,

Essais comme ceci :

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).

@+

 

[dhiouf]

Re : date texte

Merci beaucoup porcinet82, ça marche

 

[Catrice]

Re : date texte

Re,

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