Discussion :

[moimemessssssssss]

BOnjour,

j'ai plusieures dates dont il faut extraire le mois
pour cela j'utilise la fonction month

Code :

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

1
2
 
month(21/04/2008) ' me donne 4

le problème est que j'aimerais obtenir le mois en lettre, e.g ici "avril", et non en chiffre
une solution serait d'ecrire une table avec les correspondances chiffre et mois( 1=janvier, 2 =février....) et des faire des conditions en if

j'aimerais savoir s'il serait possible d'obtenir rapidement les mois en lettre?


Par ailleurs, serait-il possible d'associer des chiffres à des lettres en suivant les colonnes d'excel ( par ex. 1 =A, 26= Z , 27 =AA....)?


Autre question concernant les chiffres :
comment obtenir le max de plusieures nombres en VBA ( sur excel je sais qu'il faut utiliser la fonciton max mais en VBA je ne sais pas)?

merci beaucoup

[wilfried_42]

bonjour

essaie ca

Code :

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

format(madate,"mmmm")

[Abed_H]

Bonsoir

Code :

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

1
2
Dt = "21/04/2008"
MsgBox MonthName(Month(Dt))

sans vba la date est en F4

Code :

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

=TEXTE(F4;"mmmm")

[moimemessssssssss]

Bonjour,

Merci beaucoup pour vos réponses
ca marche parfaitement.

sinon des idées pour mes 2 autres questions?
merci

[Abed_H]

pour obtenir le max de plusieures nombres dans la plage A1:A30

Code :

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

Application.WorksheetFunction.Max(Range("A1:A30"))

[Abed_H]

et pour Obtenir le caractère corespend au nombre saisie dans la cellule B2

Code :

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

=MAJUSCULE(CAR(B2+96))

[moimemessssssssss]

Bonjour,

la manière de trouver le max de nombre marche nikel.

la fonction majuscule associée à la fonction car donne bien un caractére associé au nombre
mais cependant je souhaiterais que chaque soit associé à des lettre de l'alphabet
26=Z 27=AA 28=AB
est il possible de faire cela?
merci

[Abed_H]

Code :

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

1
2
3
4
5
6
Sub test_H3()
 Column = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", _
                "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "AA", "AB", "AC", _
                "AD", "AE", "AF", "AG", "AH", "AI", "AJ", "AK")
      MsgBox Column(27 - 1)
End Sub

[ucfoutu]

Ouais...

Moi j'en connais un (salut "cherches_le_sud" ) qui a annoncé en réponse 11 ici :
http://www.developpez.net/forums/sho...d.php?t=524390
qu'il effaçait une réponse (la sienne) ... qui servirait par contre dans cette discussion...
S'il repasse par là, peut-être, hein ...

[Abed_H]

autre exemple

Code :

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

1
2
3
4
5
6
Sub test_H4()
    For i = 1 To Columns.Count
        Cells(i, 1) = _
        Application.Substitute(Split(Columns(i).Address, "$")(1), ":", "")
    Next
End Sub

[AlainTech]

Un peu de lecture:
http://www.developpez.net/forums/sho...lettre+colonne