Discussion :

[HABILER]

Bonjour la communauté,
Je voudrais que la date Se trouvant en A12, A13.... et s'affichant sous le format jjjj jj et qui affiche par exemple vendredi 01 affiche Vrijdag 01 si le contrôle se trouvant an A1 est Vrai.
En F3 j'ai le mois de référence.

En A12 j'ai la formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

= FIN.MOIS(F3;1)+1

comme base et puis j'ai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SIERREUR(SI(MOIS(A12+1)=MOIS($F$3);A12+1;"");"")

a partir de A13.


Comme code vba pour le changement de date j'ai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub OptBtnNL_Click()
If OptBtnNL Then
Range("A2") = "Vervoerkosten"
Range("A3") = "Maand"
Range("A4") = "Naam en Voornamen"
'...…..
Range("A13") = Application.Text(A13, "[$-413]  jjjj jj")
 
End If
End Sub

[ARTURO83]

Bonjour,

Si j'ai bien compris, je suppose qu'il ne s'agit pas simplement de modifier les paramètres linguistiques d'excel et de sélectionner le néerlandais comme langue d'utilisation courante, mais plutôt d'une conversion à la demande (si la cellule A1 est vrai).
Si c'est bien le cas, la formule en A12 serait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(TEXTE(FIN.MOIS(F3;1)+1;"JJJJ jj")="Lundi 01";"maandag 01";SI(TEXTE(FIN.MOIS(F3;1)+1;"JJJJ jj")="mardi 01";"dinstag 01";SI(TEXTE(FIN.MOIS(F3;1)+1;"JJJJ jj")="mercredi 01";"woensdag 01";SI(TEXTE(FIN.MOIS(F3;1)+1;"JJJJ jj")="jeudi 01";"donderdag 01";SI(TEXTE(FIN.MOIS(F3;1)+1;"JJJJ jj")="vendredi 01";"vrijdag 01";SI(TEXTE(FIN.MOIS(F3;1)+1;"JJJJ")="samedi 01";"zaterdag 01";SI(TEXTE(FIN.MOIS(F3;1)+1;"JJJJ jj")="dimanche 01";"zontag 01";"")))))))

Appliquez le même principe pour les autres cellules.

Cdlt

[unparia]

Bonjour
J'utiliserais personnellement une feuille (nommons-la par exemple ALLEMAND). Une feuille ad hoc ou une plage de cellule de la feuille en cours (au choix).
J'y mettrais dans l'ordre, de la cellule A1 à la cellule A7, mes noms allemands de jours

supposons maintenant que la cellule C8 contienne une date valide et que la cellule C9 contienne cette formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=JOUR(C8) & " " & INDIRECT("ALLEMAND!A"&JOURSEM(C8))

C9 affichera ta date transformée comme tu l'entends

[Pierre Fauconnier]

Salut.

Excel permet l'utilisation des formats internationaux, sans qu'il soit besoin d'une table de conversion pour les noms des jours ou des mois...

Pour le néerlandais repris dans ta question initiale, c'est le code 813, à utiliser en préfixe du format date => par exemple [$-813]jjjj jj-mm-aa. Si tu dois transformer en plusieurs langage, la table des langages doit simplement contenir le code utilisé. Tu peux utiliser cela dans la fonction TEXTE, par exemple, puisque cette fonction permet l'utilisation de ce que tu peux mettre dans la boite de dialogue des formats personnalisés. Voici une illustration d'un format qui reprend le nom du jour et le nom du mois...







Après saisie dans la boite de dialogue du format personnalisé, ce code est converti en [$-nl-BE]....

La table des codes numériques internationaux se trouve ici. La table des codes littéraux est ici.

[HABILER]

Merci à tous pour vos réponses.

Mais un problème subsiste.
La langue de la date est subordonnée à la valeur d'un bouton d'option.

Si Opt btn est vrai alors jjjj jj sinon [$-813]jjjj jj sachant que la cellule contenant contenant la date (A13) est occupée par la formule : =SIERREUR(SI(MOIS(A12+1)=MOIS($F$3);A12+1
C'est la raison pour laquelle je me suis tourné vers vba.

[Pierre Fauconnier]

Où est placé le bouton d'option et de quel type est-il (formulaire ou activex)?

Avec une case à cocher de formulaire associée à une cellule, tu peux te passer de VBA... Voici un exemple avec une case à cocher liée à la cellule D1






Si c'est un activex posé sur une feuille, tu peux passer par le montage suivant:
Sur le code du Click de l'activex, tu places le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CheckBox1_Click()
  Me.Calculate
End Sub

Dans un module standard, tu crées une fonction personnalisée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Function getLanguage() As String
  If Feuil2.CheckBox1 Then getLanguage = "[$-nl-BE]" Else getLanguage = "[$-fr-BE]"
  getLanguage = getLanguage & "jjjj jj mmmm aaaa"
End Function

Et tu utilises la fonction pour définir le format dans ta formule


Peux-tu donner des détails sur la façon dont ton classeur est construit?

[HABILER]

J'ai joint mon dossier pour que vouv vous fassiez une idée.

Merci pour votre aide.

Je crois que je me suis emmelé les pinceaux entre activeX et formulaire.

Mais en N et O & se trouvent les valeurs VRAI/FAUX de contrôle.


Merci d'avance

Habiler

[Pierre Fauconnier]

Comme tu passes les formats en VBA, tu dois "parler" anglais au niveau du code JMA et utiliser DMY.


Dans l'événement Private Sub OptBtnFR_Click(), remplace 'Range("A13").NumberFormat = "[$-409]jjjj jj" par Range("a12:a42").NumberFormat = "[$-fr-BE]dddd dd"
Dans l'événement Private Sub OptBtnNL_Click(), remplace 'Range("A13").NumberFormat = "[$-413]jjjj jj" par Range("a12:a42").NumberFormat = "[$-nl-BE]dddd dd"

[HABILER]

Merci à tous pour votre contribution

Habiler

[bakounine]

Bonjour ,

J'ignorais complètement cette fonctionnalité d'Excel... ca peut être utile et marrant.

Par contre , je n'arrive pas à la faire marcher sur un autre champ qu'un de format "date". Elle peut traduire de petits textes ?

@Pierre Fauconnier : Ton deuxième lien vers "la table des codes littéraux" ne marche pas.

En tous cas , merci !

Bakounine

[Pierre Fauconnier]

[...]Par contre , je n'arrive pas à la faire marcher sur un autre champ qu'un de format "date". Elle peut traduire de petits textes ?[...]

Non, ça ne fonctionne qu'avec ce qui peut être interprété comme une date, mais ce n'est pas un traducteur...

[...]
@Pierre Fauconnier : Ton deuxième lien vers "la table des codes littéraux" ne marche pas.

De mon côté, ce lien fonctionne sans soucis...

[bakounine]

Bonjour ,

Non, ça ne fonctionne qu'avec ce qui peut être interprété comme une date, mais ce n'est pas un traducteur...

Ca aurait été trop beau ! Vu les quelques 200 langues proposées .....

De mon côté, ce lien fonctionne sans soucis...

Le site est peut-être bloqué car je suis au boulot. Je tente de chez moi ce soir

Edit : C'est bien çà , de chez moi le lien fonctionne !

Merci à toi

Bakounine