Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

COVERTIR DATE EN MOIS EN VBA

  • Initiateur de la discussion HIBERNATUCE
  • Date de début
H

HIBERNATUCE

Guest
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

hibernatube
a+ et merci
 

Eric C

XLDnaute Barbatruc
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…