Discussion :

[Pierre Dumas]

Bonjour

Voila une petite action que je n'arrive pas à faire en une ligne.

J'ai dans une cellule texte le mois en anglais sur 3 caractères (Jan, Feb ou May, ...)

Je voudrais en code pouvoir ressortir le numéro du mois.

Pour l'instant j'y arrive en bouclant sur une liste, mais je n'arrive pas à faire l'équivalent de ce que je fais dans une formule pour un mois en français :
=MOIS("1 " & A2 & " 2010").

Pour l'instant j'ai réussi jusqu'à ce code. Cela marche pour "Jan", mais pas pour "Feb" :

Code :

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

1
2
Dim MaDate As Byte
MaDate = Month(Format("1 " & Range("A1") & " 2010", "dd/MM/yyyy"))

Merci à vous.

Pierre

[pgz]

Bonjour.

Si je comprends, tu as des mois abrégés en anglais dans un classeur ouvert avert une version française d'Excel.

Tu peux faire, par exemple

Code :

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

1
2
3
4
5
Dim sMois As String, numMois As Integer
 
sMois = ThisWorkbook.Worksheets(1).Range("A1").Value
 
numMois = Switch(sMois = "Jan", 1, sMois = "Feb", 2, sMois = "May", 5)

Cordialement,

PGZ

[Pierre Dumas]

Si je comprends, tu as des mois abrégés en anglais dans un classeur ouvert avert une version française d'Excel.

Tu comprends parfaitement bien.

Tu peux faire, par exemple

Code :

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

1
2
3
4
5
Dim sMois As String, numMois As Integer
 
sMois = ThisWorkbook.Worksheets(1).Range("A1").Value
 
numMois = Switch(sMois = "Jan", 1, sMois = "Feb", 2, sMois = "May", 5)

Oui, certes, mais j'ai bien entendu 12 mois, et j'aurais aimé avoir une solution sans faire une liste.

D'où l'idée d'essayer de recomposer une date et d'en extraire le mois.

Merci quand même

Pierre

[aalex_38]

La solution de création de liste me parait pas mal, tu peux même créer ta liste dans excel, si la solution ne te convient pas tu peux aussi faire format cellule / Date / Paramètres régionaux = anglais et toutes tes dates seront en anglais

Edit : je suis en train de regarder les format personalisés [$-809] et [$-40C]
Peut être une piste

Edit2 : Format langues personnalisés ici

[Pierre Dumas]

La solution de création de liste me parait pas mal, tu peux même créer ta liste dans excel,

Oui, je suis d'accord, c'est pas mal comme solution. C'est aussi ce que j'ai choisi pour l'instant.
Mais, j'aimerai trouver une solution différente (pour le plaisir). Solution que j'ai déjà utilisé, mais avec les mois en français et en toute lettres.
Là, j'aimerai faire la même chose.

si la solution ne te convient pas tu peux aussi faire format cellule / Date / Paramètres régionaux = anglais et toutes tes dates seront en anglais

Là, cela ne ma va pas du tout, car le programme tourne sur des postes partout dans le monde (d'où l'utilisation de l'anglais). Je ne peux pas modifier les paramètres régionaux.

Merci d'avoir proposé une solution

Pierre

[Philippe Tulliez]

Bonsoir,
Peut-être as-tu tes raisons d'utiliser les mois en texte, mais moi je place les dates dans les cellule que je personnalise ensuite avec "mmm aa" ou "mmm" si tu ne veux pas l'année et cela s'adapte parfaitement quelque soit l'option régionale.

[Pierre Dumas]

Bonsoir et merci de ta réponse

Tu as parfaitement raison. Mais cela fait partie des contraintes que je ne peux pas changer.
Quand cela dépend de moi, je fais comme toi. Ainsi on n'a pas de problèmes.

Mais si c'est impossible à trouver sans faire de liste, ce n'est pas grave.

Bonsoir

Pierre

[mercatog]

En A1:A12, les mois en anglais

Code :

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

1
2
3
4
5
6
7
8
9
Dim i As Integer
 
For i = 1 To 12
   With Range("B" & i)
      .Value = "1 " & Range("A" & i).Value
      .NumberFormat = "General"
      .Value = Month(.Value)
   End With
Next i

[Didier Gonard]

Pour l'instant j'ai réussi jusqu'à ce code. Cela marche pour "Jan", mais pas pour "Feb" :

Code :

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

1
2
Dim MaDate As Byte
MaDate = Month(Format("1 " & Range("A1") & " 2010", "dd/MM/yyyy"))

Pierre

III-D. Correspondance des notations des mois en noms entiers ou abrégés en français et en US.

C'est logique, c'est parce que sur ce mois les abréviations sont les même
Ca marchera aussi pour Mars etc.. d'où les sources d'erreur.

cordialement,

Didier

[Pierre Dumas]

En A1:A12, les mois en anglais

Code :

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

1
2
3
4
5
6
7
8
9
Dim i As Integer
 
For i = 1 To 12
   With Range("B" & i)
      .Value = "1 " & Range("A" & i).Value
      .NumberFormat = "General"
      .Value = Month(.Value)
   End With
Next i

Bonjour

OK, ce code fonctionne dans la feuille. Et c'est bien ce qui m'énerve .
J'aimerai trouver l'équivalent en VBA, sans rien inscrire dans les cellules.

Mais c'est peut-être une quête impossible.

Ce qui n'est pas grave.

Bonne journée

Pierre

C'est logique, c'est parce que sur ce mois les abréviations sont les même
Ca marchera aussi pour Mars etc.. d'où les sources d'erreur.

Bonjour

Je sais bien que c'est logique
Mais ce n'est pas une raison pour ne pas trouver une solution

Toutefois, comme je l'ai dit plus haut, ce n'est pas grave s'il n'y a pas de solution.

En tout cas merci pour le lien vers ta page que je n'avais pas trouvée. Elle me sera sûrement utile un jour pour éclaircir un point ou un autre.

Bonne journée

Pierre

[AlainTech]

Bonjour,

Une piste parmi d'autres:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
  Dim colMonths As New Collection
  Dim iMonth As Integer
  colMonths.Add 1, "Jan"
  colMonths.Add 2, "Feb"
  colMonths.Add 3, "Mar"
  colMonths.Add 4, "Apr"
  colMonths.Add 5, "May"
  colMonths.Add 6, "Jun"
  colMonths.Add 7, "Jul"
  colMonths.Add 8, "Aug"
  colMonths.Add 9, "Sep"
  colMonths.Add 10, "Oct"
  colMonths.Add 11, "Nov"
  colMonths.Add 12, "Dec"
  iMonth = colMonths(Range("A1"))