bonsoir a tous
je cherche a convertire un nombre (1 a 12 ) en mois , en vba
z = Range('f2')
bubu = MsgBox('Voulez-vous vraiment archiver' & z, vbYesNo, 'Attention...')
f2 etant la cellule avec nombre de 1 a 12
Bonjour le forum
Bonjour Hibernatuce ou Hibernatube
Avec un tit Select Case ça roule
Code:
Sub enregistr()
Dim z As String
Select Case Range('B2')
Case 1
z = 'janvier'
Case 2
z = 'février'
Case 3
z = 'mars' 'A poursuivre
End Select
bubu = MsgBox('Voulez-vous vraiment archiver' & ' ' & z, vbYesNo, 'Attention...')
End Sub